Note: The other languages of the website are Google-translated. Back to English

วิธีเติม Combo Box ด้วยข้อมูลของ Named Range ใน Excel

คุณสามารถระบุกล่องคำสั่งผสม (ActiveX Control) ด้วยข้อมูลของช่วงหนึ่งได้โดยการเพิ่มช่วงลงในคุณสมบัติ ListFillRange ของกล่องคำสั่งผสม แต่คุณรู้วิธีเติมกล่องคำสั่งผสมด้วยข้อมูลของช่วงที่ตั้งชื่อใน Excel หรือไม่? ตัวอย่างเช่นคุณได้ตั้งชื่อช่วงของเซลล์ในแผ่นงานของคุณและตอนนี้คุณจำเป็นต้องระบุชื่อช่วงนี้ลงในกล่องคำสั่งผสม เมื่อเลือกชื่อช่วงในกล่องคำสั่งผสมหนึ่งค่าของเซลล์ทั้งหมดในช่วงที่ตั้งชื่อนี้จะถูกเติมในกล่องคำสั่งผสมอื่นโดยอัตโนมัติ บทความนี้จะแนะนำวิธี VBA เพื่อแก้ปัญหานี้

เติมกล่องคำสั่งผสมด้วยข้อมูลของช่วงที่ตั้งชื่อด้วยรหัส VBA


เติมกล่องคำสั่งผสมด้วยข้อมูลของช่วงที่ตั้งชื่อด้วยรหัส VBA

โปรดทำดังนี้เพื่อเติมข้อมูลกล่องคำสั่งผสมด้วยข้อมูลของช่วงที่ตั้งชื่อใน Excel

1. โปรดเลือกส่วนหัวทั้งหมด (ในกรณีนี้ฉันเลือก A1: E1) ในแผ่นงานของคุณจากนั้นพิมพ์ชื่อลงใน ชื่อ: กล่อง ดังภาพด้านล่างที่แสดง

2. เลือกข้อมูลแต่ละคอลัมน์ยกเว้นส่วนหัวจากนั้นตั้งชื่อคอลัมน์แยกกันในไฟล์ ชื่อ: กล่อง. ดูภาพหน้าจอ:

ในกรณีนี้ฉันตั้งชื่อช่วง A2: A8, B2: B8, C2: C8, D2: D8 และ E2: E8 เป็น Date, Shop, Items, Sales และ Weekday แยกกัน

3. จากนั้นใส่กล่องคำสั่งผสมโดยคลิก ผู้พัฒนา > สิ่งที่ใส่เข้าไป > กล่องคำสั่งผสม (ActiveX Control). ดูภาพหน้าจอ:

4. ทำซ้ำขั้นตอนที่ 3 เพื่อใส่กล่องคำสั่งผสมอื่นลงในแผ่นงาน

5. คลิกขวาที่แท็บแผ่นงานจากนั้นคลิก ดูรหัส จากเมนูบริบท ดูภาพหน้าจอ:

6. ในการเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน โปรดคัดลอกและวางโค้ด VBA ด้านล่างลงในหน้าต่างรหัส

รหัส VBA: เติมกล่องคำสั่งผสมด้วยข้อมูลของช่วงที่ตั้งชื่อ

Private Sub ComboBox1_Change()
'Updated by Extendoffice 2018/1/30
    Dim xRg As Range
    Set xRg = Range(Me.ComboBox1.Text)
    Me.ComboBox2.List = Application.WorksheetFunction.Transpose(xRg)
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim xRg As Range
    Set xRg = Range("Headers")
    Me.ComboBox1.List = Application.WorksheetFunction.Transpose(xRg)
End Sub

หมายเหตุ: ในรหัส ComboBox1 คือชื่อของกล่องคำสั่งผสมซึ่งคุณจะแสดงชื่อช่วงทั้งหมดภายในและ ComboBox2 คือชื่อของกล่องคำสั่งผสมซึ่งข้อมูลของช่วงที่ระบุชื่อจะถูกบรรจุไว้ภายใน "ส่วนหัว" คือชื่อช่วงที่คุณสร้างในขั้นตอนที่ 1

7. ปิดโหมดออกแบบโดยคลิก ผู้พัฒนา > โหมดการออกแบบ.

8. คลิกที่เซลล์ใดก็ได้ในแผ่นงานเพื่อเปิดใช้งานรหัส คลิกปุ่มลูกศรในกล่องคำสั่งผสมแรกคุณจะเห็นช่วงที่มีชื่อทั้งหมดอยู่ในรายการ ดูภาพหน้าจอ:

เมื่อเลือกช่วงที่ตั้งชื่อในกล่องคำสั่งผสมแรกข้อมูลเซลล์ที่เกี่ยวข้องจะถูกเติมในกล่องคำสั่งผสมที่สองดังภาพด้านล่างที่แสดง:


สร้างรายการแบบหล่นลงได้อย่างง่ายดายด้วยช่องทำเครื่องหมายใน Excel:

พื้นที่ รายการแบบหล่นลงพร้อมกล่องกาเครื่องหมาย ประโยชน์ของ Kutools สำหรับ Excel สามารถช่วยให้คุณสร้างรายการแบบหล่นลงได้อย่างง่ายดายด้วยช่องทำเครื่องหมายในช่วงที่ระบุแผ่นงานปัจจุบันสมุดงานปัจจุบันหรือสมุดงานที่เปิดทั้งหมดตามความต้องการของคุณ
ดาวน์โหลดและทดลองใช้ทันที! (30เส้นทางฟรีวัน)


บทความที่เกี่ยวข้อง:


เครื่องมือเพิ่มประสิทธิภาพการทำงานในสำนักงานที่ดีที่สุด

Kutools สำหรับ Excel แก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%

  • นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
  • สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
  • แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
  • ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
  • รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
  • คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ. รองรับ Office/Excel 2007-2021 และ 365 รองรับทุกภาษา ง่ายต่อการปรับใช้ในองค์กรหรือองค์กรของคุณ คุณสมบัติเต็มรูปแบบ ทดลองใช้ฟรี 30 วัน รับประกันคืนเงินภายใน 60 วัน
kte แท็บ 201905

แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (0)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ

ช่องทางอื่นๆ

ลิขสิทธิ์© 2009 - wwwextendoffice.com | สงวนลิขสิทธิ์. ขับเคลื่อนโดย ExtendOffice. | แผนผังเว็บไซต์
Microsoft และโลโก้ Office เป็นเครื่องหมายการค้าหรือเครื่องหมายการค้าจดทะเบียนของ Microsoft Corporation ในสหรัฐอเมริกาและ / หรือประเทศอื่น ๆ
ได้รับการปกป้องโดย Sectigo SSL