静的カウンタのリセット

Question

ユーザーがデータをインポートするExcelブックがあります。私はいくつの輸入が完了したのかを数える静的カウンタを持っています。 counter for code ..このマクロは、ユーザーがデータセットをインポートするたびに呼び出されます。

Public Sub Macro() 
Static i As Integer 
Worksheets("Hidden").Activate 

i = i + 1 

Cells(i + 1, 1).Select 
ActiveCell.FormulaR1C1 = "=" & i 

Cells(2, 2).Select 
ActiveCell.FormulaR1C1 = "=" & i 

End Sub 

は今、ユーザーが、私は、静的なカウンタをリセットしたい「データクリア」ボタンを押すと、シート内のすべてのデータを消去した場合。これをコード化する方法に関するアイデア？私はオンラインで探していて答えを見つけていません！ TIA

Answer 1

Static変数を使用する代わりに、Public変数（ルーチン外で宣言されています）を使用する必要があります。これは、他のマクロが「見る」ことができる唯一の方法です。

Public i As Integer 

Public Sub Macro() 
Worksheets("Hidden").Activate 

i = i + 1 

Cells(i + 1, 1).Select 
ActiveCell.FormulaR1C1 = "=" & i 

Cells(2, 2).Select 
ActiveCell.FormulaR1C1 = "=" & i 

End Sub 

Answer 2

オプションのブールFalseにデフォルトパラメータ「リセット」を追加します：カウンターをリセットするためにMacro Trueを呼び出します。

Public Sub Macro(Optional reset As Boolean = False) 

    Static i As Integer 
    If reset Then 
     i = 0 
     Exit Sub 
    End If 

    Worksheets("Hidden").Activate 

    i = i + 1 

    Cells(i + 1, 1).Select 
    ActiveCell.FormulaR1C1 = "=" & i 

    Cells(2, 2).Select 
    ActiveCell.FormulaR1C1 = "=" & i 

End Sub