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

[µo°Ý] °»¿ù¨S°ÝÃD,´N¬OµLªk°õ¦æ

1.§Ú¦³³\¦h°ÊºA¸ê®Æ·|¶i¨Ó§@¤ñ¹ï°Ê§@¡A¦p:·í A1>A2 ®É¡F¦Û°Ê¼·©ñ C:\168.WAV¡B
          ·í B1=>B2 ®É¡F¦Û°Ê¼·©ñ C:\258.WAV........¤£¦P±ø¥ó¥i¼½©ñ«ü©w­µ®Ä¡C
°ÝÃD¦b³o¸Ì¡A¤@­Ó"¦p"¦r¡AÅý·QÀ°§Aªº¤H³£¤£ª¾¦p¦óÀ°¤F¡C
Á`¦@´X­Ó±ø¥ó¡H­Y¨âµ§¥H¤W±ø¥ó¦P®É¦¨¥ßªº¤S¸Ó¦p¦ó¡H

TOP

¥»©«³Ì«á¥Ñ luhpro ©ó 2011-5-1 23:29 ½s¿è

¨â­Ó¤è¦¡´£¨Ñµ¹§A°Ñ¦Ò :
1. ¶} DOS µøµ¡, §â¤U¦C¤º®e¶K¤W¥h«á«ö Enter °õ¦æ¬Ý¬Ý
sndrec32 /play /close C:\op.wav

¦pªG¥X²{ "§ä¤£¨ìÀÉ®×" ªº¿ù»~°T®§,
«Ü¥i¯à¬O sndrec32.exe ¤£¦bµ{¦¡ªº¹w³]¥Ø¿ý¤º, (¤]¦³¥i¯à¬O§A°õ¦æ¸ÓÀɮתºÅv­­¤£¨¬)
¸ÕµÛ§â¥¦©ñ¨ì C:\Windows\system32 ¤U(©Î¬ODOSµøµ¡¤¤¥´ set path ¤¤©Ò¥X²{ªº¥ô¤@¥Ø¿ý¤º)

2. ¦P¼Ë¶} DOS µøµ¡, §â¤U¦C¤º®e¶K¤W¥h«á«ö Enter °õ¦æ¬Ý¬Ý
dir C:\op.wav
¦pªG¥X²{ "§ä¤£¨ìÀÉ®×" ªº¿ù»~°T®§,
ªí¥Ü¸ÓÁn­µÀɤ£¦b C:\ ¥Ø¿ý¤º,
¤]¦³¥i¯à¬O§AªºÅv­­¤£¨¬µLªk¼½©ñ,
¶} DOS µøµ¡, ¥´¤U¦C«ü¥O«á¦A°õ¦æ Excel ÀÉ®×¸Õ¸Õ :
copy C:\op.wav

°ò¥»¤W§A·|¥Î¨ìªºÀ³¸Ó´N¬O³o¨â­ÓÀÉ®×.

TOP

¼Ó¤W©Ò´£³£¨S°ÝÃD¡C
ÁÂÁ¡I
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

oobird¶W¯Åª©¥D§A¦n¡I«Ü©êºp¡I
       1.³\¦h°ÊºA¸ê®Æ·|¶i¨Ó§@¤ñ¹ï°Ê§@
          ·í A1¡×>A2 ®É¡F¦Û°Ê¼·©ñ C:\168.WAV
          ·í B1=>B2 ®É¡F¦Û°Ê¼·©ñ C:\268.WAV
          ·í C1=>C2 ®É¡F¦Û°Ê¼·©ñ C:\368.WAV¤£¦P±ø¥ó¥i¼½©ñ«ü©w­µ®Ä¡C
       2.·í±ø¥ó¦¨¥ß®É©Ò³]©wªºÁn­µ¼½©ñ1¦¸µM«á¦Û°Ê°±¤î¡A°£«D±ø¥ó¤S¦A¦¸¦¨¥ß¡C
          ¤£ºÞ¤@µ§©Î¦hµ§³£¦¨¥ß¡A·Ó±`¼½©ñÁn­µ
       3.¥¨¶°³]¦³START¡BSTOP°õ¦æ»P°±¤î«öÁä¡C
                        ·PÁ¡I
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¼½©ñ¦±¥Øªº¹ïÀ³¼g¦b²Ä3¦C

ªþ¥ó½Ð¸ÑÀ£ÁY¨ì¹q¸£«á¦A¶}±Ò
¤@¯ë¼Ò²Õ
  1. Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrcommand As String) As Long
  2. Sub op(mypath)
  3. On Error Resume Next
  4. mciExecute "play " & mypath
  5. End Sub
