[已解决]关于语音朗读代码的补充问题

cfyhqy

昨天发帖求助，得到了各位大侠的大力帮助，特别是得到了“mxg825”老师的全力帮忙，可以说问题得到了圆满解决，在此特别感谢!今天再次求助，能不能再加上单词的语音朗读，也就是说当输入单词正确时，自动朗读文件夹中以该单词命名的MP3音频，同时朗读“答对了，你真棒！”，当输入单词错误时，就只朗读“答错了，请继续努力！”。为了孩子的学习，请各位大侠出手相助！ 初中英语单词练习.rar (81.82 KB, 下载次数: 18)

2011-11-16 13:45 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

mxg825

2011-11-16 15:31

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Count > 1 Then Exit Sub
    If .Row > 2 And .Column = 1 Then
        Call MYPLAY(.Text, .Offset(, 5).Text, .Offset(, 3))
           ' MYPLAY(输入的单元格，答案单元格，评价单元格）   
    End If
End With
End Sub

跳转到最佳答案楼层

mxg825

那你每个单词 都要先录好 一个MP3 文件！

cfyhqy

每个单词的MP3文件不是问题，我在文件夹里已经做好了4个单词的文件了。

mxg825

cfyhqy 发表于 2011-11-16 14:11
每个单词的MP3文件不是问题，我在文件夹里已经做好了4个单词的文件了。

测试通过!
但有个问题是：文件名包含空格 无法播放！
能不能改成 序号？（或再想想办法）

mxg825

已经找到办法了！
现在把代码 整理一下！

cfyhqy

感谢！期待！

mxg825

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
If .Count > 1 Then Exit Sub
    If .Row > 2 And .Column = 1 Then
        Call MYPLAY(.Text, .Offset(, 5).Text, .Offset(, 3))
           ' MYPLAY(输入的单元格，答案单元格，评价单元格）   
    End If
End With
End Sub

xmlaiya

不错不错.也请"mxg825"帮我看看如何统计数量.http://www.excelpx.com/thread-208177-1-1.html
谢谢.

cfyhqy

感谢！崇拜！望尘莫及！