جمع الخلايا الظاهرة فى الصف

[محب لله ورسوله]

السلام عليكم ورحمة الله وبركاته

برجاء من الإخوه الأفاضل الإفاده بخصوص كود يقوم بجمع الخلايا الظاهره فى صف
على سبيل المثال فى الصف رقم 6 والنطاق من ( E1 : CX1 )

حيث أنه عند البحث وجدت الدالة subtotal ولكنها تقوم على جمع الأعمده ونطاق 29 خليه فقط

فبرجاء الإفاده بخصوص الجمع بالنسبه للصفوف وليس الأعمده

ولكم جزيل الشكر

[أ / محمد صالح]

فعلا subtotal لا تعمل مع الأعمدة

لكن يمكنك استعمال هذه الدالة 

Function sum_vis_cols(rng As Range) As Double
Dim mysum As Double, c As Range
Application.Volatile
For Each c In rng
mysum = mysum + IIf(c.EntireColumn.Hidden <> True, c.Value, 0)
Next
sum_vis_cols = mysum
End Function

وطريقة استعمالها

=sum_vis_cols(E1:CX1)

بالتوفيق

[محب لله ورسوله]

جزاك الله خيرا يااستاذنا

استأذن بس حضرتك فى مثال لانى مش عارف اطبقها

[أ / محمد صالح]

المثال بعد كمة طريقة استعمالها

أولا تضيف موديول في شاشة الفيجوال بيسك

ثم تلصق الدالة الموجودة في الكود الأول في المشاركة السابقة

ثم تكتب المعادلة الثانية في المكان الذي تريد فيه ظهور مجموع الخلايا المرئية فقط

[محب لله ورسوله]

تسلم ربنا يكرمك

هل بالامكان تنفيذ الكود بمجرد الإخفاء للخلايا ولا يشترط دبل كليك على خلية المجموع ؟

[أ / محمد صالح]

للأسف لا يوجد حدث عند إخفاء أو إظهار الأعمدة أو الصفوف في الشيت

ولكن يمكن التحايل على ذلك بوضع كود الحساب في حدث عند تغيير التحديد

بحيث أنه بعد الإخفاء أو الإظهار يكتفى بوضع المؤشر في أي مكان في الشيت لتقوم الدالة بالحساب

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
ActiveSheet.Calculate
End Sub

وطبعا يتم لصق هذا الكود في شاشة الأكواد الخاصة بالشيت الذي به معادلة جميع الأعمدة المرئية فقط

بالضغط دبل كلك على اسم الشيت

[محب لله ورسوله]

جزاك الله خيرا 

ربنا يرزقك العلم النافع