الصادق ـ ح قام بنشر ديسمبر 14, 2019 مشاركة قام بنشر ديسمبر 14, 2019 السلام عليكم أساتذتي اريد معادلة vba وذلك بمجرد حساب المعدل تكتب التقديرات تلقائي وذلك حسب الملف المرفق معادلة vba.xls رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر ديسمبر 14, 2019 مشاركة قام بنشر ديسمبر 14, 2019 صديقي لا حاجة للكود في مثل هذا الحالة Formules.xls 1 رابط هذا التعليق شارك More sharing options...
الصادق ـ ح قام بنشر ديسمبر 14, 2019 الكاتب مشاركة قام بنشر ديسمبر 14, 2019 شكرا أستاذي على هذا المجهود الطيب...ولكني أريد التخلص من المعادلة في خانة التقديرات، بحيث تكتب التقديرات بشكل تلقائي رابط هذا التعليق شارك More sharing options...
أفضل إجابة سليم حاصبيا قام بنشر ديسمبر 14, 2019 أفضل إجابة مشاركة قام بنشر ديسمبر 14, 2019 هذا الماكرو يقوم بما تريد 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 1 1 رابط هذا التعليق شارك More sharing options...
الصادق ـ ح قام بنشر ديسمبر 14, 2019 الكاتب مشاركة قام بنشر ديسمبر 14, 2019 شكرا استاذي هذا ما كنت اريده فجزاك الله كل خير 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.