在Excel报表中使用语音提示.docVIP

在Excel报表中使用语音提示.txt我这人从不记仇，一般有仇当场我就报了。没什么事不要找我，有事更不用找我！就算是believe中间也藏了一个lie！我那么喜欢你，你喜欢我一下会死啊?我又不是人民币，怎么能让人人都喜欢我？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 Private Sub Worksheet_Change(ByVal Target As Range) 如果输入后按回车，可以实现逐个字符朗读 Dim length As Integer Dim i As Integer Dim strT As String Dim ch As String Dim intR As Integer, intC As Integer MsgBox 你修改了数据 intR = ActiveCell.Row intC = ActiveCell.Column If intR 0 Then strT = Cells(intR - 1, intC) length = Len(strT) If length 0 Then For i = 1 To length ch = Mid(strT, i, 1) Application.Speech.Speak ch Next i End If End If End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) 如果单元格在选定状态下按方向键，或者用鼠标改变活动单元格触发 Dim length As Integer Dim i As Integer Dim strT As String Dim ch As String Dim intR As Integer, intC As Integer intR = ActiveCell.Row intC = ActiveCell.Column If intR 0 Then strT = Cells(intR - 1, intC) length = Len(strT) If length 0 Then For i = 1 To length ch = Mid(strT, i, 1) Application.Speech.Speak ch Next i End If End If End Sub Sub 输入() Dim leng