ל-Excel אין שיטה מובנית לעדכון אוטומטי של טבלאות ציר. לכן, על מנת לעדכן טבלאות ציר כשחלים שינוים בבסיס הנתונים צריך ללחוץ על הכפתור ה-Refresh (או על הקיצור Alt+F5) או על Refresh All (Ctrl+Alt+F5) אם רוצים לרענן את כל טבלאות הציר בחוברת.
אפשר לגרום לעדכון אוטומטי של טבלאות הציר בחוברת באמצעות event פשוט. Event הינו מקרו שרץ כאשר מתרחש אירוע (event) מסוים בגיליון או חוברת הפעיל. הקוד של ה-event יש לכתוב במודול מיוחד של הגיליון.
נניח חוברת המכילה שני גיליונות: data (בסיס הנתונים של טבלת הציר) ו-report (טבלת הציר)
בלשונית של הגיליון data פותחים את התפריט ומפעילים את האופציה "view code".
בחלון של עורך ה-Vba שנפתח בוחרים ב"Worksheet" בחלון השמאלי של אזור העריכה
בחלון הימני בוחרים ב-Deactivate
הקוד, כאמור, פשוט
1 2 3 | Private Sub Worksheet_Deactivate() ActiveWorkbook.RefreshAll End Sub |
אפשר למחוק את ה- Worksheet_SelectionChange (זוהי ברירת המחדל של Excel)
ה-event גורם לכך שכל פעם שעוברים מ-data לגיליון אחר, כל טבלאות הציר של החוברת מתעדכנים.
אם טבלת הציר מבוססת על נתונים חיצוניים, נשתמש ב-Worksheet_Activate של הגיליון המכיל את טבלת הציר (report בדוגמה שלנו).
