四十八、让你的Excel说话！
现在工资、财务管理，甚至工业控制中的很多数据报表都是利用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表格某些单元格中的重要数据进行监控，且实现语音提示。
四十九、也谈Excel斜线表头
Excel中的绘图工具栏在默认情况下没有打开，在工具栏空白处点击右键，打开绘图工具栏。然后调整好单元格的大小，画好所需斜线，在空白处画文本框，输入表头文字，然后双击设置文本框格式，选择“颜色与线条”标签，“填充颜色”选择“无填充色”，“线条颜色”选择“无线条色”。
