מקרו לסינון לפי תאים
שלום. באקסל 2016 יש לי טבלת ציר. אני מפעיל מקרו לסינון שמות נבחרים על פי תאים בהם מוכנסים מראש אותם שמות
המקרו אכן מבצע את הפעולה אך זה נמשך מעל 3 דקות.
בקובץ אחר זה נמשך זמן קצר מאד אך השאלה אם אפשר לשנות את המקרו שבכל קובץ ובכל מקרה הזמן יתקצר. לדוגמא נדמה לי שהמקרו במקום למחוק את כל השמות ואז לבחור 4 רלוונטים הוא עושה הפוך: הוא מוחק את כל יתר התאים אחד אחד. או שאני טועה.
ניסיתי להעלות כאן את הקובץ אבל הוא לא נקלט אצלכם
אז להלן המקרו הקיים
Sub סנן_קבוצה_שנבחרה()
Application.ScreenUpdating = False
On Error Resume Next
a = [L1]: b = [M1]: C = [N1]: d = [O1]
With ActiveSheet.PivotTables("pivottable1").PivotFields("שם ")
For Each pt In .PivotItems
pt.Visible = True
n = pt.Name
If n <> a And n <> b And n <> C And n <> d Then pt.Visible = False
Next
End With
End Sub
שלום. באקסל 2016 יש לי טבלת ציר. אני מפעיל מקרו לסינון שמות נבחרים על פי תאים בהם מוכנסים מראש אותם שמות
המקרו אכן מבצע את הפעולה אך זה נמשך מעל 3 דקות.
בקובץ אחר זה נמשך זמן קצר מאד אך השאלה אם אפשר לשנות את המקרו שבכל קובץ ובכל מקרה הזמן יתקצר. לדוגמא נדמה לי שהמקרו במקום למחוק את כל השמות ואז לבחור 4 רלוונטים הוא עושה הפוך: הוא מוחק את כל יתר התאים אחד אחד. או שאני טועה.
ניסיתי להעלות כאן את הקובץ אבל הוא לא נקלט אצלכם
אז להלן המקרו הקיים
Sub סנן_קבוצה_שנבחרה()
Application.ScreenUpdating = False
On Error Resume Next
a = [L1]: b = [M1]: C = [N1]: d = [O1]
With ActiveSheet.PivotTables("pivottable1").PivotFields("שם ")
For Each pt In .PivotItems
pt.Visible = True
n = pt.Name
If n <> a And n <> b And n <> C And n <> d Then pt.Visible = False
Next
End With
End Sub