トップ > 資格を活かすには > やってみよう!Excel VBAで業務改善! > 揺るぎない力編: 第7話「みんなで勉強会!?」1/4 :イベントプロシージャって面白い!

やってみよう!Excel VBAで業務改善! 新たなる挑戦編|第7話 「みんなで勉強会!?」

イベントプロシージャって面白い!

翌日の会社で星くんは、昨日八木くんに教えてもらったイベントプロシージャについて、
いろいろと試しています。

「なるほど、イベントはいろいろあるけど、
業務システムに応用できるものとなると、限られてくるんだな…」
星くんの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

「…あとは、適当なデータをワークシートに用意して…。
よし、実行!」

一覧にもどる