Page 1 of 1
สอบถามการกำหนดรูปแบบให้ Texbox ครับ
Posted: Fri Apr 04, 2014 1:48 pm
by djung
ผมต้องการค่าที่เราป้อนคือ 040414 ให้โชว์ใน Texbox เป็น 04-04-14 นะครับ
Re: สอบถามการกำหนดรูปแบบให้ Texbox ครับ
Posted: Fri Apr 04, 2014 2:27 pm
by bank9597
djung wrote:ผมต้องการค่าที่เราป้อนคือ 040414 ให้โชว์ใน Texbox เป็น 04-04-14 นะครับ
เพิ่มโค๊ดนี้ไปครับ
Code: Select all
Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
With Application.WorksheetFunction
Me.TextBox1 = .Text(Me.TextBox1, "00-00-00")
End With
End Sub
Re: สอบถามการกำหนดรูปแบบให้ Texbox ครับ
Posted: Fri Apr 04, 2014 2:50 pm
by djung
ขอบคุณมากครับคุณ bank9597 ได้แล้วครับ
Re: สอบถามการกำหนดรูปแบบให้ Texbox ครับ
Posted: Fri Apr 04, 2014 3:12 pm
by djung
สอบถามอีกข้อหนึ่งครับ ผมต้องการค่าที่ได้จาก Texbox ให้เป็นวันที่ และต้องการ วันที่ข้างหน้าอีก 10 นับจากวันที่ที่ใส่ข้อมูลไปแสดงในช่อง C3 พอผมใส่เพิ่ม code เข้าไปแล้วมัน Error นะครับ
รบกวนช่วยหน่อยครับ
Code: Select all
Private Sub ComOK_Click()
WSDA.Select
WSDA.Cells(1, 1) = TextBox1
WSDA.Cells(1, 2) = ComboBox1
WSDA.Cells(1, 3) = TextBox1 + 10
End Sub
Re: สอบถามการกำหนดรูปแบบให้ Texbox ครับ
Posted: Fri Apr 04, 2014 4:24 pm
by bank9597
djung wrote:สอบถามอีกข้อหนึ่งครับ ผมต้องการค่าที่ได้จาก Texbox ให้เป็นวันที่ และต้องการ วันที่ข้างหน้าอีก 10 นับจากวันที่ที่ใส่ข้อมูลไปแสดงในช่อง C3 พอผมใส่เพิ่ม code เข้าไปแล้วมัน Error นะครับ
รบกวนช่วยหน่อยครับ
Code: Select all
Private Sub ComOK_Click()
WSDA.Select
WSDA.Cells(1, 1) = TextBox1
WSDA.Cells(1, 2) = ComboBox1
WSDA.Cells(1, 3) = TextBox1 + 10
End Sub
ลองดูโค๊ดนี้ดูก่อนครับ
Code: Select all
Private Sub ComOK_Click()
Dim i As Worksheet
Dim a As Long
Set i = Worksheets("MASTER")
a = Application.Text(Me.TextBox1, "000000") + 10
i.Range("C3") = a
End Sub
Re: สอบถามการกำหนดรูปแบบให้ Texbox ครับ
Posted: Fri Apr 04, 2014 4:36 pm
by djung
ทำได้แล้วครับขอบคุณมากๆครับผม