تلوين التكست بوكس في الفورم إدا توفر الشرط

[AMIRBM]

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

اخواني الكرام طلب مساعدة في تلوين تكست بوكس ادا توفر الشرط وشكرا

asep.xlsm

[ابا اسماعيل]

Private Sub TextBox1_Change()
    
    If Val(TextBox1.Value) > 0 Then
        
        TextBox1.ForeColor = RGB(255, 0, 0) ' الأحمر: RGB(255, 0, 0)
    Else
        
        TextBox1.ForeColor = RGB(0, 0, 0) ' الأسود: RGB(0, 0, 0)
    End If
End Sub
^

vdf

[AMIRBM]

بارك الله فيك لكن أنا أريد لون تعبئة التكست بوكس وشكرا

شكرا

[ابا اسماعيل]

تفضل اخي الفضل

 

 

Private Sub TextBox1_Change()

    If Val(TextBox1.Value) > 0 Then
        
        TextBox1.BackColor = RGB(255, 0, 0) ' ÇáÃÍãÑ: RGB(255, 0, 0)
    Else
        
        TextBox1.BackColor = RGB(255, 255, 255) ' ÇáÃÈíÖ: RGB(255, 255, 255)
    End If
End Sub

 

[AMIRBM]

بارك الله فيك أستاذ