Page 1 of 1

การตรวจสอบข้อมูลใน TextBox ใน UserForm แบบวนลูป

Posted: Sat Feb 29, 2020 10:28 pm
by GengLis
สวัสดีครับ ผมเป็นสมาชิกใหม่ อยากรบกวนสอบถามว่า
ถ้าผมจะตรวจสอบข้อมูลต่างๆใน TextBox ที่ผมสร้างขึ้นเพื่อให้ผู้ใช้กรอกข้อมูล ใน UserForm หลังจากกดบันทึกแล้วผมจะให้โปรแกรมตรวจสอบข้อมูลใน TextBox ทุกตัว เพื่อนำไปแสดงผลใน Excel ผมจะต้องอ้างอิง TextBox แต่ละตัวอย่างไรครับ ที่ผมลองเขียนโค้ดไว้ยังขึ้น Debug อยู่ครับ
ตัวอย่างเช่น
For i = 1 To 10 ' มี TextBox 10 ตัว
Cells(2, i) = TextBox(i).value ' อยากให้แถวที่ 2 หลักที่ i แสดงข้อมูลใน TextBox
Next i

ขอบคุณมากครับ

Re: การตรวจสอบข้อมูลใน TextBox ใน UserForm แบบวนลูป

Posted: Sat Feb 29, 2020 10:35 pm
by snasui
:D กรุณาแนบไฟล์ประกอบพร้อม Code ที่เขียนมาเองแล้วด้วยจะได้สะดวกในการตอบครับ

สำหรับการโพสต์ Code ให้ดูกฎการใช้บอร์ดด้านบนประกอบครับ :roll:

Re: การตรวจสอบข้อมูลใน TextBox ใน UserForm แบบวนลูป

Posted: Sat Feb 29, 2020 11:19 pm
by GengLis
โค้ดตามนี้ครับ

Code: Select all

For i = 1 To 10 ' มี TextBox 10 ตัว
Cells(2, i) = TextBox(i).value ' อยากให้แถวที่ 2 หลักที่ i แสดงข้อมูลใน TextBox
Next i
Capture.png

Re: การตรวจสอบข้อมูลใน TextBox ใน UserForm แบบวนลูป

Posted: Sun Mar 01, 2020 5:29 am
by snasui
snasui wrote: Sat Feb 29, 2020 10:35 pm กรุณาแนบไฟล์ประกอบพร้อม Code ที่เขียนมาเองแล้ว
:D ผมหมายถึงไฟล์ Excel ครับ

Re: การตรวจสอบข้อมูลใน TextBox ใน UserForm แบบวนลูป

Posted: Sun Mar 01, 2020 7:21 pm
by GengLis
แนบไฟล์ Excel เพิ่มครับ

Re: การตรวจสอบข้อมูลใน TextBox ใน UserForm แบบวนลูป

Posted: Sun Mar 01, 2020 7:34 pm
by snasui
:D ตัวอย่างการปรับ Code ครับ

Code: Select all

For i = 1 To 10
    Cells(x + 1 + i, 3).Value = Controls("TextBox" & i).Value
Next i

Re: การตรวจสอบข้อมูลใน TextBox ใน UserForm แบบวนลูป

Posted: Sun Mar 01, 2020 7:46 pm
by GengLis
ขอบคุณมากครับ