| 회원 방문 수 |
8,351,584 명 |
| 접속 인원 수 |
4,084 명 |
| |
 |
홈 > 묻고답하기 |
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("B:I")) Is Nothing Then Exit Sub 'B:I열 외 클릭했을 경우 종료
If Target.Count > 1 Then Exit Sub 'B:I열 셀을 범위로 선택한 경우 종료
Application.EnableEvents = False '이벤트 비활성
If Target.Value = "" Then '선택한 셀에 아무것도 없을 경우
Target.Value = "√" '√을 입력
Else '선택한 셀에 무엇인가 있을 경우
Target.Value = "" '빈 값 입력
End If
Target.Offset(0, 1).Activate '현재 선택한 셀을 기준으로 오른쪽 셀로 이동
Application.EnableEvents = True '비활성된 이벤트 활성
End Sub
|
| |
|
|
|