½Æ»s¥N½X
¤u§@ªí¼Ò²Õ
  1. Private Sub Worksheet_Calculate()
  2. For Each a In [B1:D1]
  3.    If a > a.Offset(1, 0) Then
  4.       mypath = ThisWorkbook.Path & "\" & a.Offset(2, 0)
  5. Application.OnTime Now + TimeValue("00:00:03") * i, "'op " & Chr(34) & mypath & Chr(34) & "'"
  6. i = i + 1
  7. Application.OnTime Now + TimeValue("00:00:03") * i, "'op " & Chr(34) & mypath & Chr(34) & "'"
  8. i = i + 1
  9.     End If
  10. Next
  11. End Sub
½Æ»s¥N½X
PlaySound.rar (90.72 KB)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

Hsieh¶W¯Åª©¥DÁÂÁ§A!
       ¦]Åv­­¤£°÷µLªk¤U¸ü¡A½Ð°ÝÀx¦s®æ¸Ì¦³¤½¦¡¶Ü?
       "¼½©ñ¦±¥Øªº¹ïÀ³¼g¦b²Ä3¦C"¬O­n¦p¦ó®r¤J?

       ·P®¦!
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

B1:D2§Ú¥ÎRANDBETWEEN¨ç¼Æ
²Ä¤T¦C´Nª½±µ¿é¤J¸ÓÄæ±ø¥ó¦¨¥ß­n¼½©ñªº¦±¥Ø
«öF9­«ºâ´N·|¼½©ñ
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¥»©«³Ì«á¥Ñ Hsieh ©ó 2011-5-3 22:32 ½s¿è

¥t¤@­ÓAPI¨ç¼Æ¥ÎªksndPlaySound
¤@¯ë¼Ò²Õ
  1.       Private Declare Function sndPlaySound Lib "winmm.dll" Alias _
  2.       "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
  3.       Function SndPlay(Pathname As String) As Long
  4.           SndPlay = sndPlaySound(Pathname, SND_ASYNC)
  5.       End Function
½Æ»s¥N½X
¤u§@ªí¼Ò²Õ
  1. Private Sub Worksheet_Calculate()
  2. For Each a In [B1:D1]
  3.    If a > a.Offset(1, 0) Then
  4.       mypath = ThisWorkbook.Path & "\" & a.Offset(2, 0)
  5. Application.OnTime Now + TimeValue("00:00:03") * i, "'SndPlay " & Chr(34) & mypath & Chr(34) & "'"
  6. i = i + 1
  7. Application.OnTime Now + TimeValue("00:00:03") * i, "'SndPlay " & Chr(34) & mypath & Chr(34) & "'"
  8. i = i + 1
  9.     End If
  10. Next
  11. End Sub
½Æ»s¥N½X
B1:D2¿é¤J¤½¦¡
=RAND()
B3:D3¿é¤J­µ®ÄÀɦW(§t°ÆÀɦW)
«öF9­«ºâ
WIN XP+2003ª©
WIN 7+2010ª©
´ú¸Õ³q¹L
PlaySound.zip (85.04 KB)
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

Hsieh¶W¯Åª©¥D§A¦n!
     ·PÁ§A¦h¦¸À°¦£!
B12¿é¤J¤½¦¡=RAND()      °²³]B1¬O³sµ²A5ªº¸ê®ÆÀ³¦p¦ó¼g?
B33¿é¤J­µ®ÄÀɦW(§t°ÆÀɦW)     °²³]B3 = "C:\op.wav"  ¬O³o¼Ë¼g¶Ü?

·í¦³¥t¤@²Õ=<®É½Ð°Ý¥¨¶°¸Ó¦p¦ó­×¥¿?
          ·í E1¡×<E2 ®É¡F¦Û°Ê¼·©ñ C:\222.WAV
          ·í F1=<F2 ®É¡F¦Û°Ê¼·©ñ C:\333.WAV
          ·í G1=<G2 ®É¡F¦Û°Ê¼·©ñ C:\444.WAV¤£¦P±ø¥ó¥i¼½©ñ«ü©w­µ®Ä¡C
·P®¦!
50 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

        ÀR«ä¦Û¦b : Ãø¦æ¯à¦æ¡AÃø±Ë¯à±Ë¡AÃø¬°¯à¬°¡A¤~¯àª@µØ¦Û§Úªº¤H®æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD