Trong bài viết này, chúng tôi sẽ tạo sự kiện sổ làm việc nhấp đúp để tạo hộp thông báo cho bản ghi.

Dữ liệu thô cho ví dụ này bao gồm dữ liệu bộ phận CNTT, bao gồm Tên, Tuổi, Phòng ban, Ngôn ngữ đã biết và Quốc gia.

ArrowMain

Khi chúng ta nhấp đúp vào một ô, tất cả các chi tiết của hàng cụ thể đó sẽ được hiển thị trong một hộp thông báo.

ArrowOutput

Giải thích logic

Trong bài viết này, chúng tôi đã sử dụng sự kiện Worksheet_BeforeDoubleClick để tạo hộp thông báo. Sự kiện này sẽ được kích hoạt khi chúng ta nhấp đúp vào một ô cụ thể.

Giải thích mã

If Target.Column> 5 Then Exit Sub Mã trên được sử dụng để hạn chế sự kiện nhấp đúp chỉ hoạt động cho 5 cột đầu tiên.

Đối với intCounter = 1 To 5 txt = txt & Cells (Target.Row, intCounter) & vbLf Tiếp theo intCounter Đoạn mã trên được sử dụng để nối dữ liệu trong một hàng.

vbLf được sử dụng để chèn nguồn cấp dòng.

Vui lòng theo dõi bên dưới để biết mã

'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

Nếu bạn thích blog này, hãy chia sẻ nó với bạn bè của bạn trên Facebook và Facebook.

Chúng tôi rất muốn nghe ý kiến ​​từ bạn, hãy cho chúng tôi biết cách chúng tôi có thể cải thiện công việc của mình và làm cho nó tốt hơn cho bạn. Viết thư cho chúng tôi [email protected]