エクセルで回数をカウントするマクロ

いつもありがとうございます。
ボタンを押すごとに回数をカウントするマクロをつくりたいのです。ためしに、

Sub testcount()
Dim a As Integer
a = Cells(1, 1).Value
a = a + 1
Cells(1, 1) = a
MsgBox a
End Sub

とやってみて何とかできましたが、できればワークシートに数値を入れずに出来る方法はないのでしょうか？
贅沢いってすみません。

No.1 ベストアンサー 回答者： rara_sun 回答日時： 2003/05/20 16:53

方法(1) カウンタをグローバル変数にして、Ｅｘｃｅｌ起動時に、カンタに０をセットして、カンタの加算は、グローバル変数にて実施する。

方法(2) カウンタ用のデータファイルを作成する。

方法(3) レジストリにカウンタ変数を用意する。

こんな感じでいかがでしょうか？

この回答への補足

早速ありがとうございます。
でも
グローバル変数？
カウンタ用のデータファイル？
レジストリにカウンタ変数を用意？
何がなんだかわかりません。参った。
わたしが解る変数は、IntegerとLongが数値、Stringが文字列くらいの知識レベルなのです。トホホ。

補足日時：2003/05/20 16:55

この回答へのお礼

ありがとうございます。
グローバル変数を検索してできました！
意味はよくわかりませんでしたがDimのかわりにStaticを使えばいいのですね？
やってみたらうまく行きました。

Sub GLOBALTEST()

Static a As Integer

a = a + 1
MsgBox a

End Sub

お礼日時：2003/05/20 17:15

No.2 回答者： imogasi 回答日時： 2003/05/20 22:05

シートにボタンを１つ貼りつけ、それをダブルクリックし

Private Sub CommandButton1_Click()
End Sub
が出たところで
Private Sub CommandButton1_Click()
Static a
a = a + 1
CommandButton1.Caption = a
End Sub
として実行してください。
クリックするごとに１アップします。
これではダメな点は勉強して対策を講じてください。

この回答へのお礼

ありがとうございます。
これはボタンにカウントした数字が出るやり方ですね。
とってもいいです。

お礼日時：2003/05/21 09:25