在本文中，我们将创建一个双击工作簿事件以为该记录创建一个消息框。

此示例的原始数据由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]