엑셀 VBA #32 / 자동필터_1 [VBA]
Dim sh1 As Worksheet, rng As Range
Set sh1 = Sheets("자동필터")
Set rng = Range("A1").CurrentRegion
If sh1.AutoFilterMode = False Then rng.AutoFilter
'만약 sh1 시트에 자동필터모드가 아니라면(false), rng영역에 자동필터해라
If sh1.FilterMode = True Then sh1.ShowAllData
'만약 sh1시트에 필터링 되었다면(즉 필터링 데이타가 보여진다면), sh1시트의 모든 데이타를 보이게 해라.
'구문 'FilterMode=True'에서 True는 생략 가능함. 즉 If sh1.FilterMode then sh1.ShowAllData로 해도 됨
rng.AutoFilter 2, Range("E2")
'rng영역에 자동필터해라, 자동필터 기준은 rng영역의 2번째이며 조건은 E2셀이다.
rng.SpecialCells(xlCellTypeVisible).Copy Range("A20")
'rng영역에서 보여지는 셀들(Visible SpecialCells) A20셀에 복사해라
https://www.youtube.com/watch?v=GqDstYjUv00&list=PLfxvqpVCYZ8e0qlyc_FU46neoWjO7yTWj&index=32
엑셀 VBA #09 / 셀 범위 선택하기_4 [VBA] - SpecialCells
'엑셀로 풀어가는 세상' 카테고리의 다른 글
| 엑셀 VBA #36 / 행삽입_기본 [VBA] (0) | 2023.12.14 |
|---|---|
| 엑셀 VBA #35 / 고급필터 [VBA] (0) | 2023.12.14 |
| 엑셀 VBA #34 / 사용자정의 함수 [VBA] (0) | 2023.12.14 |
| 엑셀 VBA #33 / 자동필터_2 [VBA] (0) | 2023.12.14 |
| 엑셀 VBA #31 / 정렬_2 [VBA] - 예제 (0) | 2023.12.14 |
| 엑셀 VBA #30 / 정렬_1 [VBA] (0) | 2023.12.14 |
| 엑셀 VBA #29 / VBA함수(split) [VBA] (0) | 2023.12.13 |
| 엑셀 VBA #28 / 워크시트 함수 [VBA] - Match이용 (0) | 2023.12.13 |
