ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

­pºâÀx¦s®æ¼Æ­ÈÅܰʪº¦¸¼Æ?

­pºâÀx¦s®æ¼Æ­ÈÅܰʪº¦¸¼Æ?

¨Ò¦p A1Àx¦s®æ³Q­×§ï
B1Àx¦s®æªº¼Æ­È·|¼W¥[1
­n«ç»ò¼g©Î¿ýVBA©O¡H
¤SA1³Q§ó§ï«á¥i¥H¼½©ñ
C¥Ø¿ý¤Uªº­µ®ÄÀÉ®×wav©Împ3¶Ü¡H

' ©ñ sheet ¸Ì­±

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
      
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$A$1" Then
    [B1] = Val([B1]) + 1
   
    wav_file = "c:\Windows XP ±Ò°Ê.wav"
    Call sndPlaySound(wav_file, 1)
End If

End Sub

TOP

­Y­n¶i¶¥ªº play , pause,  stop  

³Â·Ð¦Û¤v google

TOP

¤j·PÁ ÁÂÁ±zªº¤j¤OÀ°¦£

TOP

¤S¦³·s°ÝÃD¤F ¦ý¤£¬OVBAªº Ãö©óµe¹Ï
http://forum.twbts.com/viewthread.php?tid=20592&extra=

TOP

        ÀR«ä¦Û¦b : ¬Ý§O¤H¤£¶¶²´¡A¬O¦Û¤v­×¾i¤£°÷¡C
ªð¦^¦Cªí ¤W¤@¥DÃD