oobird

¤u§@ªí¼Ò²Õ¡G

1. Private Sub Worksheet_Calculate()
   
2. If [c1] >= [f1] Then ¼½©ñwav
   
3. End Sub

½Æ»s¥N½X

¤@¯ë¼Ò²Õ¡G

1. Private Declare Function PlayWaveSound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszsoundname As String, ByVal uflags As Long) As Long
   
2. 
   
3. Public Sub ¼½©ñwav()
   
4. 
   
5.     Dim soundName As String
   
6. 
   
7.     soundName = "C:\WINDOWS\Media\Windows XP ±Ò°Ê.wav"    '«ü©w?­µ¤å¥ó
   
8. 
   
9.     PlayWaveSound soundName, 1
   
10. 
    
11. End Sub

½Æ»s¥N½X