Page 1 of 1
ต้องการให้ตัวหนังสือที่โชว์ใน TextBox1 เป็นสีแดง
Posted: Wed May 22, 2013 10:57 am
by yodpao.b
เรียนอาจารย์ครับ
ข้อแม้คือ ต้องการให้ตัวหนังสือที่โชว์ใน TextBox1 เป็นสีแดง เมื่อมันแสดงข้อความว่า "เบิกแล้ว"
Code: Select all
Private Sub UserForm_Initialize()
TextBox1.Value = Sheets("Document1").Range("G1")
End Sub
Re: ต้องการให้ตัวหนังสือที่โชว์ใน TextBox1 เป็นสีแดง
Posted: Wed May 22, 2013 11:20 am
by tupthai
Code: Select all
Private Sub UserForm_Initialize()
TextBox1.Value = Sheets("Document1").Range("G1")
If TextBox1.Value = "เบิกแล้ว" Then
UserForm1.TextBox1.ForeColor = 255
End If
End Sub
Re: ต้องการให้ตัวหนังสือที่โชว์ใน TextBox1 เป็นสีแดง
Posted: Wed May 22, 2013 1:07 pm
by yodpao.b
ขอบคุณมากครับ
Re: ต้องการให้ตัวหนังสือที่โชว์ใน TextBox1 เป็นสีแดง
Posted: Wed May 22, 2013 3:18 pm
by yodpao.b
ถ้าสีเขียวเลขอะไรครับ
Re: ต้องการให้ตัวหนังสือที่โชว์ใน TextBox1 เป็นสีแดง
Posted: Wed May 22, 2013 3:21 pm
by snasui
ลองดู Code นี้ครับ
Code: Select all
UserForm1.TextBox1.ForeColor = vbgreen
Re: ต้องการให้ตัวหนังสือที่โชว์ใน TextBox1 เป็นสีแดง
Posted: Wed May 22, 2013 3:25 pm
by yodpao.b
ขอบคุณครับ