اذهب الي المحتوي
أوفيسنا

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


khairi ali
إذهب إلى أفضل إجابة Solved by سليم حاصبيا,

الردود الموصى بها

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

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

تحويل المعادلة إلى كود.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

 

  • Like 3
  • Thanks 1
رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information