教えて!ExcelVBA!

ExcelVBAの基礎知識・書き方について紹介します。

【ExcelVBA フォーム&コントロール】フォームがダブルクリックされた時に処理を実行する方法を教えて!

f:id:m_kbou:20210123095401p:plain

フォームがダブルクリックされた時に処理を実行するには、フォームのDblClickイベントプロシージャを使用します。その使い方について説明します。

 

 

構文

イベントプロシージャの記述方法は以下の通りです。

Private Sub[オブジェクト名]_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
  [実行する処理内容]
End Sub

[説明]:

フォームがダブルクリックされた時に処理を実行させるイベントプロシージャはDblClickプロシージャを使用します。[オブジェクト名]にはフォームのオブジェクト名を記述します。また、[実行する処理内容]にはフォームがダブルクリックされた時に実行する処理内容を記述します。内容を纏めると、「[オブジェクト名]で指定したフォームがダブルクリックされた場合、[実行する処理内容]を実行して下さい。」との意味になります。

[記述例]:

Private Sub UserForm_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    MsgBox "画面がダブルクリックされました。"
End Sub

[サンプル画面]: 

今回は以下のサンプル画面を使用して処理を実行する方法について説明します。
※サンプル画面の作成方法については、こちらを参考にして下さい。

f:id:m_kbou:20210120090051p:plain

サンプル画面のフォーム名は以下の内容となります。

f:id:m_kbou:20210121112143p:plain

 

DblClickイベントプロシージャの記述方法

(1)VBE(VBA記述画面)を開き、フォームにあるUserForm1フォームをダブルクリックします。(※VBEの開き方についてはこちらを参考にして下さい。)

f:id:m_kbou:20210121112716p:plain

(2)UserForm1フォームが表示されるので、フォーム上の任意の場所で右クリックします。そうすると小窓が開くので、「コードの表示」を選択します。

f:id:m_kbou:20210121112728p:plain

※この時点で「UserForm_Click」イベントプロシージャが表示されます。(これは自動的に作成される仕組みとなっているようです)

f:id:m_kbou:20210121112741p:plain

(3)オブジェクトボックスの▼ボタンをクリックします。

f:id:m_kbou:20210123095502p:plain

(4)プルダウン一覧の中から「UserForm」を選択します。

f:id:m_kbou:20210123095536p:plain

(5)プロシージャボックスの▼ボタンをクリックします。

f:id:m_kbou:20210123095552p:plain

(6)プルダウン一覧の中から「DblClick」を選択します。

f:id:m_kbou:20210123095610p:plain

(7)「UserForm_DblClick」イベントプロシージャが表示されます。(※このUserForm_DblClickイベントプロシージャの中に実行する処理内容を記述する事で、フォームがダブルクリックされた時に処理を実行する事ができます。)

f:id:m_kbou:20210123095628p:plain

(8)UserForm_DblClickイベントプロシージャに実行する処理を記述します。今回はフォームがダブルクリックされた時に「画面がダブルクリックされました。」を表示させる方法について紹介します。

記述は以下の通りとなります。

[記述例]:

Private Sub UserForm_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
  MsgBox "画面がダブルクリックされました。"
End Sub

内容を説明すると、

「UserForm1フォームがアクティブになった時に”画面がダブルクリックされました。”のメッセージを表示して下さい。」

との意味になります。

f:id:m_kbou:20210123095645p:plain

(9)フォームにあるUserForm1フォームをダブルクリックします。

f:id:m_kbou:20210123095659p:plain

(10)UserForm1フォームが表示されるので、一度フォーム上でクリックをした後にメニューにある実行ボタン(▶)をクリックします。

f:id:m_kbou:20210123095712p:plain

(11)UserForm1画面が表示されるので、画面上でクリックします。 

f:id:m_kbou:20210123095726p:plain

(12)画面をダブルクリックすると、「画面がダブルクリックされました。」のメッセージが表示されます。(※DblClickイベントプロシージャが有効に実行された事がわかります。)

f:id:m_kbou:20210123095738p:plain

DblClickイベントプロシージャの記述方法についての説明は以上です。

 

サンプル

上記で説明したファイルをダウンロードできます。ご自由にお使い下さい。

drive.google.com

 

おわりに

今回はフォームがダブルクリックされた時に処理を実行する方法について説明しました。様々なケースで画面をダブルクリックする場面があると思います。場面場面に応じた処理内容を記述して有効に活用してみて下さい。また、似たようなイベントプロシージャに、フォームがクリックされた時に処理を実行するClickイベントプロシージャもあります。こちらも一緒に覚えておいて下さい。