데이터가있는 셀 범위가 있습니다. 텍스트 상자에서 셀을 클릭하면 텍스트 상자에 셀 내용이 표시됩니다. 이것이 가능한가? 감사
다음과 같이 사용할 수 있습니다.
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i As Long
Dim lRow As Long
lRow = Cells(Rows.Count, 1).End(xlUp).Rows
For i = 1 To lRow
If Cells(i, 1).Count = 1 Then
If Cells(i, 1) = "" Then
Else
If Not Intersect(Target, Cells(i, 1)) Is Nothing Then
MsgBox (i)
End If
End If
End If
Next i
End Sub
텍스트 상자가 아닌 메시지 상자에 값이 표시됩니다. 텍스트 상자가 필요한 이유를 잘 모르겠습니다.
내가 행을 의미하고, 변경 1
에 lRow = Cells(Rows.Count, 1).End(xlUp).Rows
작업중인 올바른 열 번호에
이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.
침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제
몇 마디 만하겠습니다