|
파일대체가 안되네요...압축해서 다시 올립니다.
==============[스완님 글에 대한 답변입니다]==============
안녕하세요? 스완 님!
...파일이 엉뚱한 이유로 커져 있군요^^;;
VBA는 천천히 공부하시고
고급 필터를 어떻게 하는 것인지부터 먼저 공부하심이 좋겠습니다.
첨부한 파일을 참고하세요...
그럼...행운이 있으시길...!
Sub export()
'
' export Macro
' Seung-wan SUH이(가) 2003-07-04에 기록한 매크로
'
' 바로 가기 키: Ctrl+e
'
Dim rngDb As Range
Dim lngR As Long
Dim rngCri As Range
With Worksheets("Base")
lngR = .Range("A65536").End(xlUp).Row
Set rngDb = .Range("A4:J" & lngR)
End With
Set rngCri = Worksheets("Parameters").Range("H6:H7")
Worksheets("Monthly").Cells.Clear
rngDb.AdvancedFilter xlFilterCopy, rngCri, Worksheets("Monthly").Range("A1"), False
'아래는 불필요해 보이는군요...^^;;
' Range("A4:J30").AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:= _
' Range("K4:K5"), Unique:=False
' Cells.Select
' Selection.Copy
' Sheets("Monthly").Select
' Range("A1").Select
' Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
' False, Transpose:=False
' Sheets("Base").Select
'
' Application.CutCopyMode = False
' ActiveSheet.ShowAllData
' Range("A5").Select
' Sheets("Monthly").Select
' ActiveWindow.SmallScroll ToRight:=3
' Range("K4").Select
' ActiveCell.FormulaR1C1 = "서울색인"
' Range("K5").Select
' ActiveCell.FormulaR1C1 = "=MID(RC[-7],4,1)=Parameters!R11C[-5]"
' Range("K5").Select
' Selection.AutoFill Destination:=Range("K5:K30"), Type:=xlFillDefault
' Range("K5:K30").Select
' ActiveWindow.SmallScroll ToRight:=-3
' Range("G2").Select
' Selection.ClearContents
' Range("E2").Select
' ActiveCell.FormulaR1C1 = "Ctrl+s: only Seoul sales"
' Range("A5").Select
End Sub
|
|