コマンドボタンのイベント処理

コマンドボタンで用意されているイベントは以下の通りです。

イベント	発生条件
Click	マウスでクリック
DblClick	マウスで2 回クリック
Enter	別のコントロールからフォーカスを受け取る前
Exit	別のコントロールにフォーカスを移す直前
MouseDown	マウスボタンを押す
MouseUp	マウスボタンを離す
MouseMove	マウスボタンを動かす
Error	コントロールでエラーが検出され、呼び出し元のプログラムにエラー情報を返せないとき
BeforeDragOver	ドラッグ アンド ドロップ操作の実行
BeforeDropOrPaste	データをオブジェクトにドロップしようとするか、または貼り付けようとする

例としてClickイベントを試してみます。

フォームのコードウィンドウを開いて次のように入力します。

Private Sub actButton_Click()
    Range("B6").Value = nameText.Text
    Unload sampleForm
End Sub

Excelシート上に配置したマクロ実行用のボタンをクリックするとフォームが表示されます。そしてフォーム上のボタンをクリックすると、フォーム内のテキストボックスに入力した値をExcelのシートに表示します。

シート上のボタンから呼び出されるマクロは次の通りです。

Sub テスト()
    Load sampleForm
    sampleForm.actButton.Caption = "シートへ"
    sampleForm.Show
End Sub

ではまずExcelのシートを表示します。

ボタンをクリックするとマクロが呼び出されてフォームが表示されます。

フォーム上のテキストボックスに文字を入力します。

フォーム上の「シートへ」と書かれたボタンをクリックします。するとフォームは閉じられ、テキストボックスに入力された値がExcelのシート上に表示されます。

OfficePro