Cells(3, 1).Select
If ActiveSheet.AutoFilterMode = False Then
Selection.AutoFilter '// 상시 필터 적용 옵션
End If
Sorting 처리 명령어
ActiveSheet.AutoFilter.Sort.SortFields.Clear
ActiveSheet.AutoFilter.Sort.SortFields.Add Key:= _
Range("C3:C" & endRow), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveSheet.AutoFilter.Sort
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
찾고자 하는 내용 검색
ActiveCell.Select
Cells.Find(What:="검색어", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, MatchByte:=False, SearchFormat:=False).Activate
ActiveCell.Offset(-1, 0).Range("A1").Select
설명 : ActiveCell 에서 "검색어" 를 입력하면 결과가 검색된다. 가령 찾고자 하는 게 "업무" 라고 한다면, 검색어 대신에 업무로 변경하면 된다.
ActiveCell.Offset(-1, 0).Range("A1").Select 의 의미는 ActiveCell 에서 Offset(-1,0) 즉 Offset(행,열) 만큼 이동하라는 의미이므로 -1 은 이전행, 0 열은 현재 셀에서 열의 이동은 없이 바로 위의 셀을 가리키게 된다.
'업무 능력 향상 > 엑셀 VBA 기초' 카테고리의 다른 글
[VBA] 번지를 기준으로 주소 데이터 분리 (0) | 2021.07.02 |
---|---|
VBA Sheet 이름 지정해서 복사 (1) | 2016.08.30 |
VBA 다중 정렬 (0) | 2016.07.19 |
VBA 문자열 공백제거 및 서식복사 (0) | 2016.07.18 |
[VBA기초] 셀내 줄바꿈 해제 (0) | 2016.07.16 |