|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
1. 엑셀 버전(95,97,2000,2002):2000
2. 윈도우즈의 버전(win95,win98,winME,winNT,win2000,winXP):winXP
3. CPU (486,PentiumI/II/III/IV...):PentiumIV
4. RAM (32,64,128,256,512MB,1G...): 1G
* 아래줄에 질문을 작성하세요 >>
안녕하세요.
VBA강좌를 따라 해봤는데 잘 되지 않네요.
무엇이 문제지 몰라 질문합니다.부탁드려요.
==============[???님 글에 대한 답변입니다]==============
안녕하세요?
답변에 앞서서....
vba구문에서 큰 착각을 하신 부분이 있습니다.
구문은 다음과 같이 수정되어야 합니다.
Sub Macro1()
' Macro1 Macro
' 2003-09-05에 기록한 매크로
'
Application.ScreenUpdating = False
Sheets("데이터").Range("A1").CurrentRegion.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("조건").Range("D1:D2"), CopyToRange:=Range("A7:H7"), _
Unique:=False
Application.ScreenUpdating = True
End Sub
고급필터에서는 DisplayAlerts 구문이 들어갈 필요성이 전혀없습니다. 고급필터의 정상적인 사용법을 익히세요...
이하는 답변입니다.
???님이 첨부한 화일의 조건시트 d2셀은 "수식"으로 작성되어야 합니다.
=검색!D2 또는
=검색!D2&"*" 또는
="*"&검색!D2&"*" 으로....(이 세번째것이 여러모로 편리할겁니다.)
그럼 도움이 되시길.... |
|