جمع عدد من الحقول

[zsbmwr]

السلام عليكم

مساء الخير

كما في الصورة نشاهد صف مكتمل الخلايا

والصف الاخر لم تكتمل الخلايا

اريد في الصف الأول يكون المجموع فقط لنفس عدد الخلايا المكتملة في الصف الثاني

 

وفقكم الله وبارك فيكم

[zsbmwr]

الجدول فيه ثلاث صفوف
صف العناوين
الصف الاول جميع الخلايا من Aحتى T فيها قيم
الصف الثاني الخلايا من Aحتى F فيها قيم

الصف الثاني المجموع فقط للقيم من A حتى F

اريد مجموع الصف الاول تكون للقيم من A حتى F فقط
تكون نقسم عدد قيم الصف الثاني

[abouelhassan]

منذ ساعه, zsbmwr said:

الجدول فيه ثلاث صفوف
صف العناوين
الصف الاول جميع الخلايا من Aحتى T فيها قيم
الصف الثاني الخلايا من Aحتى F فيها قيم

الصف الثاني المجموع فقط للقيم من A حتى F

اريد مجموع الصف الاول تكون للقيم من A حتى F فقط
تكون نقسم عدد قيم الصف الثاني

Sub CalculateRatio()
    Dim ws As Worksheet
    Dim sumRow1 As Double
    Dim sumRow2 As Double
    Dim ratio As Double
    
    ' تعيين ورقة العمل المطلوبة
    Set ws = ThisWorkbook.Sheets("اسم الورقة")
    
    ' حساب مجموع القيم في الصف الأول
    sumRow1 = Application.WorksheetFunction.Sum(ws.Range("A1:F1"))
    
    ' حساب مجموع القيم في الصف الثاني
    sumRow2 = Application.WorksheetFunction.Sum(ws.Range("A2:F2"))
    
    ' حساب النسبة
    ratio = sumRow1 / sumRow2
    
    ' عرض النسبة في الخلية المناسبة
    ws.Range("G1").Value = ratio
End Sub

 

[zsbmwr]

الله يعطيك العافية ويكتب اجرك

ودي تكون معادله

المطلوب :

مجموع خلايا الصف الأول ( ليس جميع الخلايا) فقط بعدد خلايا الصف الثاني التي فيها ارقام

[abouelhassan]

منذ ساعه, zsbmwr said:

الله يعطيك العافية ويكتب اجرك

ودي تكون معادله

المطلوب :

مجموع خلايا الصف الأول ( ليس جميع الخلايا) فقط بعدد خلايا الصف الثاني التي فيها ارقام

جرب

Sub CalculateRatio()
    Dim ws As Worksheet
    Dim sumRow1 As Double
    Dim sumRow2 As Double
    Dim ratio As Double
    
    ' تعيين ورقة العمل المطلوبة
    Set ws = ThisWorkbook.Sheets("اسم الورقة")
    
    ' حساب مجموع القيم في الصف الأول لعدد الخلايا التي تحتوي على قيم في الصف الثاني
    sumRow1 = Application.WorksheetFunction.Sum(ws.Range("A1:F1")) / Application.WorksheetFunction.CountA(ws.Range("A2:F2"))
    
    ' حساب مجموع القيم في الصف الثاني
    sumRow2 = Application.WorksheetFunction.Sum(ws.Range("A2:F2"))
    
    ' حساب النسبة
    ratio = sumRow1 / sumRow2
    
    ' عرض النسبة في الخلية المناسبة
    ws.Range("G1").Value = ratio
End Sub

 

[zsbmwr]

video_2024-02-11_23-14-09.rar

شرح للمطلوب

[abouelhassan]

جرب هذه الدالة واخبرنى

عذرًا على الالتباس. يمكنك استخدام الدالة التالية لجمع الصف الأول بشرط أن تكون القيمة في الصف الثاني غير فارغ

=SUM(A1:INDEX(A:A, MATCH(1E+306, B:B, 1)))

هذه الدالة تستخدم دالة MATCH للعثور على أول خلية غير فارغة في الصف الثاني، ثم يستخدم الدالة INDEX لإنشاء مرجع للخلية المتناظرة في الصف الأول، وأخيرًا يقوم بجمع القيم في هذا النطاق.

=SUM(A1:INDEX(A:A, MATCH(1E+306, B:B, 1)))

 

تم تعديل فبراير 11 بواسطه abouelhassan

[zsbmwr]

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