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

EXCEL µo¥XÁn­µ

­×§ï¤F¿ù³B, ¦ý³£¬O¨S¦³Án­µ
¤£ªÖ©w¬O§_¹q¸£°ÝÃD

¦ý½Ð°Ý­Y·Q²³æ¤@ÂI, ¤º«Ø°£¤FBEEP Án¥~
ÁÙ·|¦³¨ä¥¦Án­µ¶Ü?
©Î¦pªG­n³sÄ~BEEP ¨âÁn, À³¸Ó¦p¦ó©O?

TOP

¤èªk¤Ó¦h¤F¡A²³æ¼g´X­Ó±`¥Îªº¡G
  1. Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrcommand As String) As Long
  2. Private Const Mic = "C:\Windows\Media\tada.wav"
  3. Sub op()
  4. mciExecute ("play " & Mic)
  5. End Sub

  6. Sub yy()
  7. cmd = "sndrec32 /play /close ""C:\Windows\Media\tada.wav"""
  8. Shell cmd, 6
  9. End Sub
  10. Sub xx()
  11. Beep
  12. Application.Wait (Now + TimeValue("0:00:1"))
  13. Beep
  14. End Sub
  15. Sub ww()
  16. Set oSa = CreateObject("SAPI.SpVoice")
  17.         oSa.Speak "misinput"
  18. End Sub
½Æ»s¥N½X

TOP

¦^´_ 12# oobird

¬ðµM·Q¨ì¡ABEEPÁÙ¥i¥H½s¦±
  1. Declare Function Beep Lib "kernel32.dll" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long

  2. Sub yy()
  3. f = Array(100, 523, 587, 659, 698, 784, 879, 987, 1030)
  4. d = Array(5, 3, 3, 0, 4, 2, 2, 0, 1, 2, 3, 4, 5, 5, 5, 0, 5, 3, 3, 0, 4, 2, 2, 0, 1, 3, 5, 5, 3, 0, 2, 2, 2, 2, 2, 3, 4, 0, 3, 3, 3, 3, 3, 4, 5, 0, 5, 3, 3, 0, 4, 2, 2, 0, 1, 3, 5, 5, 1)
  5. For i = 0 To UBound(d)
  6. Beep f(d(i)), 500
  7. Next
  8. End Sub
½Æ»s¥N½X

TOP

¨¯­W¤F¦U¦ìªº«ü±Ð,
¸Õ¹L¤FSub OP ¦ý©_©Ç¦b¹q¸£¤º§ä¤£¨ìtada.wav,
§ï¥Î¨ä¥¦C:\Windows\Media\¤ºªºWAVÀɤϦӼ½­ø¨ì
¦ÓSub YY  ¥h¨ìShell cmd, 6 Åã¥Ü§ä¤£¨ìÀÉ®×

¦Ó³o°ÝÃD·|¦P¹q¸£¦³Ãö¶Ü?
²{®É¹q¸£¬OWIN7 64BIT,  ­Y°õ¦æ¨ì«á, ¦b¨ä¥¦WINXP ¹q¸£¤S·|§_¥X²{°ÝÃD

³Ì²×§Æ±æ¥i¥H¼½¨ì¦bC:\Windows\Media\ ¤º«ØªºwavÀÉ

TOP

§Ú²×©óµo²{¿ù¦b¨º¸Ì, ­ì¨Ó¦bC:\Windows\Media\ ¨£¨ìªº¤¤¤åÀɮצWºÙ. ­ì¨Ó¬OÄF¤H
Windows ³qª¾.wav ¦WºÙ, ­ì¨Ó¯u¹êÀɮצWºÙ¥s Windows Notify.wav
­ø©Ç±o¼½­ø¨ì,  
¦hÁ¦U¦ì­@¤ß«ü±Ð

TOP

¥»©«³Ì«á¥Ñ StanleyVic ©ó 2012-7-19 16:29 ½s¿è

³o­Ó¨Ò¤lªº´£°Ý¤Ó¦n¤F. ¾Ç²ß¤F...
§Ú¨S·Q¹L·|¥Î¦bExcel ¥h¤¶©w ¹ï/¿ù.
¥­±`³£¥u·|¨ä¥L.. or msbox ´£¥Ü..
¤£¿ù¤£¿ù..ÁÂÁÂ..
NeverTry , NeverNo !

TOP

¸Ñ»¡±o«Ü¸Ô²Ó©O!

TOP

Play Sound.rar (40.73 KB) ªþ¥ó¬Oword­n«ç¼Ë§ï¦¨excel?
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 18# ¦Û§Ú·Pı¨}¦n
  1. Option Explicit
  2. 'API Class to take care of playing the file
  3. Public Declare Function sndPlaySound32 Lib "winmm.dll" _
  4. Alias "sndPlaySoundA" (ByVal lpszSoundName As String, _
  5.                         ByVal uFlags As Long) As Long
  6. Sub VBASound()
  7.     'Call Api to play LoadIt.wav witch is in the same folder as
  8.     'the active document!->ActiveWorkbook
  9.     Call sndPlaySound32(ActiveWorkbook.Path & "\LoadIt.WAV", 0)
  10.    
  11. End Sub
½Æ»s¥N½X

TOP


ÁÙ¬O¤£¯à¥Î¡T
À°§Ú¬Ý¤@¤U¨º¸Ì¥X¿ù¤F¡K¡K¦^´_ 19# GBKEE
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

        ÀR«ä¦Û¦b : §g¤l¬°¥Ø¼Ð¡A¤p¤H¬°¥Øªº¡C
ªð¦^¦Cªí ¤W¤@¥DÃD