عمل حاسبة للنسب المئوية

[nofoil]

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

كل عام وحضراتكم بخير وصحه وسعاده ويارب تكون سنه سعيده علينا  جميعا

طالب من حضراتكم طلب ومتعشم فى الله ثم فيكم خير

دلوقت انا محتاج  برنامج او حاسبه للنسبه المئويه لشغلى  بالمتطلبات الى موجوده فى شيت الاكسيل المرفق 

لو ينفع احد الاخوه او الاخوات الكرام يعدلو عليه او يعرفونى اعمله ازاى واكون شاكر لافضال معاليكم 

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

نسبه مئويه.xlsx

[محي الدين ابو البشر]

Sub Test()
    Dim a As Variant
    Dim ar As Range
    Dim i As Long
    Dim t
    For Each ar In Columns(1).SpecialCells(2, 23).Areas
        Set ar = ar.Offset(1).Resize(ar.Count - 1)
        For i = 1 To ar.Count
            ar(i).Offset(, 3) = Format(ar(i).Offset(, 2) / ar.Offset(, 1).Resize(1), "00%")
        Next
        ar.Resize(1).Offset(ar.Count + 2, 3) = Format(WorksheetFunction.Sum(ar.Offset(, 3)), "00%")
        ar.Resize(1).Offset(ar.Count + 4, 3) = Format(ar.Resize(1).Offset(ar.Count + 2, 2) / ar.Resize(1).Offset(ar.Count + 2, 1), "00%")
        t = t + ar.Resize(1).Offset(ar.Count + 4, 3)
    Next
    Cells(Cells(Rows.Count, 2).End(xlUp).Row, 4) = Format(t, "00%")
End Sub

جرب هذا الكود حسب المعطيات الموجودة في ملفك وإلا يرجى الإيضاح أكثر 

شكراً

[محي الدين ابو البشر]

تفضل أخي الكريم

بالطريقتين

نسبه مئويه.xlsm

نسبه مئويه.xlsx

[nofoil]

بجد والله مش عارف اقول ايه ولا اشكر حضرتك ازاى  بجد حضرتك  محترم  ومتألق 

هو ده بالظبط الى بدور عليه

الف مليون شكر على تعب حضرتك 

متشكر جدا جدا جدا

 

 

[محي الدين ابو البشر]

الحمد لله

وشكراً لك