이 기사에서는 두 번 클릭 통합 문서 이벤트를 만들어 레코드에 대한 메시지 상자를 만듭니다.

이 예의 원시 데이터는 이름, 나이, 부서, 알려진 언어 및 국가를 포함하는 IT 부서 데이터로 구성됩니다.

ArrowMain

셀을 두 번 클릭하면 해당 특정 행의 모든 ​​세부 정보가 메시지 상자에 표시됩니다.

ArrowOutput

논리 설명

이 기사에서는 Worksheet_BeforeDoubleClick 이벤트를 사용하여 메시지 상자를 만들었습니다. 이 이벤트는 특정 셀을 두 번 클릭하면 시작됩니다.

코드 설명

Target.Column> 5 Then 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]로 문의 해주세요