Excel ユーザーフォームにコマンドボタンをつける

Excelで、ユーザーフォームコマンドボタンを作成する記録です。

< スポンサーリンク >





ユーザーフォームにボタンを作る

VBE上でコマンドボタンを作成したいユーザーフォームを表示し、[ツールボックス]をクリックします。

Excelユーザーフォームボタン

 

ツールボックスの[コマンドボタン]をクリックします。

Excelユーザーフォームボタン

 

ボタンの大きさにドラッグします。

Excelユーザーフォームボタン

 

ボタンが出来ましたが、「CommandButton1」と表示されているので、表示する文字を変更します。

コマンドボタンをアクティブにし、[プロパティウィンドウ]をクリックします。

Excelユーザーフォームボタン

 

[Caption]欄の値を変更すると、ボタンの文字が変わります。

Excelユーザーフォームボタン

 

ボタンをクリックすると、ユーザーフォームを閉じるように設定してみます。

コマンドボタンをダブルクリックします。

Excelユーザーフォームボタン

 

下図のように表示されます。

Excelユーザーフォームボタン

 

ユーザーフォームを閉じるには「Unload」を使います。

Private Sub CommandButton1_Click()
    Unload UserForm1
End Sub

Excelユーザーフォームボタン

 

ユーザーフォームを実行し、コマンドボタンをクリックすると、ユーザーフォームが閉じます。

Excelユーザーフォームボタン

Excelユーザーフォームボタン

 

< スポンサーリンク >※広告先のお問い合わせは広告主様にお願いします