برجاء المساعدة فى معادلة Subtotal عد مدى معين بة معادلات ويوجد فلتر غى الملف

[AL_AYMAN]

السادة الاعزاء

مرفق لكم ملف اريد عمل معادلة عد للارقام ولكن الرقم اكبر من الصفر مع وجود فلتر

ولكن لا تعمل ومع العلم بان المدى المراد عدة به معادلات

ومرفق لكم الملف

وشكرا لحسن تعاونكم

Test.rar

[عبدالله المجرب]

السلام عليكم

قمت بعمل دالة معرفة اسميتها Sub_Total

Function Sub_Total(MyRng As Range)

With MyRng

For R = .Row To .Rows.Count

If Cells(R, .Column).Value > 0 And Not IsEmpty(Cells(R, .Column)) And _

Cells(R, .Column).EntireRow.Hidden = False Then

T = T + 1

End If

Next

End With

Sub_Total = T

End Function

شاهد المرفق

Test.rar

[رجب جاويش]

أخى الحبيب / عبد الله المجرب

بسم الله ما شاء الله

زادت الله علما وابداعا

:fff: :fff: :fff: :fff:

[AL_AYMAN]

الاستاذ عبدالله المجرب

اشكرك شكرا جزيلا على مساعدتك لى وعلى سرعة استجابتك لمشكلتى

وليس لدى الا ان ادعو لك بكل اخلاص ومن قلبى بان يزيد الله من علمك وان يرزقك الاخلاص وان ييسر الله لك فى كل امورك

فانت تساعدنا فى حل مشاكلنا التى نعجز عن حلها

اشكرك ووفقك الله

تم تعديل يونيو 11, 2012 بواسطه AL_AYMAN