누군가에게는 참 간단한 일인데 누군가에게는 너무 절박하고 힘들 일들이
많은 것 같습니다. 어제 잠깐 질문에 간단하게 댓글로 알려드렸는데 이해가
힘드신 모양입니다.
피봇테이블이 8개라 순서대로 하다가 잠시 다른 생각과 다른 일들이 생기면
했는지 안했는지 헷갈리고 다시 한 번 더 갱신하면 되는데 귀찮아서, 바빠서
그냥 갱신하지 않은 피봇테이블을 보고서에 올리는 경우가 있는가 봅니다.
업무를 하다보면 잘 하다가도 실수를 하게 됩니다.
VBA Editor여시고(Alt+F11) 삽입 > 모듈 추가하세요
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
Option Explicit Sub Auto_Pivot_Refresh() Dim pt As PivotTable Dim sht As Worksheet ' 속도를 위해 화면 갱신 중지 Application.ScreenUpdating = False ' 현재 워크북의 모든 시트를 돌며 모든 피봇테이블 갱신 For Each sht In Worksheets For Each pt In sht.PivotTables pt.RefreshTable Next pt Next sht ' 화면 갱신 활성화 Application.ScreenUpdating = True End Sub |
위에 설명보시면 이해하실 것입니다. 그리고 개발도구에서 디자인모드 활성화
옆의 삽입에서 ActiveX 명령 단추 하나 만드시고 그 명령단추 더블 클릭해서
아래 코드 붙여 주시고 저장하면 됩니다. 개발도구 디자인모드 해제!!!
|
|
Private Sub CommandButton1_Click() Call Auto_Pivot_Refresh End Sub |
필요할 때마다 버튼 눌러주면 현재 워크북의 모든 피벗테이블 갱신합니다.
속도를 위해 화면 갱신을 하지 않고 처리하므로 그냥 버튼 눌러주시면 됩니다.
첨부 파일 : 20160617-Pivot자동 갱신
6월 17 2016
엑셀(EXCEL) – 워크북의 모든 PivotTable을 버튼 하나로 모두 갱신하기
누군가에게는 참 간단한 일인데 누군가에게는 너무 절박하고 힘들 일들이
많은 것 같습니다. 어제 잠깐 질문에 간단하게 댓글로 알려드렸는데 이해가
힘드신 모양입니다.
피봇테이블이 8개라 순서대로 하다가 잠시 다른 생각과 다른 일들이 생기면
했는지 안했는지 헷갈리고 다시 한 번 더 갱신하면 되는데 귀찮아서, 바빠서
그냥 갱신하지 않은 피봇테이블을 보고서에 올리는 경우가 있는가 봅니다.
업무를 하다보면 잘 하다가도 실수를 하게 됩니다.
VBA Editor여시고(Alt+F11) 삽입 > 모듈 추가하세요
위에 설명보시면 이해하실 것입니다. 그리고 개발도구에서 디자인모드 활성화
옆의 삽입에서 ActiveX 명령 단추 하나 만드시고 그 명령단추 더블 클릭해서
아래 코드 붙여 주시고 저장하면 됩니다. 개발도구 디자인모드 해제!!!
필요할 때마다 버튼 눌러주면 현재 워크북의 모든 피벗테이블 갱신합니다.
속도를 위해 화면 갱신을 하지 않고 처리하므로 그냥 버튼 눌러주시면 됩니다.
첨부 파일 : 20160617-Pivot자동 갱신
By vinipapa • 무른모 • 0