307 تقيم
درس
نبذه عن الدورة Excel VBA البرمجة في الإكسل .pdf
4.7 (679)
4.7 (148)
4.8 (50)
4.7 (9)
4.8 (4)
4.3 (354)
4.5 (526)
4.6 (25)
ممتاز
السلام عليكم ورحمة الله ... عملت التمرين المطلوب ارجو الاطلاع عليه وشكرا Private Sub CommandButton1_Click()<br /> <br /> If Range("E4").Value = "Sayed" Then<br /> Call Change_2<br /> ElseIf Range("E4").Value = "Ali" Then<br /> Call Change_1<br /> End If<br /> End Sub<br /> <br /> Sub Change_1()<br /> <br /> Range("E4").Value = "Sayed"<br /> Range("F4").Value = "Ali"<br /> CommandButton1.Caption = "Sayed Ali"<br /> <br /> End Sub<br /> <br /> Sub Change_2()<br /> <br /> Range("E4").Value = "Ali"<br /> Range("F4").Value = "Sayed"<br /> CommandButton1.Caption = "Ali Sayed"<br /> <br /> End Sub
what
محتوي الدورة التدريبية
يمكنك نشر الدورة من خلال
ممتاز
السلام عليكم ورحمة الله ... عملت التمرين المطلوب ارجو الاطلاع عليه وشكرا Private Sub CommandButton1_Click()<br /> <br /> If Range("E4").Value = "Sayed" Then<br /> Call Change_2<br /> ElseIf Range("E4").Value = "Ali" Then<br /> Call Change_1<br /> End If<br /> End Sub<br /> <br /> Sub Change_1()<br /> <br /> Range("E4").Value = "Sayed"<br /> Range("F4").Value = "Ali"<br /> CommandButton1.Caption = "Sayed Ali"<br /> <br /> End Sub<br /> <br /> Sub Change_2()<br /> <br /> Range("E4").Value = "Ali"<br /> Range("F4").Value = "Sayed"<br /> CommandButton1.Caption = "Ali Sayed"<br /> <br /> End Sub