pºâÀx¦s®æ¼ÆÈÅܰʪº¦¸¼Æ?
| ©«¤l26 ¥DÃD10 ºëµØ0 ¿n¤À84 ÂI¦W0  §@·~¨t²Îwin10 ³nÅ骩¥»excel2010 ¾\ŪÅv20 ©Ê§O¨k µù¥U®É¶¡2016-6-10 ³Ì«áµn¿ý2018-8-20 
 | 
 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
 | 
 | 
|  | 
|  |  | 
|  |  | 
| ©«¤l323 ¥DÃD6 ºëµØ0 ¿n¤À313 ÂI¦W0  §@·~¨t²Îxp ³nÅ骩¥»2k ¾\ŪÅv20 ©Ê§O¨k µù¥U®É¶¡2015-6-24 ³Ì«áµn¿ý2025-5-3 
 | 
                
| ' ©ñ 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
 | 
 | 
|  | 
|  |  | 
|  |  | 
| ©«¤l323 ¥DÃD6 ºëµØ0 ¿n¤À313 ÂI¦W0  §@·~¨t²Îxp ³nÅ骩¥»2k ¾\ŪÅv20 ©Ê§O¨k µù¥U®É¶¡2015-6-24 ³Ì«áµn¿ý2025-5-3 
 | 
                
| Yn¶i¶¥ªº play , pause,  stop 
 ³Â·Ð¦Û¤v google
 | 
 | 
|  | 
|  |  | 
|  |  | 
| ©«¤l26 ¥DÃD10 ºëµØ0 ¿n¤À84 ÂI¦W0  §@·~¨t²Îwin10 ³nÅ骩¥»excel2010 ¾\ŪÅv20 ©Ê§O¨k µù¥U®É¶¡2016-6-10 ³Ì«áµn¿ý2018-8-20 
 |  | 
|  | 
|  |  | 
|  |  | 
| ©«¤l26 ¥DÃD10 ºëµØ0 ¿n¤À84 ÂI¦W0  §@·~¨t²Îwin10 ³nÅ骩¥»excel2010 ¾\ŪÅv20 ©Ê§O¨k µù¥U®É¶¡2016-6-10 ³Ì«áµn¿ý2018-8-20 
 |  | 
|  | 
|  |  | 
|  |  |