تحويل معادلة إلى كود

[khairi ali]

أخواني الكرام في هذا المنتدى التعليمي الكبير أبارك لكم مجهوداتكم الجبارة لتقديم المساعدة 

في الملف المرفق أريد تحويل معادلة التسلسل لإلى كود كذلك معادلة عد الطلبة الناجحون والراسبون والغائبون

تحويل المعادلة إلى كود.xlsx

[سليم حاصبيا]

جرب هذا الكود

Option Explicit

Sub auto_formula()
Dim Mx%

With Sheets("النتيجة")
    
    Mx = .Cells(Rows.Count, "B").End(3).Row
    
    .Range("A10").Resize(Mx - 9).Value = _
     Evaluate("Row(1:" & Mx - 9 & ")")
    
    With .Range("AK10").Resize(Mx - 9, 3)
      .Formula = _
         "=IF($AJ10=AK$7,COUNTIF($AJ10:$AJ$10,$AJ10),"""")"
      .Value = .Value
    End With
End With
End Sub

 

[khairi ali]

صباح الخير أعتدر على التاخير في الرد بارك الله فيك أستاذ سليم أن شاء الله في ميزان حسناتك