أيسم إبراهيم قام بنشر أغسطس 25, 2008 قام بنشر أغسطس 25, 2008 السلام عليكم جميعا الأساتذة الأعزاء مطلوب عمل كود يخبر المستخدم بتحقق شرط محدد أم لا المطلوب في المرفقات أكثر توضيحا جزاكم الله كل خير و جعله في ميزان حسناتكم أيسم إبراهيم __________.rar
أيسم إبراهيم قام بنشر أغسطس 25, 2008 الكاتب قام بنشر أغسطس 25, 2008 السلام عليكم الأستاذ: NOON2 مرحبا بك في المنتدى و يبدو أن المنتدى اكتسب أستاذا كبيرا في الإكسيل عمل رائع قمت به و لكن لدي طلب الكود الذي أبدعت يعمل على شرط واحد ( و هو كل من حصل على أقل من 6 ) و لكني أريده يعمل على شرطين أي كل طالب حصل على 30 أو أكثر فقط يتأكد من أنه حصل 6 أو أكثر في الخلية الأخرى و لك جزيل الشكر
NooN2 قام بنشر أغسطس 25, 2008 قام بنشر أغسطس 25, 2008 (معدل) For Each cell In Range("c2:c100").Cells If cell.Value >= 30 Then If cell.Offset(0, -1).Value < 6 Then MsgBox "ok" cell.Interior.ColorIndex = 43 cell.Offset(0, -1).Interior.ColorIndex = 43 End If End If Next ممكن اضافة عنوان الخليه التى تحقق الشرط __________2.rar تم تعديل أغسطس 25, 2008 بواسطه NooN2
أيسم إبراهيم قام بنشر أغسطس 25, 2008 الكاتب قام بنشر أغسطس 25, 2008 السلام عليكم مرة أخرى الأستاذ: NOON2 ما شاء الله عليك جعله الله في ميزان حسناتك لا تلمني فإني أثقل عليك بطلباتي و لكني طمعان في سعة صدرك و كرمك مطلوب ان لم يتحقق الشرطين أن تخرج رسالة مفادها " نعم كل الطلب الناجحين اجتازوا ربع الدرجة " والشكر موصول لك لكريم عملك
أيسم إبراهيم قام بنشر أغسطس 25, 2008 الكاتب قام بنشر أغسطس 25, 2008 السلام عليكم مرة ثالثة الأستاذ: NOON2 ما شاء الله عليك جعله الله في ميزان حسناتك هناك خطأ ما لولاه لكان العمل إبداع يفوق الوصف سأشرح لك ترتيب استخدام الكود الذي أبدعت لتضيف عليه لمستك 1- أقوم بنقر الزر الذي أبدعت فيقوم بإظهار و تلوين الخلايا التى أقل من 6 2- أقوم بتعديلها لتصبح أكبر من 6 3- أنقر الزر مرة أخرى لتظهر الرسالة " نعم كل الطلبة الناجحين اجتازوا ربع الدرجة " (( هذه الخطوة غير ممكنة فى الكود الذي أبدعت .)) أرجو ا أن تتفضل علي بإضافتها على الكود ولك جزيل الشكر و العرفان
NooN2 قام بنشر أغسطس 26, 2008 قام بنشر أغسطس 26, 2008 Cells(65000, 1).Value = "" For Each cell In Range("c2:c100").Cells If cell.Offset(0, -1).Value <= 6 And cell.Value >= 30 Then MsgBox "ok" cell.Interior.ColorIndex = 43 cell.Offset(0, -1).Interior.ColorIndex = 43 Cells(65000, 1).Value = "no" End If Next If Cells(65000, 1).Value <> "no" Then MsgBox "نعم كل الطلبة الناجحين اجتازوا ربع الدرجة" Else Exit Sub End If
أيسم إبراهيم قام بنشر أغسطس 26, 2008 الكاتب قام بنشر أغسطس 26, 2008 السلام عليكم الأستاذ: NOON2 ألم أقل لك إن المنتدى اكتسب أستاذا كبيرا أهلا و مرحبا بك شكرا على الإبداع الذى قدمت و ننتظر منك الكثير جزاك الله كل خير و جعله في ميزان حسناتك أخوك : أيسم إبراهيم
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.