EXCEL 的语音讲话，神奇啊

海绵逍遥

今天刚学习了EXCEL可以语音读出来，不仅好玩，而且可以让我们再输入大量数据时可以边输边听，提高正确率，真好

cflood

介绍一下怎么做到的

海绵逍遥

你好，excelhome 首页上有这个视频，我就是在这上面学的，简单介绍下，就是在网上下载一个中文语音安装引擎，然后在你电脑上的控制版面的语音里选择微软的这个中文语音，最后在excel的快速访问工具栏中添加五项了，关语音即可，你输入单元格时就可以读出来了，具体操作还要看一下视频讲解

cflood

好的，我试试。

ahui21

没弄过，看过介绍，有空玩玩。

海绵逍遥

去看看，真的挺好玩，而且以后会有用的

2001927f

现在工资、财务管理，甚至工业控制中的很多数据报表都是利用Excel生成的。对于一个要反复利用的Excel表格，如果表格中的某些数据出现了异常，我们能够让Excel发出语音提示，岂不是更方便。尤其是在工业控制中，利用这种方法便可以做成语音报警。下面就以我在工业控制中做的语音报警程序为例，介绍一下如何在Excel报表中使用语音提示。

　　首先录制编辑好各种情况下的语音报警文件，保存到硬盘中。其次是打开所要使用的  
Excel报表，在Excel菜单中打开［工具］→［宏］、［Visual Basic编辑器］，再在Visual Basic编辑器中插入“模块”，并在该模块中插入下列代码：

　　Option Explicit

　　Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

　　再在Workbook的BeforeSave事件中(根据需要也可以选用其他事件)加入下列用VBA编写的宏代码：

　　With Sheet1

　　If .Range("A2").Value〉2 Or .Range("A2").Value〈-2 Then

　　'判断A2单元格内的数据是否大于2或小于负2

　　x% = sndPlaySound("C:＼语音＼语音01.wav", uFlags%)

　　'播放语音文件“C:＼语音＼语音01.wav”

　　End If

　　If .Range("B2").Value〉2 Or .Range("B2").Value〈-2 Then

　　'判断B2单元格内的数据是否大于2或小于负2

　　x% = sndPlaySound("C:＼语音＼语音02.wav", uFlags%)

　　'播放语音文件“C:＼语音＼语音02.wav”

　　End If

　　End With

　　依此类推，利用这种方法可以对Excel表格某些单元格中的重要数据进行监控，且实现语音提示。?

海绵逍遥

谢谢楼上的转帖，不过我现在对宏这些还没学，正在学基础，呵呵。不过会收藏的，以后会学习的

gwxqqq

视频在哪里啊 ？
没找到呢

zhangzhenxia

gwxqqq 发表于 2011-12-24 10:53
视频在哪里啊 ？
没找到呢

留个记号，可能会有用。