こまとのblog

エクセルVBA勉強中。自分用のメモなど

【エクセルVBA】ユーザーフォームに『閉じる』ボタンを追加する

ユーザーフォームに『閉じる』ボタンを追加し、ユーザーフォームを閉じるところまで。

 

ユーザーフォームの作り方は以下の記事を参考に。

komatokss.hatenablog.com

 

ユーザーフォームに『閉じる』ボタンを追加する。

 

ツールボックスから『コマンドボタン』をクリックする。

f:id:komatokss:20211004122838p:plain

 

ユーザーフォーム上でクリックした後、ドラッグしボタンサイズを決め配置する。

f:id:komatokss:20211004123310p:plain

 

コマンドボタンの表示『CommandButton』を『閉じる』にする。

画面左下の『プロパティ -CommandButton1』の下部にある『Caption』の右欄が『CommandButton』になっているのでここに『閉じる』を入力する。

f:id:komatokss:20211004214348p:plain

 

ボタンにマクロを追加する。

作成した『閉じる』ボタンをクリックする。

『閉じるボタンを押したとき』に実行されるプログラムを記述する画面に移動する。

f:id:komatokss:20211004214844p:plain

 

『Private Sub CommandButton1_Click()』と『End Sub』の間にコードを記述していく。

f:id:komatokss:20211004215355p:plain

※『Unload』の前の空白は『TAB』キーを押す。

 

保存し、このページを閉じる。

 

あとは、実行テストしてみる。

ユーザーフォームを開くボタンを作成したエクセルシートを開く。

ボタンを押し、ユーザーフォームを開く。

ユーザーフォームにある『閉じる』ボタンを押す。

ユーザーフォームが閉じる。

完了