イベントプロシージャって面白い!
翌日の会社で星くんは、昨日八木くんに教えてもらったイベントプロシージャについて、
いろいろと試しています。
「なるほど、イベントはいろいろあるけど、
業務システムに応用できるものとなると、限られてくるんだな…」
星くんのPCには、VBEが起動しています。
Sheet1シートのモジュールで、プロシージャボックスを開き、
表示されるイベントを眺めながら星くんはつぶやきました。
「やはり八木が教えてくれた、BeforeDoubleClickやBeforeRightClick、
SelectionChangeあたりが使えそうだな…
とりあえず、BeforeDoubleClickを試してみるか…」
星くんがプロシージャボックスから、BeforeDoubleClickを選択します。
するとコードウィンドウに、Worksheet_BeforeDoubleClickという名前のプロシージャが挿入されました。
「…こいつは、ワークシートをダブルクリックしたときに実行されるイベントプロシージャだったな…。
ということは…」
星くんは、挿入されたイベントプロシージャに次のコードを記述します。
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
MsgBox "選択した行の" & vbCrLf & _
"A列には、" & Cells(Target.Row, 1).Value & vbCrLf & _
"B列には、" & Cells(Target.Row, 2).Value & vbCrLf & _
"C列には、" & Cells(Target.Row, 3).Value & vbCrLf & _
"D列には、" & Cells(Target.Row, 4).Value & vbCrLf & _
"E列には、" & Cells(Target.Row, 5).Value & vbCrLf & _
"が入力されています"
End Sub
「…あとは、適当なデータをワークシートに用意して…。
よし、実行!」