VBA ต้องการหาจำนวน Textbox ทั้งหมด แล้วใส่ข้อมูลค่าเริ่มต้นไว้ในนั้น ต้องปรับโค้ดอย่างไรครับ

[10idlnw]

สมมติผมมี textbox 5 ตัว ผมใส่ค่าเริ่มต้นเป็น 1-5 ในแต่ละ Textbox ได้แล้ว แต่ถ้าผมอยากใส่เช่น (สมชาย,ใจชาย,0911544879,เลี้ยงไก่,ชอบกินข้าว) ผมต้องปรับโค้ดอย่างไรครับ

Code: Select all

Dim cCTL As Control
Dim iCTR As String
iCTR = Array(sss, aaa, bbb, ccc, eee)
For Each cCTL In Me.Controls
    If TypeName(cCTL) = "TextBox" Then
        iCTR = iCTR
        cCTL.Value = iCTR
    End If
 Next cCTL

[snasui]

ตัวอย่างการปรับ Code ลองประยุกต์ใช้ดูครับ

Code: Select all

Dim cCTL As Control
Dim iCTR As Variant
Dim i As Integer
'iCTR = Array(sss, aaa, bbb, ccc, eee)
iCTR = VBA.Split("สมชาย,ใจชาย,0911544879,เลี้ยงไก่,ชอบกินข้าว", ",")
i = 0
For Each cCTL In Me.Controls
    If TypeName(cCTL) = "TextBox" Then
        cCTL.Value = iCTR(i)
        i = i + 1
    End If
 Next cCTL
'Other code

[10idlnw]

ขอบคุณมากครับอาจารย์ นำไปปรับใช้ได้ตามวัตถุประสงค์แล้วครับ ผมขอถามต่ออีกอย่างหน่อยครับ กรณีเปลี่ยนชื่อ Textbox และวางสับตำแหน่งจนจำไม่ได้ว่าอันไหนอยู่ก่อนอยู่หลัง มันเลยสับกันมั่วไปหมด ถ้าต้องการปรับให้มันเรียงกันถูกต้อง ต้องทำอย่างไรครับ โดยที่ไม่ต้องย้าย Textbox สับไปมาครับ

[snasui]

การจะดูว่าใน UserForm ที่สร้างขึ้นมี Object ใด ให้ชื่อเป็นอะไรบ้าง สามารถเข้าไปที่ UserForm นั้นแล้วดูผลลัพธ์ที่หน้าต่าง Tab Order ดังภาพ สามารถจัดลำดับ Order โดยคลิกปุ่ม Move Up, Move Down ได้ตามต้องการครับ