데이터 집계표를 더블클릭시 그 조건으로 고급필터가 가능할까요?

@119구조대 님 안녕하세요. 119 구조대님

workbook 더블클릭 이벤트를 사용해 보세요.

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

Dim sh1 As Worksheet
Dim sh2 As Worksheet
Dim 용도 As String
Dim 년도 As String

Set sh1 = Worksheets("Sheet1")
Set sh2 = Worksheets("집계표")

If Not Intersect(Range("A1").CurrentRegion, Range(Target.Address)) Is Nothing Then

용도 = Application.WorksheetFunction.Index(Range("a:a"), ActiveCell.Row)
년도 = Left(Application.WorksheetFunction.Index(Range("1:1"), ActiveCell.Column), 4)

sh1.Activate
Range("n7").Select
Range("n2:s2").ClearContents
Range("r2") = 용도
Range("s2") = 년도

Call 매크로1

End If

End Sub

수고하세요.

첨부파일 : 고급필터-예제_22-05-20.xlsm