返回列表 上一主題 發帖

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

jazzcarr

帖子
26 
主題
10 
精華
0 
積分
84 
點名
0  
作業系統
win10 
軟體版本
excel2010 
閱讀權限
20 
性別
男 
註冊時間
2016-6-10 
最後登錄
2018-8-20 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2018-3-2 13:51 | 只看該作者

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

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

jazzcarr

帖子
26 
主題
10 
精華
0 
積分
84 
點名
0  
作業系統
win10 
軟體版本
excel2010 
閱讀權限
20 
性別
男 
註冊時間
2016-6-10 
最後登錄
2018-8-20 
5#
發表於 2018-3-6 11:18 | 只看該作者
又有新問題了 但不是VBA的 關於畫圖
http://forum.twbts.com/viewthread.php?tid=20592&extra=

TOP

jazzcarr

帖子
26 
主題
10 
精華
0 
積分
84 
點名
0  
作業系統
win10 
軟體版本
excel2010 
閱讀權限
20 
性別
男 
註冊時間
2016-6-10 
最後登錄
2018-8-20 
4#
發表於 2018-3-6 11:04 | 只看該作者
大感謝 謝謝您的大力幫忙

TOP

jackyq

帖子
323 
主題
6 
精華
0 
積分
313 
點名
0  
作業系統
xp 
軟體版本
2k 
閱讀權限
20 
性別
男 
註冊時間
2015-6-24 
最後登錄
2025-5-3 
3#
發表於 2018-3-5 20:21 | 只看該作者
若要進階的 play , pause,  stop  

麻煩自己 google

TOP

jackyq

帖子
323 
主題
6 
精華
0 
積分
313 
點名
0  
作業系統
xp 
軟體版本
2k 
閱讀權限
20 
性別
男 
註冊時間
2015-6-24 
最後登錄
2025-5-3 
2#
發表於 2018-3-5 20:20 | 只看該作者
' 放 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

        靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。
返回列表 上一主題