:D snasui.com ยินดีต้อนรับ :D
ยินดีต้อนรับสู่กระดานถามตอบ Excel and VBA และอื่น ๆ ที่เป็นมิตรกับทุกท่าน มีไฟล์แนบมหาศาล ช่วยให้ท่านค้นหาและติดตามศึกษาได้โดยง่าย :thup: สมาชิกท่านใดที่ยังไม่ได้ระบุ Version ของ Excel ที่ใช้งานจริง สามารถทำตาม Link นี้เพื่อจะได้รับคำตอบที่ตรงกับ Version ของท่านครับ :arrow: ระบุ Version ของ Excel
:!: โปรดทราบ :!:
  1. กรุณาอ่านกฎการใช้บอร์ด (Forum rules) ในตำแหน่งด้านบนของแต่ละบอร์ด
  2. การสมัครสมาชิก การ Login การกู้คืนรหัสผ่าน
    1. สมัครสมาชิกดูขั้นตอนได้ที่ :arrow: สมัครสมาชิก
    2. Login เข้าระบบโดยคลิกปุ่ม Login ตรงมุมขวาบนของหน้านี้ :roll:
    3. การ Login ผ่าน Facebook ดูวิธีที่ :arrow: Login ผ่าน Facebook
    4. ลืมรหัสผ่านสามารถรับรหัสใหม่ได้ที่ :arrow: Reset รหัสผ่าน
  3. มีปัญหาการใช้งาน แจ้งผู้ดูแลระบบได้ที่ :arrow: ติดต่อผู้ดูแลระบบ
  4. กำหนดการตั้งค่าส่วนตัว เช่นตั้งค่าภาษาเป็นไทยหรืออังกฤษดูได้ที่ :arrow: ตั้งค่าส่วนตัว
  5. การตั้งและตอบกระทู้ดูได้ที่ :arrow: วิธีการตั้งและตอบกระทู้
  6. การจัดรูปแบบตัวอักษรด้วย bbcode ในช่องแสดงความคิดเห็นดูได้ที่ :arrow: จัดรูปแบบตัวอักษร
  7. กำหนดขนาดตัวอักษรใน Browser ดูได้ที่ :arrow: กำหนดขนาดตัวอักษรใน Browser

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

ฟอรัมถาม-ตอบปัญหาการใช้งาน MS Excel and VBA
Forum rules
  1. ไม่อนุญาตให้ใช้ภาษาแชทในการถามและตอบปัญหา ไม่ใช้คำว่า "คับ" หรือ "อ่ะครับ" แทนคำว่า "ครับ" ไม่ใช้คำว่า "เด๋ว" แทนคำว่า "เดี๋ยว" เป็นต้น เนื่องจากเมื่อแปลเป็นภาษาต่างประเทศแล้วจะให้ความหมายผิดไปจากที่ควรจะเป็น
  2. ห้ามถามโดยระบุชื่อผู้ตอบและต้องตั้งชื่อกระทู้ให้สื่อถึงปัญหาที่จะถาม ไม่ตั้งชื่อว่า ช่วยด้วยครับ, มีปัญหามาปรึกษาครับ เป็นต้น
  3. กรุณาอธิบายปัญหาและระบุคำตอบที่ต้องการมาในกระทู้ด้วยเสมอถึงแม้จะอธิบายไว้ในไฟล์แนบแล้วก็ตาม ทั้งนี้เพื่ออำนวยความสะดวกแก่เพื่อนสมาชิกในการค้นหาข้อมูล
  4. กรุณาแนบไฟล์ตัวอย่างพร้อมแสดงคำตอบที่ถูกต้องมาในไฟล์ด้วยเพื่อให้ง่ายต่อการทำความเข้าใจและสะดวกต่อการตอบคำถาม (ขนาดไฟล์ไม่เกิน 500Kb ขนาดภาพไม่เกิน 800*600 Pixel) ไม่แนบเป็น Link มาจากแหล่งอื่นที่อาจจะถูกลบทิ้งไปโดยต้นทางในภายหลัง นอกจากนี้ไม่ควรแนบไฟล์ที่มีข้อมูลสำคัญอันก่อให้เกิดความเสียหายกับตนเองและผู้อื่น
  5. กรณีเป็นคำถามเกี่ยวกับ Programming เช่น VBA, VB.Net, C#, SQL ฯลฯ ต้องลองเขียนมาเองก่อนเสมอ ถามเฉพาะที่ติดปัญหา ระบุ Module, Procedure ที่ติดปัญหาให้ชัดเจน กรุณาโพสต์ Code ให้แสดงเป็น Code คือเปิดด้วย [code] และปิดด้วย [/code] ตัวอย่างเช่น [code]dim r as range[/code] เพื่อให้แตกต่างจากข้อความทั่วไป สะดวกในการอ่านและทดสอบ (คลิกเพื่อดูตัวอย่าง)
  6. กรุณาแจ้งผลการใช้งานเมื่อได้รับคำตอบว่าตรงกับความต้องการหรือไม่
10idlnw
Member
Member
Posts: 87
Joined: Sat Apr 30, 2022 12:17 am
Excel Ver: 2019

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

#1

Post by 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
You do not have the required permissions to view the files attached to this post.
User avatar
snasui
Site Admin
Site Admin
Posts: 30736
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:

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

#2

Post by snasui »

:D ตัวอย่างการปรับ 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
Member
Member
Posts: 87
Joined: Sat Apr 30, 2022 12:17 am
Excel Ver: 2019

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

#3

Post by 10idlnw »

ขอบคุณมากครับอาจารย์ นำไปปรับใช้ได้ตามวัตถุประสงค์แล้วครับ ผมขอถามต่ออีกอย่างหน่อยครับ กรณีเปลี่ยนชื่อ Textbox และวางสับตำแหน่งจนจำไม่ได้ว่าอันไหนอยู่ก่อนอยู่หลัง มันเลยสับกันมั่วไปหมด ถ้าต้องการปรับให้มันเรียงกันถูกต้อง ต้องทำอย่างไรครับ โดยที่ไม่ต้องย้าย Textbox สับไปมาครับ
User avatar
snasui
Site Admin
Site Admin
Posts: 30736
Joined: Sun Jan 24, 2010 12:33 pm
Location: Songkhla, Thailand
Excel Ver: 2010, 365
Contact:

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

#4

Post by snasui »

:D การจะดูว่าใน UserForm ที่สร้างขึ้นมี Object ใด ให้ชื่อเป็นอะไรบ้าง สามารถเข้าไปที่ UserForm นั้นแล้วดูผลลัพธ์ที่หน้าต่าง Tab Order ดังภาพ สามารถจัดลำดับ Order โดยคลิกปุ่ม Move Up, Move Down ได้ตามต้องการครับ
You do not have the required permissions to view the files attached to this post.
Post Reply