Excel 자동 필터를 VBA로 조금 편리하게
사용법
자동 필터가 적용된 시트에서 필터링하려는 값의 셀을 선택하고,
키보드의 [END] 키를 누르면 부분 일치로 필터링
다시 누르면 해제
코드
ThisWorkbook.cls
Option Explicit
Private Sub Workbook_Open()
Application.OnKey "{END}", "ThisWorkbook.FilterOnOff"
End Sub
Sub FilterOnOff()
Dim a As AutoFilter, c As Long, v As String
With ActiveCell
Set a = .Parent.AutoFilter
If a Is Nothing Then Exit Sub
c = .Column - a.Range.Column + 1
If c < 1 Or a.Filters.Count < c Then Exit Sub
v = "*" & .Value & "*"
End With
With a
If .Filters(c).On Then
.Range.AutoFilter c
Else
.Range.AutoFilter c, v
End If
End With
End Sub
Reference
이 문제에 관하여(Excel 자동 필터를 VBA로 조금 편리하게), 우리는 이곳에서 더 많은 자료를 발견하고 링크를 클릭하여 보았다 https://qiita.com/jinoji/items/d9dfdf4541a5e396f22c텍스트를 자유롭게 공유하거나 복사할 수 있습니다.하지만 이 문서의 URL은 참조 URL로 남겨 두십시오.
우수한 개발자 콘텐츠 발견에 전념 (Collection and Share based on the CC Protocol.)