¦b office 2007 ¤£¯à¥¿±`¹B§@

tinching

¦U¦ì¤j¤j¡G
     ¥H¤Uµ{¦¡½X¦boffice xp ¹B§@¬O¥¿±`ªº¡A¬°¦ó¦b office 2007 ¸Ì«K¨S¦³¤ÏÀ³¡H½Ð¦U¦ì«ü±Ð¡IÁÂÁ¡I

Private Sub Worksheet_Calculate()
If [E52] = 1 Then
    Dim spath As String, cmd As String
  
    spath = "D:\Ring.wav"  
  
    If Range("B51").Value = 1 Then
  
        cmd = "sndrec32 /play /close " & Chr(34) & spath & Chr(34)
   
        Shell cmd, 6
   
    End If
    End If
  
End Sub

luhpro

¦^´_ 1# tinching
§A¦³´«¹q¸£¶Ü?
§@·~¨t²ÎÁÙ¬O­ì¨Óªº¨ºª©¶Ü?
ª½±µ°õ¦æ sndrec32 ¬Ý¸Óµ{¦¡¬O§_ÁÙ¦s¦b?

tinching

´«¤F¹q¸£¡A­ì¥»¬Owindows xp¡A²{¦b¬Owindows 7¡C