مستخدم قام بنشر ديسمبر 23, 2004 قام بنشر ديسمبر 23, 2004 السلام عليكم أو موضوع لي هنا في المنتدى .. وعندي مشروع أبغيكم تعطوني رايكم فيه وأتمنى أن أحصل الحل عندكم . الملف هنا أريد تغيير الصورة على حسب درجة النسبة المئوية ... اتمنى أن أحصل الحل عندكم ... تحياتي مستخدم
مستخدم قام بنشر ديسمبر 24, 2004 الكاتب قام بنشر ديسمبر 24, 2004 السلام عليكم أتمنى إني ما أكون أزعجتك أخوي محمد .. انا أريد طريقة لكي أضع فيه درجة الحرارة وفي نفس الوقت إذا كانت الدرجة أكثر من 30 .. تتغير الصورة في الجو حار وإذا أقل من 10 الجو معتدل ....
محمد حجازي قام بنشر ديسمبر 24, 2004 قام بنشر ديسمبر 24, 2004 السلام عليكم ... جرب الملف المرفق : حيث يكون الجور حاراً ما دامت درجة الحرارة أكبر من 30 ولا فيعتبر معتدلاً degree.zip
مستخدم قام بنشر ديسمبر 25, 2004 الكاتب قام بنشر ديسمبر 25, 2004 جزاك الله خير أخوي محمد وبارك الله في خطاك وأسكنك فسيح جناته ... بس لو تتكرم تقدر تشرح لي كيف توضع الكود لأني حاولت إن أصنع مثله فلم أستطع وأي أضع الكود ... Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$1" Then If Worksheets("m").Range("B1").Value > 30 Then Worksheets("m").Shapes("Picture 2").Select Selection.ShapeRange.ZOrder msoBringToFront Else Worksheets("m").Shapes("Picture 1").Select Selection.ShapeRange.ZOrder msoBringToFront End If Worksheets("m").Range("B1").Select Else Worksheets("m").Range("B3").Select End If End Sub
محمد حجازي قام بنشر ديسمبر 25, 2004 قام بنشر ديسمبر 25, 2004 السلام عليكم ... هذا شرح بسيط وسريع ... أولاً قمت بحماية ورقة العمل ماعدا الخليتين B1 و B3 ، وذلك مع إزالة إمكانية تحديد الخلايا المحمة ، وبذلك فإنه لا يمكن تحديد سوى الخليتين B1 و B3 الكود ببساطة : الشرط الأول : إذا كانت الخلية المعدلة هي B1 فيتم الانتقال للشرط الثاني ، والا فيتم تحديد الخلية B3 Worksheets("m").Range("B3").Select وذلك لأنها هي الخلية المعدلة في هذه الحالة الشرط الثاني : إذا كانت الخلية B1>30 فيتم جعل صورة الجو حار (الصورةPicture 2) في المقدمة : Worksheets("m").Shapes("Picture 2").Select Selection.ShapeRange.ZOrder msoBringToFront وإلا فيتم جعل صورة الجو معتدل (الصورةPicture 1) في المقدمة : Worksheets("m").Shapes("Picture 1").Select Selection.ShapeRange.ZOrder msoBringToFront وفي كلتا الحالتين فإنه يتم تحديد الخلية B1 Worksheets("m").Range("B1").Select وذلك لأنه الخلية المعدلة في هذه الحالة ....
مستخدم قام بنشر ديسمبر 26, 2004 الكاتب قام بنشر ديسمبر 26, 2004 السلام عليكم .. أشكرك أخوي محمد من كل قلبي ... الأكسل برنامج قوي ومذهل جدا" .... سبحان الله
محمد حجازي قام بنشر فبراير 23, 2005 قام بنشر فبراير 23, 2005 السلام عليكم ... من الممكن جعل الكود السابق أكثر كفاءة ، وذلك بتفادي تنشيط كل صورة قبل التعامل معها. الكود بعد التعديل: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$B$1" Then If Worksheets("m").Range("B1").Value > 30 Then Worksheets("m").Shapes("Picture 2").ZOrder msoBringToFront Else Worksheets("m").Shapes("Picture 1").ZOrder msoBringToFront End If Worksheets("m").Range("B1").Select Else Worksheets("m").Range("B3").Select End If End Sub
الردود الموصى بها