วิธีการเติมข้อมูล Textbox จากการเลือก Combobox บน UserForm ใน Excel?
สมมติว่าคุณมีตารางมีชื่อคอลัมน์และหมายเลขพนักงานตามที่แสดงภาพหน้าจอด้านล่าง ตอนนี้คุณจำเป็นต้องสร้าง Userform ที่ฝังอยู่ในกล่องคำสั่งผสมซึ่งรวบรวมชื่อทั้งหมดไว้ภายในและกล่องข้อความซึ่งจะแสดงหมายเลขพนักงานที่เกี่ยวข้องเมื่อเลือกชื่อจากกล่องคำสั่งผสม วิธีการในบทความนี้สามารถช่วยให้คุณได้รับมันลง
แทรกหรือลบกล่องกาเครื่องหมายหลายรายการใน Excel ได้อย่างง่ายดาย:
La กล่องตรวจสอบกล่องแบทช์ สาธารณูปโภคของ Kutools สำหรับ Excel สามารถช่วยให้คุณสามารถแทรกช่องทำเครื่องหมายหลายช่องได้อย่างรวดเร็วในช่วงที่เลือกพร้อมกัน และคุณสามารถลบกล่องกาเครื่องหมายทั้งหมดในช่วงที่เลือกด้วยปุ่ม กล่องตรวจสอบการลบแบทช์. ดู sccreenshot:
Kutools สำหรับ Excel: มี Excel Add-ins ที่มีประโยชน์มากกว่า 200 และสามารถทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 60 วัน ดาวน์โหลดและทดลองใช้ฟรี Now!
เครื่องมือเพิ่มประสิทธิภาพที่แนะนำ
เติมช่องว่างโดยใช้การเลือก Combobox บน Userform กับ VBA
โปรดดำเนินการดังนี้เพื่อใส่ช่องข้อความโดยใช้ค่าที่สอดคล้องกันตามการเลือก combobox ใน Userform
1 กด อื่น ๆ + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอ็พพลิเคชัน หน้าต่าง
2 ใน Microsoft Visual Basic สำหรับแอ็พพลิเคชัน หน้าต่างคลิก สิ่งที่ใส่เข้าไป > UserForm. ดูภาพหน้าจอ:
3 จากนั้นแทรกตัวควบคุมกล่องคำสั่งผสมและตัวควบคุมกล่องข้อความลงใน Userform ที่สร้างขึ้นตามที่แสดงด้านล่างภาพหน้าจอ
4 คลิกขวาที่พื้นที่ว่างของ Userform แล้วคลิกตกลง ดูรหัส จากเมนูบริบท ดูภาพหน้าจอ:
5 ในหน้าต่าง Userform (รหัส) ที่เปิดขึ้นโปรดคัดลอกและวางรหัส VBA ด้านล่างเพื่อแทนที่ต้นฉบับ
รหัส VBA: เติมช่องว่างตามการเลือก combobox บน Userform
1
2
3
4
5
6
7
8
9
| Dim xRg As Range'Updated by Extendoffice 2018/1/30Private Sub UserForm_Initialize() Set xRg = Worksheets("Sheet5").Range("A2:B8") Me.ComboBox1.List = xRg.Columns(1).ValueEnd SubPrivate Sub ComboBox1_Change() Me.TextBox1.Text = Application.WorksheetFunction.VLookup(Me.ComboBox1.Value, xRg, 2, False)End Sub |
หมายเหตุ: ในโค้ด A2: B2 คือช่วงที่มีค่าที่คุณจะเติมแยกต่างหากทั้งในกล่องคำสั่งผสม Userform และกล่องข้อความ Sheet5 คือชื่อของแผ่นงานประกอบด้วยช่วงข้อมูล โปรดเปลี่ยนตามที่คุณต้องการ
6 กด อื่น ๆ + Q คีย์เพื่อออกจาก Microsoft Visual Basic สำหรับแอ็พพลิเคชัน หน้าต่าง
7 คลิก ผู้พัฒนา > สิ่งที่ใส่เข้าไป > ปุ่มคำสั่ง (ตัวควบคุม ActiveX) แทรกปุ่มคำสั่งลงในแผ่นงาน
8 คลิกขวาที่แท็บแผ่นงานและเลือก ดูรหัส จากเมนูคลิกขวา จากนั้นคัดลอกและวางโค้ด VBA ลงในหน้าต่างโค้ด
รหัส VBA: แสดง userform
1
2
3
4
| Private Sub CommandButton1_Click()'Updated by Extendoffice 2018/1/30 UserForm1.ShowEnd Sub |
9 ปิดโหมดการออกแบบในสมุดงาน
คลิกปุ่มคำสั่งเพื่อเปิด userform ที่ระบุ จากนั้นคุณจะเห็นชื่อทั้งหมดในกล่องคำสั่งผสม เมื่อเลือกชื่อจากกล่องคำสั่งผสมตัวเลขพนักงานที่เกี่ยวข้องจะถูกป้อนลงในช่องโดยอัตโนมัติตามภาพหน้าจอที่แสดงด้านล่าง
บทความที่เกี่ยวข้อง:
- จะเติมข้อมูลในกล่องคำสั่งผสมด้วยข้อมูลที่ระบุในสมุดงานได้อย่างไร?
- วิธีเติมข้อมูลเซลล์อื่นโดยอัตโนมัติเมื่อเลือกค่าใน Excel drop down list?
- วิธีเติมข้อมูลเซลล์อื่นโดยอัตโนมัติเมื่อเลือกค่าใน Excel drop down list?
- วิธีเติมข้อมูลผลการค้นหาของ Google ลงในแผ่นงานใน Excel
เครื่องมือเพิ่มประสิทธิภาพที่แนะนำ
แท็บ Office
นำแท็บที่มีประโยชน์ไปยัง Excel และซอฟต์แวร์ Office อื่น ๆ เช่นเดียวกับ Chrome, Firefox และ Internet Explorer ใหม่Kutools สำหรับ Excel
น่าทึ่ง! เพิ่มประสิทธิภาพการทำงานของคุณในอีก 5 นาที ไม่จำเป็นต้องมีทักษะพิเศษประหยัดสองชั่วโมงทุกวัน! 200 คุณสมบัติใหม่สำหรับ Excel, Make Excel ง่ายมากและมีประสิทธิภาพ:- ผสานเซลล์ / แถว / คอลัมน์โดยไม่สูญเสียข้อมูล
- รวมและรวมแผ่นงานหลายแผ่นและสมุดงาน
- เปรียบเทียบช่วง, คัดลอกหลายช่วง, แปลงข้อความเป็นวันที่, หน่วยและการแปลงสกุลเงิน
- นับตามสี, เพจย่อยย่อย, การเรียงลำดับขั้นสูงและตัวกรอง Super,
- เพิ่มเติมเลือก / แทรก / ลบ / ข้อความ / รูปแบบ / ลิงก์ / ความคิดเห็น / เวิร์คบุ๊ค / แผ่นงานเครื่องมือ ...
ไม่มีความคิดเห็น:
แสดงความคิดเห็น