Ken知道如何在Excel中创建条件格式。但是,他真正想做的是,如果满足条件,则让Excel发出可听见的声音(哔声或其他声音)。

如果不使用宏,则无法做到这一点。如果您只想发出哔声,则可以使用以下命令:

Function BeepMe() As String     Beep     BeepMe = ""

End Function

用户定义的功能仅是播放声音(视您使用的系统而定),然后返回一个空字符串。

您可以通过以下方式在工作表中使用该函数:

=IF(A12>300,BeepMe(),"")

如果要播放默认系统提示音以外的声音,则需要使用Windows API PlaySound函数。以下代码创建一个用户定义的函数,该函数将播放默认的“ tada”

在Windows中听起来如此普遍。

Private Declare Function PlaySound Lib "winmm.dll" _   Alias "PlaySoundA" (ByVal lpszName As String, _   ByVal hModule As Long, ByVal dwFlags As Long) As Long

Const SND_SYNC = &H0     Const SND_ASYNC = &H1     Const SND_FILENAME = &H20000

Function SoundMe() As String     Call PlaySound("c:\windows\media\tada.wav", _       0, SND_ASYNC Or SND_FILENAME)

SoundMe = ""

End Function

该函数可以与前面的示例相同:

=IF(A12>300,SoundMe(),"")

如果要播放其他WAV文件,只需在SoundMe功能中更改文件规范。

注意:

如果您想知道如何使用此页面(或_ExcelTips_网站上的任何其他页面)中描述的宏,我准备了一个特殊页面,其中包含有用的信息。

_ExcelTips_是您进行经济高效的Microsoft Excel培训的来源。

本技巧(7658)适用于Microsoft Excel 97、2000、2002和2003。可以在以下功能区中为Excel的功能区界面(Excel 2007及更高版本)找到本技巧的版本: