아래 코드를 사용하여 셀 A1, A2, A3 ... 일 때 표시되는 메시지 상자를 만들고 A9가 선택 될 때까지 따옴표 안에있는 텍스트와 셀 V1 (+21), W1의 텍스트를 표시합니다. 예를 들어 A1을 선택한 경우 (+22) 및 X1 (+23), A2를 선택하면 아래 코드의 텍스트 문자열은 물론 V2, W2 및 X2 셀의 텍스트도 표시됩니다. 모든 10836 행에 대해이 작업을 수행해야하지만이 방법을 사용하면 160 개의 경우가 한계 인 것처럼 보입니다. 이 작업을 수행하는 더 효율적인 방법이 있습니까? 어떤 도움을 주시면 감사하겠습니다
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column = 1 Then
Select Case Target.Row
Case 1, 2, 3, 4, 5, 6, 7, 8, 9
MsgBox "Changes : " & Cells(Target.Row, Target.Column + 22) & vbNewLine & " ABC Comments: " & Cells(Target.Row, Target.Column + 23) & vbNewLine & "XYZ Comments: " & Cells(Target.Row, Target.Column + 21), vbInformation, "Comments"
Case Else:
End Select
End If
End Sub
나는 Darren Bartrup-Cook과 같은 생각을하고있었습니다. 여기에 전체가 있습니다.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim LastRow As Integer
LastRow = 10836
If Target.Count > 1 Then Exit Sub
If Target.Column = 1 Then
Select Case Target.Row
Case 1 To LastRow
MsgBox "Changes : " & Cells(Target.Row, Target.Column + 22) & vbNewLine & " ABC Comments: " & Cells(Target.Row, Target.Column + 23) & vbNewLine & "XYZ Comments: " & Cells(Target.Row, Target.Column + 21), vbInformation, "Comments"
Case Else:
End Select
End If
End Sub
이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.
침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제
몇 마디 만하겠습니다