دالة sumvis : تستخدم لجمع الخلايا الظاهرة و تستثنى الخلايا المخفية .
وتختلف عن دالة subtotal حيث ان الاخير تستخدم للخلايا المفلترة فقط
وليست المخفية ,
وفى البداية تبدأ بتركيب الكود التالى
Function SumVis(r As Range)
Dim cell As Excel.Range
Dim total As Variant
For Each cell In r.Cells
If cell.Height <> 0 Then
total = total + cell.Value
End If
Next
SumVis = total
End Function
ومن خلال الصورة التالية نقدر نركب الكود و لا تنسى حفظ الكود :
وبعد تركيب الكود وحفظ ثانى مرحلة كتابة المعادلة و التطبيق :
و تقدر تحمل تمام الشرح و الشيت من على الميديا فير أو الفورشيرد
http://ywmyatmohasb.blogspot.com/2013/01/sumvis.html
ليست هناك تعليقات:
إرسال تعليق