[땡큐엑셀vba & 엑셀매크로] 고급필터를 사용하여 데이터검색

data 시트

 

 

5월 검색

 

핸드폰 검색

 

'http://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=281810490
'아래처럼 'data' 시트에 자료가 있고 '조회'시트에서 검색을 하면 검색조건에 맞는 결과를 출력하는걸 만드려고 합니다. 어떻게 만들어야할지 모르겠어......엑셀가계부로 검색해봤는데 너무 어려워서 좀 도와주세요.


' AdvancedFilter,WorksheetFunction.Sum
'
' source by 땡큐엑셀vba & 엑셀매크로
'
Sub 고급필터()
'

    '결과영역 삭제
    Range("A10").CurrentRegion.Clear
    
    
    'data시트 A:I열에서 조건에 맞는 값을 찾아 A10부터 출력한다
    Sheets("data").Columns("A:I").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("A1:I2"), CopyToRange:=Range("A10"), Unique:=False
        
        
 
    Set 마지막셀 = Cells(Rows.Count, "E").End(xlUp)
    
    '누적금액
    '마지막셀 다음행에 누적금액 출력
    마지막셀.Offset(1, 0) = Application.WorksheetFunction.Sum(Range("E11:E" & 마지막셀.Row))
    
    
    MsgBox "완료되었습니다", vbInformation, "땡큐엑셀vba & 엑셀매크로"
    
End Sub

 

가계부-고급필터사용하여 데이터검색-AdvancedFilter,WorksheetFunction.Sum-땡큐엑셀vba.xlsm

0.05MB