طلب كود vba لتغيير لون الTextBoxبناء على شرط

[saud133]

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

 

اخواني الكرام ما هي طريقة تلوين التكست بوكس في اليوزر فروم اذا كانت خلية معينة في شيت الاكسل =1 ولون اخر اذا كانت نفس الخلية=0

[saud133]

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

 

اخواني اريد كود لليوزر فورم يغير لون  الTextBoxبناء على شرط 

 

الشرط هو 

اذا كانت الخلية A1  في الشيت بيانات =1 تعطيني لون التيكست بوكس اخضر 

واذا كانت الخلية A1 في شيت بيانات=0 تعطيني لون التيكست بوكس لونه احمر

[saud133]

عذرا تكرر هذا الموضوع هنا بالغلط

[ibn_egypt]

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

 

اخواني الكرام ما هي طريقة تلوين التكست بوكس في اليوزر فروم اذا كانت خلية معينة في شيت الاكسل =1 ولون اخر اذا كانت نفس الخلية=0

اخى الفاضل

 

جرب الكود التالى .. كان من الممكن استخدام الدالة IF ولكن لإمكانية ان تكون هناك أكثر من قيمة غير 0 او 1 تم استخدام Select Case

Private Sub UserForm_Initialize()
Select Case Sheet1.Range("A1").Value
Case 0
Me.TextBox1.BackColor = &HFFC0C0
Case 1
Me.TextBox1.BackColor = &H8080FF
End Select
End Sub
 

تحياتي  

[الجموعي]

تفضل أخي

Private Sub UserForm_Activate()
If Range("A1").Value = "1" Then
Me.TextBox1.Value = Cells(1, 1)
Me.TextBox1.BackColor = vbGreen
End If
If Range("A1").Value = "0" Then
Me.TextBox1.Value = Cells(1, 1)
Me.TextBox1.BackColor = vbRed
End If
End Sub

إثراء للموضوع كود أخر للتحكم في الألوان

' اللون الأخضر
Me.TextBox1.BackColor = RGB(0, 255, 0)
' اللون الأحمر
Me.TextBox1.BackColor = RGB(255, 0, 0)

[saud133]

الله يجزاك خير اخي الجموعي زادك الله من علمه وفتح عليك ابواب رحمته 

 

جاري التجربة

[saud133]

الله يجزاك خير ابن مصر  والله يفتح عليك ابواب الرحمة ويزيدك من علمه ونعيمة 

 

جاري التجربة