안녕하세요?
시트의 Selection Change 이벤트를 이용하시면 됩니다.
Private Sub Worksheet_Selecti[안내]태그제한으로등록되지않습니다-xxonChange(ByVal Target As Range)
With Target
If Not Intersect(Target, Range("선택범위")) Is Nothing Then
If .Cells.Count = 1 Then
If .Value = "V" Then
.ClearContents
Else
.Value = "V"
End If
End If
End If
End With
End Sub
첨부파일첨부된 파일이 1개 있습니다.
다음검색