返回列表 上一主題 發帖

計算儲存格數值變動的次數?

計算儲存格數值變動的次數?

例如 A1儲存格被修改
B1儲存格的數值會增加1
要怎麼寫或錄VBA呢?
又A1被更改後可以播放
C目錄下的音效檔案wav或mp3嗎?

' 放 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

TOP

若要進階的 play , pause,  stop  

麻煩自己 google

TOP

大感謝 謝謝您的大力幫忙

TOP

又有新問題了 但不是VBA的 關於畫圖
http://forum.twbts.com/viewthread.php?tid=20592&extra=

TOP

        靜思自在 : 虛空有盡.我願無窮,發願容易行願難。
返回列表 上一主題