تلوين التكست بوكس بلون ان كان فارغاً والعكس بلون آخر .

[mra63]

الرجاء من الاساتذة الكرام  كود لتلوين التكست بوكس باللون الاصفر ان كان فارغاً والعكس باللون الأبيض اي ان التكسات الفارغة تكون باللون الاصفر . مشكورين جداً .

[Jasmin]

أخي:

1- لماذا لا تستعمل Conditional formatting ؟

2- هل وضعت معادلات بال text box أو لا

اذا كنت مصراً عالكود فتفضّل:
 

Sub Color_blank_cells()
'declare variables
Dim ws As Worksheet
Dim ColorRng As Range
Set ws = Worksheets("Analysis")
Set ColorRng = ws.Range("B3:C9")
'color blank cells
ColorRng.SpecialCells(xlCellTypeBlanks).Interior.Color = RGB(220, 230, 241)

End Sub

طبعا تغيّر اللون من RGB(220, 230, 241) مثل ما تريد

[محمد حسن المحمد]

السلام عليكم أخي الكريم

أخي الكريم ضع شرطاً للتكست بوكس إن كان فارغاً لونه بالأصفر وإلا باللون الأبيض

Private Sub TextBox1_Change()
	If TextBox1.Value = "" Then
		TextBox1.BackColor = vbYellow
			Else
		TextBox1.BackColor = vbWhite
	End If
End Sub

كما هو معروض في الصورة التالية:

• 
• 

تقبل تحياتي

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

[mra63]

الأخت / جاسمين
انا اقصد التكست بوكس في اليوزرفورم وعلي العموم شكراً لك علي الاهتمام

الأخ / محمد حسن محمود
شكراً لك كتبت هذا الكود مرات عديدة وهو لا يعمل بصورة جيدة في التكست بوكس وفي جميع الاوضاع وعملته في اليوزرفوم
في وضع الانشيلايز . 
مشكورين كلكم علي الاهتمام .

[محمد حسن المحمد]

السلام عليكم

جرّب أخي الكريم وأخبرني النتيجة

تم التعديل على لون التيكست 

فورم.xlsm

[عبدالفتاح في بي اكسيل]

@mra63 لا ادري  لماذا  اصرارك  على  عدم  ادراج  ملف  وانشاء  يوزرفورم   حتى  يستطيع  الاخرين  مساعدتك . 

عالعموم  انشأ يوزفورم  به  اثنان  تيكست  بوكس   وقم  بالنقر  مرتين  على  اليوزفورم والصق  هذه  الاكواد كاملة .

عند  تشغيل  اليوزرفورم  سيتم  تلوين  textbox1,2  باللون  الاصفر  و اذا  كتبت  في  احدهم  سيتلون بالابيض .

Private Sub TextBox1_Change()
    If TextBox1.Text <> "" Then
       TextBox1.BackColor = RGB(255, 255, 255)
       Else
       TextBox1.BackColor = RGB(255, 255, 0)
       End If      
End Sub
Private Sub TextBox2_Change()
If TextBox2.Text <> "" Then
       TextBox2.BackColor = RGB(255, 255, 255)
       Else
       TextBox2.BackColor = RGB(255, 255, 0)
       End If
End Sub

Private Sub UserForm_Initialize()
TextBox1.BackColor = RGB(255, 255, 0)
TextBox2.BackColor = RGB(255, 255, 0)

End Sub

 

[mra63]

شكراً الاستاذ محمد حسن المحمد الكود ناجح
وشكراً للأستاذ عبدالفتاح الكود ناجح 
بارك الله فيكم سأختار كود الاستاذ محمد حسن كافضل اجابة نظراً لبساطة الكود .
وان شاء الله سوف ارفق ملف مرة أخري .

[محمد حسن المحمد]

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

الحمد لله الذي بنعمته تتم الصالحات

الشكر للجميع كل في مساهمته 

تقبل تحياتي العطرة لشخصكم الكريم

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