... 사진첨부하였습니다 Sub 매크로1() If [b4] = "" Then [b4] = "*" Range("C7:C61").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("B3:B4"), Unique:=False End Sub 위처럼...
태그:
... Value = ar '고급필터링 Set rg = Range("B5:E26") rg.AdvancedFilter Action:=xlFilterInPlace, criteriarange:=frg 'frg영역 삭제 frg.Clear '메모리해제 If IsArray(ar)...
태그:
... VBA 공식을 좀 알려주세요!!! 아래 쓰인 코드는 다음과 같습니다 Sub... Range("B9:H10000").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("B6:C7") [b6] = "월" [b7]...
태그:
... 이렇게 VBA가 가능한지 물어보고 싶어요? 데이터 : http://blog.naver.com... CurrentRegion rng.AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Range("검색조건...
태그:
... CurrentRegion .AdvancedFilter Action:=xlFilterInPlace, Unique:=True For Each rng In... 이건 vba이나 다른거 안하고 간단한 수작업으로 하는 경우이구요 VBA...
태그:
... 뜬 vba 편집창에 다음과 같이 입력합니다 Sub 모서리가둥근직사각형1... Select Range("A1:G9").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Sheets("Sheet1...
태그: