วิธีเติมข้อความอัตโนมัติเมื่อพิมพ์ในรายการแบบเลื่อนลงของ Excel

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

เติมข้อความอัตโนมัติเมื่อพิมพ์ในรายการแบบเลื่อนลงด้วยรหัส VBA
เติมข้อความอัตโนมัติเมื่อพิมพ์รายการดรอปดาวน์ด้วยเครื่องมือที่น่าทึ่ง
บทแนะนำเพิ่มเติมสำหรับรายการแบบเลื่อนลง ...

เติมข้อความอัตโนมัติเมื่อพิมพ์ในรายการแบบเลื่อนลงด้วยรหัส VBA

โปรดทำดังนี้เพื่อทำการเติมข้อความอัตโนมัติในรายการแบบหล่นลงหลังจากพิมพ์ตัวอักษรที่เกี่ยวข้องในเซลล์

ประการแรกคุณต้องแทรกกล่องคำสั่งผสมลงในแผ่นงานและเปลี่ยนคุณสมบัติ

1. เปิดแผ่นงานที่มีเซลล์รายการแบบหล่นลงที่คุณต้องการให้เติมข้อความอัตโนมัติ

2. ก่อนแทรกกล่องคำสั่งผสมคุณต้องเพิ่มแท็บนักพัฒนาลงในริบบิ้นของ Excel หากแท็บนักพัฒนาปรากฏบน Ribbon ของคุณ เปลี่ยนเป็นขั้นตอนที่ 3. มิฉะนั้นให้ดำเนินการดังนี้: คลิก เนื้อไม่มีมัน > Options เพื่อเปิด Options หน้าต่าง. ในเรื่องนี้ ตัวเลือก Excel หน้าต่างคลิก ปรับแต่งริบบิ้น ในบานหน้าต่างด้านซ้ายตรวจสอบไฟล์ ผู้พัฒนา จากนั้นคลิกที่ไฟล์ OK ปุ่ม. ดูภาพหน้าจอ:

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

4. วาดกล่องคำสั่งผสมในแผ่นงานปัจจุบัน คลิกขวาจากนั้นเลือก อสังหาริมทรัพย์ จากเมนูคลิกขวา

5 ใน อสังหาริมทรัพย์ โปรดแทนที่ข้อความเดิมในไฟล์ (ชื่อ) ฟิลด์ด้วย TempCombo

6 ปิดกล้อง โหมดการออกแบบ โดยคลิกที่ ผู้พัฒนา > โหมดการออกแบบ

จากนั้นใช้รหัส VBA ด้านล่าง

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

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

รหัส VBA: เติมข้อความอัตโนมัติเมื่อพิมพ์ในรายการแบบเลื่อนลง

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Update by Extendoffice: 2020/01/16
    Dim xCombox As OLEObject
    Dim xStr As String
    Dim xWs As Worksheet
    Dim xArr
    
    Set xWs = Application.ActiveSheet
    On Error Resume Next
    Set xCombox = xWs.OLEObjects("TempCombo")
    With xCombox
        .ListFillRange = ""
        .LinkedCell = ""
        .Visible = False
    End With
    If Target.Validation.Type = 3 Then
        Target.Validation.InCellDropdown = False
        Cancel = True
        xStr = Target.Validation.Formula1
        xStr = Right(xStr, Len(xStr) - 1)
        If xStr = "" Then Exit Sub
        With xCombox
            .Visible = True
            .Left = Target.Left
            .Top = Target.Top
            .Width = Target.Width + 5
            .Height = Target.Height + 5
            .ListFillRange = xStr
            If .ListFillRange = "" Then
                xArr = Split(xStr, ",")
                Me.TempCombo.List = xArr
            End If
            .LinkedCell = Target.Address
        End With
        xCombox.Activate
        Me.TempCombo.DropDown
    End If
End Sub
Private Sub TempCombo_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Select Case KeyCode
        Case 9
            Application.ActiveCell.Offset(0, 1).Activate
        Case 13
            Application.ActiveCell.Offset(1, 0).Activate
    End Select
End Sub

9 กด อื่น ๆ + Q พร้อมกันเพื่อปิดไฟล์ แอปพลิเคชัน Microsoft Visual Basic หน้าต่าง

จากนี้ไปเมื่อคลิกที่เซลล์รายการแบบหล่นลงรายการแบบหล่นลงจะแจ้งโดยอัตโนมัติ คุณสามารถเริ่มพิมพ์ตัวอักษรเพื่อทำให้รายการที่เกี่ยวข้องเสร็จสมบูรณ์โดยอัตโนมัติในเซลล์ที่เลือก ดูภาพหน้าจอ:

หมายเหตุ รหัสนี้ใช้ไม่ได้กับเซลล์ที่ผสาน

เติมข้อความอัตโนมัติเมื่อพิมพ์รายการดรอปดาวน์ด้วยเครื่องมือที่น่าทึ่ง

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

หมายเหตุ: ก่อนใช้คุณลักษณะนี้ ตรวจสอบให้แน่ใจว่าคุณได้สร้างรายการดรอปดาวน์ในเวิร์กชีตแล้ว ในกรณีนี้ รายการดรอปดาวน์จะอยู่ใน D3:D9

1 คลิก Kutools > รายการแบบหล่นลง > รายการดรอปดาวน์ที่ค้นหาได้ > การตั้งค่า.

2. ในการโผล่ขึ้นมา รายการดรอปดาวน์ที่ค้นหาได้ กล่องโต้ตอบ คุณต้องทำการตั้งค่าต่อไปนี้

3. หลังจากเสร็จสิ้นการตั้งค่า คุณต้องเปิดใช้งานคุณสมบัติโดยคลิก Kutools > รายการแบบหล่นลง > รายการดรอปดาวน์ที่ค้นหาได้ > เปิดใช้งานรายการดรอปดาวน์ที่ค้นหาได้.

ตอนนี้ เมื่อคุณคลิกเซลล์รายการแบบหล่นลง กล่องรายการพร้อมรายการทั้งหมดจะปรากฏขึ้น คุณเพียงแค่ต้องพิมพ์อักขระลงในกล่องข้อความเพื่อแสดงรายการที่เกี่ยวข้องทั้งหมด และใช้เครื่องหมาย Up or ลง ลูกศรเพื่อเลือกรายการที่คุณต้องการหรือเพียงแค่ให้รายการที่ตรงกันรายการแรกโดยอัตโนมัติกรอกในกล่องรายการแล้วกด เข้าสู่ คีย์เพื่อเติมเซลล์รายการแบบหล่นลงโดยอัตโนมัติด้วยรายการที่ตรงกัน ดูการสาธิตด้านล่าง

คลิกเพื่อทราบข้อมูลเพิ่มเติมเกี่ยวกับคุณลักษณะนี้

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

---

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

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

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

อ่านเพิ่มเติม ... ดาวน์โหลดฟรี... ซื้อ... 

---

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

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

อ่านเพิ่มเติม ... ดาวน์โหลดฟรี... ซื้อ...