מקרו לסינון תקופה בטבלת ציר

[rozent1]

מקרו לסינון תקופה בטבלת ציר

שלום באקסל 10 ווינדוז 7 יש לי טבלת ציר עם נתונים לפי חודשים
אני רוצה שהמשתמש יוכל לשלוף את התאריכים שבין שני תאים המכילים
תאריך ראשון ותאריך אחרון
על ידי מקרו
מצורף קובץ

 

[iyyi]

כדי לסנן תחום חודשים צריך שבנתונים יהיו תאריכים...

בקובץ המצורף הפכתי את החודשים לתאריכים
המקרו הבא מסנן את טבלת הציר לפי התאים ב-K1 ו-L1
מסיבה מוזרה המקרו מתייחס לתאריך כתאריך אמריקאי והייתי צריך להפעיל עליו מניפולציה כדי שיטופל כתאריך רגיל. להלן קוד המקרו:

Sub DatesFilter()
    ActiveSheet.PivotTables("pivottable2").PivotFields("חודש").ClearLabelFilters
    ActiveSheet.PivotTables("pivottable2").PivotFields("חודש").PivotFilters.Add2 _
        Type:=xlDateBetween, Value1:=CVDate(Format([k2], "mm/dd/yyyy")), _
        Value2:=CVDate(Format([l2], "mm/dd/yyyy"))
End Sub

בקובץ המצורף לחיצה על הכפתור מפעילה את המסנן.

 

[מיכאל אבידן]

ווואאאאאאווווו... 25 שנה שלא נתקלתי ב- CVDate‏ . . .

 

[iyyi]

הוא היה שם כל הזמן וחיכה לרגע שבו יוכל להגיד את שלו...