この記事では、ダブルクリックブックイベントを作成して、レコードのメッセージボックスを作成します。

この例の生データは、名前、年齢、部門、既知の言語、国を含むIT部門のデータで構成されています。

ArrowMain

セルをダブルクリックすると、その特定の行のすべての詳細がメッセージボックスに表示されます。

ArrowOutput

ロジックの説明

この記事では、Worksheet_BeforeDoubleClickイベントを使用してメッセージボックスを作成しました。このイベントは、特定のセルをダブルクリックすると発生します。

コードの説明

Target.Column> 5の場合、Exit Sub上記のコードを使用して、ダブルクリックイベントが最初の5列でのみ機能するように制限します。

intCounter = 1から5の場合txt = txt&Cells(Target.Row、intCounter)&vbLf次のintCounter上記のコードは、データを行に連結するために使用されます。

vbLfは、改行を挿入するために使用されます。

コードについては以下に従ってください

'Add code in Sheet module

Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

'Declaring variables

Dim intCounter As Integer

Dim txt As String

'Checking that target column should not be greater than 5

If Target.Column > 5 Then Exit Sub

Cancel = True

'Getting values of target row in string

For intCounter = 1 To 5

txt = txt & Cells(Target.Row, intCounter) & vbLf

Next intCounter

'Displaying string message

MsgBox txt

End Sub

このブログが気に入ったら、FacebookやFacebookで友達と共有してください。

皆様からのご意見をお待ちしております。私たちの仕事を改善し、あなたのために改善する方法をお知らせください。 [email protected]までご連絡ください