ケンは、Excelで条件付き書式を作成する方法を知っています。しかし、彼が本当にやりたいのは、条件が満たされた場合にExcelに可聴音（ビープ音など）を鳴らすことです。

マクロを使用せずにこれを行う方法はありません。ビープ音を鳴らしたいだけの場合は、次のように使用できます。

Function BeepMe() As String     Beep     BeepMe = ""

End Function

このユーザー定義関数は、サウンドを再生し（使用しているシステムによって異なります）、空の文字列を返すだけです。

ワークシートの関数は次のように使用できます：

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

デフォルトのシステムビープ音以外のサウンドを再生する場合は、Windows APIPlaySound関数を使用する必要があります。次のコードは、デフォルトの「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_サイトの他のページ）で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

linkここをクリックして、新しいブラウザタブでその特別なページを開きます。

_ExcelTips_は、費用効果の高いMicrosoftExcelトレーニングのソースです。

このヒント（7658）は、Microsoft Excel 97、2000、2002、および2003に適用されます。Excel（Excel 2007以降）のリボンインターフェイス用のこのヒントのバージョンは、次の場所にあります。

linkConditionally Making aSound。