教えて!ExcelVBA!

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

【ExcelVBA ブック操作】ブック内のシートがダブルクリックされた時に発生するイベントプロシージャを作成するにはどうすればいいの?教えて!

f:id:m_kbou:20200513090421p:plain

VBAでは操作をきっかけとして自動的に実行されるプロシージャの事を「イベントプロシージャ」と言います。自動実行のきっかけとなる操作の事を「イベント」と呼び、「イベント」はブックやワークシート、ユーザーフォーム等のオブジェクトに対して発生します。このイベントを利用して「ブック内のシートがダブルクリックされた時に発生するイベントプロシージャの作り方」について紹介します。

 

 

構文

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

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
  [実行する処理内容]
End Sub

[説明]:

ブック内のシートがダブルクリックされた時に発生するイベントプロシージャにはSheetBeforeDoubleClickプロシージャを使用します。[実行する処理内容]にはブック内のシートがダブルクリックされた際に実行させる内容を記述します。ShとTargetとCancelは引数となり、shはダブルクリックされたシートのオブジェクト、Targetはダブルクリック時にマウスに最も近いセルとなります。また、Cancelに「True」をセットするとイベントを中止し、「False」をセットするとイベントを実行します。初期値では「False」がセットされています。内容を纏めると、「ブック内のシートがダブルクリックされた時に[実行する処理組内容]を実行して下さい。」との意味になります。

[記述例]:

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
  MsgBox "シートがダブルクリックされました。"
End Sub

 

作り方

(1)VBE(VBA記述画面)を開きます。

※画面の開き方はこちらの手順を参考にして下さい。 

f:id:m_kbou:20200513090442p:plain

(2)ブックオブジェクトをダブルクリックします。

f:id:m_kbou:20200513090503p:plain

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

f:id:m_kbou:20200513090517p:plain

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

f:id:m_kbou:20200513090531p:plain

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

f:id:m_kbou:20200513090545p:plain

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

f:id:m_kbou:20200513090602p:plain

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

f:id:m_kbou:20200513090616p:plain

(8)「Workbook_SheetBeforeDoubleClick」イベントプロシージャが表示されます。

f:id:m_kbou:20200513090719p:plain

(9)(8)で作成したイベントプロシージャに実行させる内容を記述します。以下で記述例を3つ紹介します。

(例①)ブック内のシートがダブルクリックされた時にメッセージを表示する方法

ブック内のシートがダブルクリックされた時にメッセージを表示する方法について紹介します。

[プログラミング例①]:

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
  MsgBox "シートがダブルクリックされました。"
End Sub

内容は、「ブック内のシートをダブルクリックされた時に”シートがダブルクリックされました。”をMsgBoxで表示して下さい。」との意味になります。

f:id:m_kbou:20210618115616p:plain

[実行例①]:

今回の例としては、Book1.xlsmブックが開かれており、Book1.xlsmブックには上記で説明したプログラミング例①が記述されています。

(実行前)

Book1.xlsmブック内のSheet1シートをダブルクリックします。

f:id:m_kbou:20210618115633p:plain

(実行後) 

Book1.xlsmブック内のシートがダブルクリックされると同時に「シートがダブルクリックされました」が表示されます。(※シートがダブルクリックされた事で、プロシージャが実行されてメッセージが表示されました。)

f:id:m_kbou:20210618115647p:plain

[サンプル①]:

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

drive.google.com

(例②)ブック内のシートがダブルクリックされた時にダブルクリックされたシート名を表示する方法

ブック内のシートがダブルクリックされた時にダブルクリックされたシート名を表示する方法について紹介します。

[プログラミング例②]:

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
  MsgBox Sh.Name
End Sub

内容は、「ブック内のダブルクリックされたシート名をMsgBoxで表示して下さい。」との意味になります。

f:id:m_kbou:20210618120337p:plain

[実行例②]:

今回の例としては、Book1.xlsmブックが開かれており、Book1.xlsmブックには上記で説明したプログラミング例②が記述されています。

(実行前)

Book1.xlsmブック内のSheet1シートをダブルクリックします。

f:id:m_kbou:20210618120353p:plain

(実行後) 

Book1.xlsmブック内のシートがダブルクリックされると同時にダブルクリックされたシート名「Sheet1」が表示されます。(※シートがダブルクリックされた事で、プロシージャが実行されてメッセージが表示されました。)

f:id:m_kbou:20210618120407p:plain

[サンプル②]:

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

drive.google.com

(例③)ブック内のシートがダブルクリックされた時にダブルクリックされたセルに対し値が入力されているか否かを判定して表示する方法

ブック内シートがダブルクリックされた時にダブルクリックされたセルに対し値が入力されているか否かを判定して表示する方法について紹介します。

[プログラミング例③]:

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
  If (IsEmpty(Target) = True) Then
    MsgBox "対象セルには値が入力されていません。"
    Cancel = True
  Else
    MsgBox Target
  End If
End Sub

内容は、「ブック内シートのダブルクリックされたセルに値が入力されていない場合は、”対象セルには値が入力されていません。”をMsgBoxで表示し、イベントを中止して下さい。又は、値が入力されている場合には入力されている値をMsgBoxで表示して下さい。」との意味になります。

f:id:m_kbou:20210618122353p:plain

[実行例③]:

今回の例としては、Book1.xlsmブックが開かれており、Book1.xlsmブックには上記で説明したプログラミング例③が記述されています。

・セルに値が入力されていない場合

(実行前)

Book1.xlsmブック内のSheet1シートのA1セルをダブルクリックします。(※A1セルは空白となります。)

f:id:m_kbou:20210618122412p:plain

(実行後) 

A1セルがダブルクリックされると同時に「対象セルには値が入力されていません。」が表示されます。(※シートがダブルクリックされた事で、プロシージャが実行されてメッセージが表示されました。)

f:id:m_kbou:20210618122428p:plain

・セルに値が入力されている場合

(実行前)

Book1.xlsmブック内のSheet1シートのA1セルをダブルクリックします。(※A1セルには”●”が入力されています。)

f:id:m_kbou:20210618122443p:plain

(実行後) 

A1セルがダブルクリックされると同時にA1セルに入力されている値「●」が表示されます。(※シートがダブルクリックされた事で、プロシージャが実行されてA1セルの値が表示されました。)

f:id:m_kbou:20210618122501p:plain

[サンプル③]:

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

drive.google.com

ブック内のシートがダブルクリックされた時に発生するイベントプロシージャの作成方法についての説明は以上です。

 

おわりに

ブック内のシートがダブルクリックされた時に発生するイベントプロシージャの作成方法について説明しました。オブジェクトボックスでオブジェクトを選択すると、そのオブジェクト既定の「Workbook_Open」イントプロシージャが自動的に作成(上記(5)の内容)されます。不要な場合は削除して下さい。