チャレンジ：絶対初心者のためのMS Excel VBAプログラミング

Question

私はVBA For Dummiesと上記の本の組み合わせを使ってVBAを学んでいます。後者は、簡単な挑戦（チャレンジ2、第2章）を提供しています。私はいくつかのフィードバックについていくつか質問したいと思います。

課題は次のとおりです。

置き、ワークシート上のコマンドボタンコントロールとクリックでプログラムを書く（）は、マウスのすべてのクリックと5、変数をインクリメント イベントプロシージャ。 この変数の値をメッセージボックスに出力します。

私は応答コードスニペット以下にまとめました：

Sub CommandButton1_Click() 
Dim AddClick As Integer 

AddClick = Range("A1").Value 
AddClick = AddClick + 5 
Range("A1").Value = AddClick 

MsgBox AddClick 

End Sub 

コードは動作しますが、私は「対応範囲（ 『A1』の使用を排除する方法がありますかなり確信しています）.Value '' AddClick '変数を基にします。これをどうやってやりますか？

*アップデート：Cody Grayの提案（http://articles.techrepublic.com.com/5100-10878_11-5854605.html）のおかげで、私はコードを次のように改訂しました。さらなる簡素化のために編集された）：*

Sub CommandButton1_Click() 
Static AddClick As Integer 

AddClick = AddClick + 5 

MsgBox AddClick 

End Sub 

シンプル。もう一度コーディに感謝します。

Answer 1

前のサンプルは両方とも間違っていると思います。正しいバージョンは次のとおりです。

Sub CommandButton1_Click() 
    Static AddClick As Integer 
    AddClick = AddClick + 5 
    MsgBox AddClick 
End Sub 

Answer 2

モジュールレベルで変数を定義します。
これを行うと、プロシージャからモジュールへの変数のスコープが増加します。

既存のコードをこのコードに置き換えます。

Option Explicit 
Dim AddClick As Integer 

Sub CommandButton1_Click() 
    AddClick = 0 
    AddClick = AddClick + 5 

    MsgBox (AddClick) 
End Sub 

注：プロシージャ・レベルで変数を定義すると、その寿命が制限されます。
、つまり、変数はプロシージャの範囲外にアクセスできません。