В этой статье мы создадим событие книги с двойным щелчком, чтобы создать окно сообщения для записи.

Необработанные данные для этого примера состоят из данных ИТ-отдела, которые включают имя, возраст, отдел, известный язык и страну.

ArrowMain

Когда мы дважды щелкаем по ячейке, все детали этой конкретной строки будут отображаться в окне сообщения.

ArrowOutput

Логическое объяснение

В этой статье мы использовали событие Worksheet_BeforeDoubleClick для создания окна сообщения. Это событие будет запущено, когда мы дважды щелкнем по определенной ячейке.

Объяснение кода

Если Target.Column> 5 Then Exit Sub Above code используется для ограничения работы события двойного щелчка только для первых 5 столбцов.

Для intCounter = от 1 до 5 txt = txt & Cells (Target.Row, intCounter) & vbLf Next 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]