OfficeType
  1. ホーム
  2. Excel VBA
  3. ユーザーフォーム
  4. ユーザーフォームにコマンドボタンを設定しよう

VBA～ユーザーフォームにコマンドボタンを設定しよう～Excel

ユーザーフォームにコマンドボタンを設定する方法を解説します。

左のプロジェクトの中で右クリック、挿入にマウスを当てユーザーフォームをクリックするとフォームというフォルダが作成されUserForm番号というファイルが作成されます。

image-01

image-02

ファイルをクリックするとユーザーフォームが表示されます。

image-03

ツールボックスの下段のabマーク(コマンドボタン)をクリックしユーザーフォームのテキストボックスを表示したい箇所でクリックするとコマンドボタンが設定さます。ツールボックスが表示されていない場合はメニューの表示からツールボックスをクリックすると表示されます。

image-04

image-05

image-06

VBAで下のコードを実行すると作成したユーザーフォームが表示されます。 

Sub test1()

UserForm1.Show

End Sub

image-07

コマンドボタンを押したときの処理の作成

コマンドボタンをダブルクリックすると下のコードが表示されます。 

Private Sub CommandButton1_Click()

End Sub

ここに処理内容を書き込めばコマンドボタンをクリックしたときの処理を設定できます。今回は下のコードにコマンドボタンをクリックするとセルA1を赤くする処理を書き込みました。 

Private Sub CommandButton1_Click()
Range("A1").Interior.Color = RGB(255, 0, 0)
Unload UserForm1
End Sub

VBAで下のコードを実行すると作成したユーザーフォームが表示されCommandButtonをクリックするとセルA1が赤くなります。 

Sub test1()

UserForm1.Show

End Sub

image-08

image-09