|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 엑셀 버전(95,97,2000,xp,2003,2007):
* 아래줄에 질문을 작성하세요 >>
제가 사원번호를 입력 하면 부서코드, 부서명, 근속년수 등을 VLOOKUP 으로
불러오게 엑셀에 만들어 놓았고,
VLOOKUP으로 불러온 부서코드를 읽어서 피벗테이블 필터를 변경하도록 VBA 문구를 작성 하였는데 일단은 작동을 안 하는데 VLOOKUP을 읽어서 만들어진 부서코드 셀을 엔터 치면 작동을 합니다. 사원번호를 입력시 읽어 오도록 변경해도 되지만 저는 꼭 VLOOKUP 으로 읽어온 부서코드로 피벗테이블이 변경 되도록 하고 싶습니다.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sField As String, sDV_Address As String
sField = "BO_CD" ----부서코드 열명-----
sDV_Address = ("$E$4) -----Vlookup으로 불러온 셀-----
if intersect(Target, Range(sDV_Address)) is Nothing or _
Target.cells.count > 1 then exit sub
Application.EnableEvents = False
Call Single_page_Filter(Sheets("BO INFO")_
.PivotTable(1).PivotFields(sField), Target.Text)
Cleanup:
Application.EnableEvents = True
End Sub
제가 타이핑 하느라 오타는 있을 수 있는데 VLOOKUP 으로 입력된 셀엔터치면 작동은 하니 그부분은 감안하고 검토해 주시면 감사하겠습니다.
|
|