|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
1. 엑셀 버전(95,97,2000,2002):
2. 윈도우즈의 버전(win95,win98,winME,winNT,win2000,winXP):
3. CPU (486,PentiumI/II/III/IV...):
4. RAM (32,64,128,256,512MB,1G...):
* 아래줄에 질문을 작성하세요 >>
안녕하세요 피벗테이블 관련 매크로를 계속해서 실행하면은 스크롤바나 박스들이
하나둘씩 없어지는데요. 왜 그럴까요? 좀 긴 코드를 실행하면 6번만에 없어지고
아래와 같은 코드를 실행하면 한 30번하면 스크롤바 없어지고 100번정도실행하면
텍스트박스 없어지고... 왜그런지 부탁.. 그리고 해결책부탁합니다.
Private Sub CommandButton1_Click()
On Error Resume Next
Dim dateitem As Variant
Dim dateitem3 As Variant
Application.ScreenUpdating = False
ActiveSheet.PivotTables("피벗 테이블1").PivotFields("확인").CurrentPage = "(공백)"
YMD = Range("A1") & Right("0" & Range("A2"), 2) & Right("0" & Range("A3"), 2)
With ActiveSheet.PivotTables("피벗 테이블1") '.PivotFields("출고예정일")
ReDim dateitem(.PivotFields("출고예정일").PivotItems.Count) As Variant
.PivotFields("출고예정일").PivotItems(YMD).Visible = True
r = 1
For x = 1 To .PivotFields("출고예정일").PivotItems.Count
dateitem(r) = .PivotFields("출고예정일").PivotItems(x).Name
.PivotFields("출고예정일").PivotItems(dateitem(r)).Visible = True
r = r + 1
Next
End With
ActiveSheet.PivotTables("피벗 테이블1").PivotFields("출고예정일").AutoSort xlAscending, _
"출고예정일"
ActiveSheet.PivotTables("피벗 테이블1").PivotFields("출고예정일").AutoSort xlManual, _
"출고예정일"
Application.ScreenUpdating = True
End Sub
==============[준호님 글에 대한 답변입니다]==============
파일첨부해서 올립니다. 날짜를 제컴퓨터에서는 11번 누르면 이상해지네요
|
|