שאלה לגבי סינון בטבלת ציר באמצעות VBA

[ל13]

שאלה לגבי סינון בטבלת ציר באמצעות VBA

הי,

אשמח לעזרתכם...
מישהו יודע במקרה מה הקוד ב-VBA שמבצע סינון בטבלת ציר, כאשר הדרישה היא לבחור ב*מסנן הראשי* של הטבלה את *כל הפרמטרים*, *פרט לאחד* שאציין בקוד? כשאני מקליט סינון כזה, אני מקבל בקוד פקודה נפרדת לכל פרמטר שכן נבחר בסינון, ויש עשרות רבות כאלה והם משתנים מפעם לפעם... אני מחפש קוד שבאופן קבוע יבחר את כולם באופן גורף, פרט לאחד מוגדר מראש (יסמן את כולם ב-V פרט לאחד הזה שיוסר ממנו ה-V).

תודה מראש למשיבים.

 

[ziv98]

סינון

    Hide = "a"
    For Each Pi In ActiveSheet.PivotTables("PivotTable1").PivotFields("field").PivotItems
      Pi.Visible = Pi.Value <> Hide
    Next

 

[ל13]

תודה על הפיתרון אבל יש בעיה...

הוספתי את הקוד שרשמת והרצתי אותו על טבלת הציר.
המאקרו רץ דקות ארוכות ללא הפסקה והיית צריך לעצור אותו באמצע...
מה שלא הבהרתי בבקשתי זה שה - Pivot Field שאני צריך לבצע עליו את הסינון (כל הפרמטרים חוץ מאחד), מונה כמעט 6,000 פרמטרים, ואני מבין שהקוד שלך בעצם סורק ובוחר את כל ה-6000, מסיר מבחירה רק את האחד שהגדרתי שלא יבחר. וזה כנראה לוקח המון זמן... אין לי מושג איך לפתור את הבעיה הזו ואולי בכלל צריך פיתרון אחר...
האם יש פקודה שאומרת "בחר את הכל" ומיד אח"כ פקודה שאומרת "תסיר את הבחירה רק מפרמטר X"?

תודה.