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

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

เติมข้อความอัตโนมัติเมื่อพิมพ์ในรายการแบบเลื่อนลงด้วยรหัส 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 หน้าต่าง

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

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

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

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

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

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

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

---

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

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

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