Page 1 of 1
สอบถามวิธีการกำหนดจุดทศนิยม ทีละหลายๆ textbox
Posted: Tue Oct 22, 2019 6:24 am
by b5930304629
สวัสดีค่ะ รบกวนช่วยดูให้หน่อยค่ะว่าสามารถกำหนดทศนิยมแบบใช้ For Loop ได้หรือไม่ เนื่องจากมีจำนวน textbox เยอะค่ะ ถ้าสามารถทำได้ต้องเขียน code อย่างไรคะ
ตัวอย่าง code บางส่วนค่ะ
Code: Select all
Private Sub TextBox134_Change()
TextBox134.Text = Format(TextBox134, "##0.000")
End Sub
Private Sub TextBox135_Change()
TextBox135.Text = Format(TextBox135, "##0.000")
End Sub
Private Sub TextBox136_Change()
TextBox136.Text = Format(TextBox136, "##0.000")
End Sub
Private Sub TextBox137_Change()
TextBox137.Text = Format(TextBox137, "##0.000")
End Sub
Private Sub TextBox138_Change()
TextBox138.Text = Format(TextBox138, "##0.000")
End Sub
Private Sub TextBox139_Change()
TextBox139.Text = Format(TextBox139, "##0.000")
End Sub
Private Sub TextBox140_Change()
TextBox140.Text = Format(TextBox140, "##0.000")
End Sub
Re: สอบถามวิธีการกำหนดจุดทศนิยม ทีละหลายๆ textbox
Posted: Tue Oct 22, 2019 7:04 am
by snasui
ตัวอย่าง Code ครับ
Code: Select all
dim x as control
for each x in me.controls
if typename(x) = "TextBox" then
x.text = format(x.text,"##0.000")
end if
next x
Re: สอบถามวิธีการกำหนดจุดทศนิยม ทีละหลายๆ textbox
Posted: Tue Oct 22, 2019 3:24 pm
by b5930304629
รบกวนอาจารย์ค่ะ พอดีไม่เข้าใจ code อาจารย์ช่วยยกตัวอย่างได้ไหมคะ
Re: สอบถามวิธีการกำหนดจุดทศนิยม ทีละหลายๆ textbox
Posted: Tue Oct 22, 2019 7:50 pm
by snasui
นำ Code นั้นไปวางตรง ๆ ใน UserForm ใด ๆ ที่ต้องการจะ Loop ไปยัง TextBox แล้วลอง Run Code สังเกตผลล้พธ์ที่ได้ ติดปัญหาตรงไหนค่อยแนบไฟล์พร้อม Code นั้นมาถามกันต่อครับ
Re: สอบถามวิธีการกำหนดจุดทศนิยม ทีละหลายๆ textbox
Posted: Tue Oct 22, 2019 9:56 pm
by b5930304629
ได้ลองนำ code ไปรันแล้วนะคะ โปรแกรมขึ้นแจ้ง error ว่า syntax error
TextBox ที่ต้องการให้มีทศนิยม 3 ตำแหน่ง อยู่ใน Userform3 TextBox137 ถึง TextBox217 รบกวนช่วยดูให้หน่อยนะคะ
Re: สอบถามวิธีการกำหนดจุดทศนิยม ทีละหลายๆ textbox
Posted: Tue Oct 22, 2019 10:06 pm
by snasui
แก้ไข
earch เป็น
each ผมคีย์ตัว
r เกินไป 1 ตัวครับ
สำหรับการวาง Code ควรจะวางเมื่อต้องการ Validate ค่าในทุก TextBox ที่กำหนด ไม่ใช่วางตอน Initial เพราะยังไม่มีค่าใด ๆ ใน TextBox ให้กำหนด Format ครับ
Re: สอบถามวิธีการกำหนดจุดทศนิยม ทีละหลายๆ textbox
Posted: Wed Oct 23, 2019 1:37 am
by b5930304629
สามารถทำได้แล้ว ขอบคุณค่ะ