สอบถามวิธีการกำหนดจุดทศนิยม ทีละหลายๆ textbox

[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

[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 

[b5930304629]

รบกวนอาจารย์ค่ะ พอดีไม่เข้าใจ code อาจารย์ช่วยยกตัวอย่างได้ไหมคะ

[snasui]

นำ Code นั้นไปวางตรง ๆ ใน UserForm ใด ๆ ที่ต้องการจะ Loop ไปยัง TextBox แล้วลอง Run Code สังเกตผลล้พธ์ที่ได้ ติดปัญหาตรงไหนค่อยแนบไฟล์พร้อม Code นั้นมาถามกันต่อครับ

[b5930304629]

ได้ลองนำ code ไปรันแล้วนะคะ โปรแกรมขึ้นแจ้ง error ว่า syntax error
TextBox ที่ต้องการให้มีทศนิยม 3 ตำแหน่ง อยู่ใน Userform3 TextBox137 ถึง TextBox217 รบกวนช่วยดูให้หน่อยนะคะ

[snasui]

แก้ไข earch เป็น each ผมคีย์ตัว r เกินไป 1 ตัวครับ

สำหรับการวาง Code ควรจะวางเมื่อต้องการ Validate ค่าในทุก TextBox ที่กำหนด ไม่ใช่วางตอน Initial เพราะยังไม่มีค่าใด ๆ ใน TextBox ให้กำหนด Format ครับ

[b5930304629]

สามารถทำได้แล้ว ขอบคุณค่ะ