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

إدراج معادلة vba


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

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

  • أفضل إجابة

هذا الماكرو يقوم بما تريد

Option Explicit

Sub TAKDIRAT()
Dim Rg As Range, cel As Range
Dim Note$
Set Rg = Range("A9", Range("A8").End(4)).Offset(, 9)
Rg.ClearContents

For Each cel In Rg
  If IsNumeric(cel.Offset(, -1)) Then
        Select Case cel.Offset(, -1)
           Case Is < 7: Note = "نتائج غير مقبولة"
           Case Is < 10: Note = "نتائج دون الوسط"
           Case Is < 12: Note = "نتائج متوسطة"
           Case Is < 14: Note = "نتائج حسنة"
           Case Is < 16: Note = "نتائج جيدة"
           Case Is < 18: Note = "نتائج جدة جداً"
           Case Else: Note = "نتائج ممتازة"
        End Select
      cel = Note
  End If
Next

End Sub

الملف مع الكود

Formules.xlsm

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

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

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

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

Important Information