Microsoft ExcelでVBAを使用して、ダブルクリックでレコードを表示
この記事では、ダブルクリックブックイベントを作成して、レコードのメッセージボックスを作成します。
この例の生データは、名前、年齢、部門、既知の言語、国を含むIT部門のデータで構成されています。
セルをダブルクリックすると、その特定の行のすべての詳細がメッセージボックスに表示されます。
ロジックの説明
この記事では、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]までご連絡ください