- ©«¤l
- 703
- ¥DÃD
- 276
- ºëµØ
- 0
- ¿n¤À
- 1005
- ÂI¦W
- 1
- §@·~¨t²Î
- Windows 10
- ³nÅ骩¥»
- Office 2019
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2011-6-30
- ³Ì«áµn¿ý
- 2024-5-29
|
¥»©«³Ì«á¥Ñ av8d ©ó 2012-7-3 08:25 ½s¿è
¦^´_ 5# enoch
¥t¥~´£¨Ñ§A¤@Ó¥i¥Hµo¥XÁnµªº~
¬O§Q¥Î¨ç¼Æ¥hµo¥XÁnµªº~¤]ÆZ¹ê¥Îªº~
¦b Excel ¤¤, «ö Alt F11 ¶i¤J Visiual Basic ½s¿è¾¹µe±,
ÂI¿ï [´¡¤J]/[¼Ò²Õ], µe±·|¸õ¥Xµ{¦¡½Xµøµ¡, ¦b¸Ì±½Æ»s¶K¤W¦p¤Uµ{¦¡:
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Function SndPlay(Pathname As String) As Long
SndPlay = sndPlaySound(Pathname, SND_ASYNC)
End Function
µM«á¤Á´«¦^¨ì Excel ¤u§@ªí, ¦b¬YÓÀx¦s®æ(¤£¬OA1©ÎC5)¿é¤J¦p¤U¤½¦¡:
=IF(A1 < C5,sndplay("C:\Windows\Media\Windows XP ¹q¸Ü¹aÁn.wav"),0)
µù: »Ý½T©w "C:\Windows\Media\ "¸Ì¦³ "Windows XP ¹q¸Ü¹aÁn.wav" ³oÓÀÉ®×
©ó¬O¦b A1 ©M C5 ¸Ì¤À§O¿é¤J¼Æ¦r, ·í A1 ¤p©ó C5 ªº®ÉÔ,
¹q¸£´N·|¼½©ñ¹q¸Ü¹aÁn
Âà¸ü©ó http://tw.group.knowledge.yahoo.com/smt-knowldge/listitem/view?iid=15 |
|