728x90
| 엑셀 VBA 특정 셀선택 자동 매크로 실행 |
|
1
2
3
4
5
6
7
|
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Count = 1 Then
If Not Intersect(Target, Range("A1")) Is Nothing Then
Call 매크로이름
End If
End If
End Sub
|
cs |
| 응용 |
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Selection.Count = 1 Then
If Not Intersect(Target, Range("Q1")) Is Nothing Then
Call 전체보기
End If
End If
If Selection.Count = 1 Then
If Not Intersect(Target, Range("Q2")) Is Nothing Then
Call 일부보기
End If
End If
End Sub
|
cs |
728x90
'■ Excel > ㅡExcel VBA Code' 카테고리의 다른 글
| 엑셀VBA 선택한 셀 내용 클립보드에 복사 (0) | 2021.01.07 |
|---|---|
| 엑셀 행열 숨기기 개체를 시트 밖으로 이동할 수 없습니다. (0) | 2020.11.10 |
| 목록 내용 차례대로 빨간색으로 변경하기 (0) | 2020.10.22 |
| 엑셀 vba 클립보드 내용 붙여넣기 따옴표 없애기 (0) | 2020.07.14 |
| 엑셀 VBA 드롭다운 메뉴에서 선택하면 해당시트로 이동 (0) | 2020.05.20 |