ＥＸＣＥＬでコマンドボタンを繰り返す方法を教えてください。

質問

ＥＸＣＥＬでコマンドボタンを作りました。
「テスト」と言う名前のボタンをつくったのですが、
その際「テスト」という名前のコマンドボタンを
100回続けて自動的にクリックすると言ったような
やり方はありますでしょうか？

回答No.2

KenKen_SP · ベストアンサー

こんにちは。

■ [コントロール ツールボックス] のボタンの場合

例えば、Sheet1 に CommandButton1 があり、下記のような内容と仮定します。

' // Sheet1 の CommandButton1 のクリックイベント
Private Sub CommandButton1_Click()
　　With Range("A1")
　　　　.Value = Val(.Value) + 1
　　End With
End Sub

> 100回続けて自動的にクリックする

こんな感じ。

Dim i As Long
For i = 1 To 100
　　Sheet1.CommandButton1.Object.Value = True
Next

しかし、このようにも書けます。

' // Sheet1 の CommandButton1 のクリックイベント
Private Sub CommandButton1_Click()
　　Call TestProc
End Sub

' // 標準モジュール
Sub TestProc()
　　With Worksheets("Sheet1").Range("A1")
　　　　.Value = Val(.Value) + 1
　　End With
End Sub

なら、100回連続で実行するなら

Dim i As Long
For i = 1 To 100
　　Call TestProc
Next

■ [フォーム] のボタンの場合

恐らく、マクロを割り当てていますよね？ 例えば、TestProc というマクロ
なら、やはり

Dim i As Long
For i = 1 To 100
　　Call TestProc
Next

とすれば良いのでは？

お礼

正にこの機能のボタンを求めていました！ありがとうございました。

回答No.3

Wendy02

こんばんは。

コマンドボタン（コントロールツール）の内容にもよりますが、例えば、以下のような場合、このようにします。

同じシートモジュールに、Test1 のように書きます。
変数 i は、モジュールレベルで共有しています。

Dim i As Long
Private Sub CommandButton1_Click()
　Cells(i, 1).Value = i
End Sub

Sub Test1()
　Range("A:A").ClearContents
　For i = 1 To 100
　　Call CommandButton1_Click
　Next i
End Sub

>「テスト」と言う名前のボタンをつくったのですが
コントロールの名前は、ご自身で変更してください。

お礼

ありがとうございました。作成することができました。

回答No.1

sakura9113

コマンドボタンを続けてクリックする理由は？
コマンドボタンをクリックしたときに呼び出されるものを１００回繰り返すのではダメなんですか？？？