<10-1 자동 필터>
작성자 정보
-
모아 작성
- 작성일
컨텐츠 정보
- 10 조회
- 0 추천
- 0 비추천
- 목록
본문
<10-1 자동 필터>
Dim sh1 As Worksheet
Dim rng As Range
Set sh1 = Sheets("자동필터")
Set rng = sh1.Range("a1").CurrentRegion
If sh1.AutoFilterMode = 0 Then rng.AutoFilter
If sh1.FilterMode Then sh1.ShowAllData
rng.AutoFilter 2, Range("e2")
Range("a22").CurrentRegion.Clear
If rng.SpecialCells(xlCellTypeVisible).Count = 3 Then
MsgBox "해당되는 데이터 없음"
sh1.ShowAllData
Exit Sub
End If
rng.SpecialCells(xlCellTypeVisible).Copy Range("a22")
sh1.ShowAllData
출처: https://lesserpainbetterlife.tistory.com/812 [전진수블로그 ✝ = ♥:티스토리]
|
|
포인트 선물 선물명단 선물하기
최소 5P ~ 최대 100000000P 까지 가능합니다.
로그인 후 선물하실 수 있습니다.
선물 받은 내용이 없습니다.
관련자료
모아
ex.9
-
등록일 02.23
-
등록일 02.23
-
등록일 02.23
-
등록일 02.23
댓글 0
등록된 댓글이 없습니다.