返回列表 上一主題 發帖

[發問] 請問在excel如何紀錄某儲存格變動的次數？

mnsmrtl

帖子
51 
主題
17 
精華
0 
積分
200 
點名
0  
作業系統
winxp 
軟體版本
officexp 
閱讀權限
20 
性別
男 
註冊時間
2010-7-31 
最後登錄
2018-9-19 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-10-26 11:36 | 顯示全部帖子

[發問] 請問在excel如何紀錄某儲存格變動的次數？

我的想法是用
Private Sub Worksheet_Change(ByVal Target As Range)

End Sub
但是不知道可不可以只針對該worksheet中的某個儲存格？
然後再設定一個public變數，每當儲存格變動時，x=x+1，最後回傳x

另外想再請教：
在abc()中call def(x,y)
sub def(x as integer,y as integer)

end sub
出現ByRef引數型態不符，該如何解決？

感謝
收藏 分享

mnsmrtl

帖子
51 
主題
17 
精華
0 
積分
200 
點名
0  
作業系統
winxp 
軟體版本
officexp 
閱讀權限
20 
性別
男 
註冊時間
2010-7-31 
最後登錄
2018-9-19 
2#
發表於 2010-10-27 11:55 | 顯示全部帖子
感謝版主幫忙，但第二個問題還是出現同樣結果
程式碼如下：
Sub strike()
    Dim i, j, k, l
    i = Round(Sheet3.Cells(2, "F") / 50, 0) * 50
    j = i Mod 100
    k = IIf(j = 0, i, (Int(i / 100) + 1) * 100)
    l = IIf(j = 0, i, Int(i / 100) * 100)  
strikein k, l
End Sub
Sub strikein(x As Single, y As Single)
    Sheet3.Cells(4, "M") = x
    Sheet3.Cells(4, "N") = y   
End Sub
其中k和l是有小數點的，所以應該是用single…吧？
錯誤訊息仍然是引數型態不符，再次感謝版主幫忙
不進則退

TOP

mnsmrtl

帖子
51 
主題
17 
精華
0 
積分
200 
點名
0  
作業系統
winxp 
軟體版本
officexp 
閱讀權限
20 
性別
男 
註冊時間
2010-7-31 
最後登錄
2018-9-19 
3#
發表於 2010-10-27 13:04 | 顯示全部帖子
另外想再請教，如果要把x輸出到cells(14,14)
我是這樣寫的
Private Sub Worksheet_Change(ByVal Target As Range)
    Static x As Integer
    If Target.Address = "H2" Then x = x + 1
    Cells(14, 14) = x
End Sub
不過似乎行不通
不進則退

TOP

mnsmrtl

帖子
51 
主題
17 
精華
0 
積分
200 
點名
0  
作業系統
winxp 
軟體版本
officexp 
閱讀權限
20 
性別
男 
註冊時間
2010-7-31 
最後登錄
2018-9-19 
4#
發表於 2010-10-28 09:53 | 顯示全部帖子
感謝版主，問題已經解決
不進則退

TOP

        靜思自在 : 心中常存善解、包容、感思、知足、惜福。
返回列表 上一主題