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

mnsmrtl

我的想法是用
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引數型態不符，該如何解決？

感謝

GBKEE

回復 1# mnsmrtl
http://forum.twbts.com/thread-1714-1-1.html
Private Sub Worksheet_Change(ByVal Target As Range)
  Static x
If Target.Address="$A$1" Then X=X+1
End Sub
****************
Sub abc()
def x ,y
end sub

mnsmrtl

感謝版主幫忙，但第二個問題還是出現同樣結果
程式碼如下：
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…吧？
錯誤訊息仍然是引數型態不符，再次感謝版主幫忙

mnsmrtl

另外想再請教，如果要把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
不過似乎行不通

GBKEE

回復 3# mnsmrtl
變數型態需相同
Sub strike()
    Dim i, j, k As Single, l As Single
    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 strike()
    Dim i, j
    i = Round(Sheet3.Cells(2, "F") / 50, 0) * 50
    j = i Mod 100
    strikein IIf(j = 0, i, (Int(i / 100) + 1) * 100), IIf(j = 0, i, Int(i / 100) * 100)
End Sub

回復 4#
請詳看VBA的  Address 說明
If Target.Address = "$H$2" Then
或是
If Target.Address(0, 0) = "H2" Then

mnsmrtl

感謝版主，問題已經解決