تعديل على المعادلة

[أبو أيمن٤٩]

 

السلام عليكم ورحمة الله وبركاته

الرجاء مساعدتي في التعديل على الكود 

المطلوب أن توكس بوكس1 = نتيجة ممتاز أو جيد جدا 

يعني يظهر فيه كلمة ممتاز أو جيدجدا

 

Private Sub CommandButton3_Click()

With UserForm4

.Label1.ForeColor = &HFF&

.ListBox1.ForeColor = &HFF&

.Label1.Caption = النتيجة

.TextBox1.Text = "ممتاز" أو  "جيدجدا"

End With

End Sub

تم تعديل مايو 16, 2016 بواسطه مرجان11

[ياسر خليل أبو البراء]

وعليكم السلام

أخي الكريم ضع ملف مرفق كما يرجى وضع الأكواد داخل أقواس الكود لتظهر بشكل منضبط

[أبو أيمن٤٩]

أخي العزيز هذا هو الملف

النتيجة.rar

[أبو أيمن٤٩]

[أبو أيمن٤٩]

للرفع

[أبو أيمن٤٩]

في ١٦‏/٥‏/٢٠١٦ at 22:35, مرجان11 said:

 

Private Sub CommandButton3_Click()
With UserForm4
.Label1.ForeColor = &HFF&
.ListBox1.ForeColor = &HFF&
.Label1.Caption = النتيجة
.TextBox1.Text = "ممتاز" أو  "جيدجدا"
End With
End Sub

 

 

تم تعديل مايو 19, 2016 بواسطه مرجان11

[أبو أيمن٤٩]

هل من مجيب

 

[أبوعيد]

نعم

النتيجة يتم اختيارها من القائمة المنسدلة في العمود F

تفضل

النتيجة1.rar

[أبو أيمن٤٩]

مشكور أخي العزيز

ما شاء الله عليك دائماً تكون سباق في مساعدة 

الأخرين . إن شاء الله لك الأجر والثواب من الله تعالى

على كل ما تقوم به من مساعدات في هذا المنتدى الشامخ .