معادلة او كود لعد البنود المحددة ب slicer

[MRnos2030]

السلام عليكم 

الاساتذة الكرام محتاج معادلة لعد البنود التى تم تحديدها ضمن slicer  حسب المرفق 

count selected items in slicer

عد البنود المحددة slicer.xlsx

[عبدالفتاح في بي اكسيل]

اعتقد هذا المطلوب

Private Sub Worksheet_PivotTableChangeSync(ByVal Target As PivotTable)
Range("h2") = ActiveWorkbook.SlicerCaches(1).VisibleSlicerItems.Count
End Sub

count selected item in slicer .xlsm

[hassan rady]

هذا حل بالمعادلات

عد البنود المحددة slicer.xlsx

[MRnos2030]

السيد حسن تسلم ايدك على الحل الرائع لكن لا يتغير الرقم حسب الشهور المحددة بمعني اذا تم تحديد شهر 1 و 2 يكون ناتج المعادلة 2 وهكذا

السيد عبد الفتاح 

زادك الله علما ونفع بك