返回列表 上一主題 發帖

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

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

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

麻煩自己 google

TOP

jackyq

帖子
320 
主題
6 
精華
0 
積分
310 
點名
0  
作業系統
xp 
軟體版本
2k 
閱讀權限
20 
性別
男 
註冊時間
2015-6-24 
最後登錄
2024-12-21 
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

        靜思自在 : 靜坐常恩己過、閒談莫論人非。
返回列表 上一主題