مستخدم

السلام عليكم .. أشكرك أخوي محمد من كل قلبي ... الأكسل برنامج قوي ومذهل جدا" .... سبحان الله

جزاك الله خير أخوي محمد وبارك الله في خطاك وأسكنك فسيح جناته ... بس لو تتكرم تقدر تشرح لي كيف توضع الكود لأني حاولت إن أصنع مثله فلم أستطع وأي أضع الكود ... 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

السلام عليكم أتمنى إني ما أكون أزعجتك أخوي محمد .. انا أريد طريقة لكي أضع فيه درجة الحرارة وفي نفس الوقت إذا كانت الدرجة أكثر من 30 .. تتغير الصورة في الجو حار وإذا أقل من 10 الجو معتدل ....

السلام عليكم أو موضوع لي هنا في المنتدى .. وعندي مشروع أبغيكم تعطوني رايكم فيه وأتمنى أن أحصل الحل عندكم . الملف هنا أريد تغيير الصورة على حسب درجة النسبة المئوية ... اتمنى أن أحصل الحل عندكم ... تحياتي مستخدم