ไปยังเนื้อหาหลัก

จะทำการค้นหาที่กรองทันทีขณะพิมพ์เซลล์ใน Excel ได้อย่างไร?

ผู้เขียน : ซิลูเวีย แก้ไขล่าสุด: 2024-10-29

บทความนี้ให้วิธีการสำหรับคุณในการค้นหาและกรองทันทีที่คุณพิมพ์ลงในเซลล์ใน Excel

การค้นหาที่กรองทันทีในขณะที่คุณพิมพ์ด้วยรหัส VBA


การค้นหาที่กรองทันทีในขณะที่คุณพิมพ์ด้วยรหัส VBA

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

ข้อมูลตัวอย่าง

1. ประการแรกคุณต้องสร้างตารางที่มีข้อมูลรายการและตั้งชื่อตารางว่า“Name”. โปรดเลือกรายการทั้งหมดคลิก สิ่งที่ใส่เข้าไป > ตาราง.

คลิกแทรก > ตาราง

2. ในการเปิด สร้างตาราง คลิกตกลง OK. ดูภาพหน้าจอ:

คลิกตกลงเพื่อสร้างตาราง

3. คลิกที่เซลล์ใดก็ได้ของตารางเพื่อเปิดใช้งานไฟล์ ออกแบบ แล้วเปลี่ยนชื่อตารางเป็น Name ใน ชื่อตาราง กล่องข้อความ. ดูภาพหน้าจอ:

เปลี่ยนชื่อตารางเป็นชื่อในกล่องข้อความชื่อตาราง

4 คลิก ผู้พัฒนา > สิ่งที่ใส่เข้าไป > กล่องข้อความ (ActiveX Control) เพื่อแทรกกล่องข้อความเหนือรายการตารางตามภาพด้านล่างที่แสดง:

คลิก นักพัฒนา > แทรก > กล่องข้อความ

5. คลิกขวาที่ Text Box แล้วคลิก อสังหาริมทรัพย์ ใน อสังหาริมทรัพย์ พิมพ์การอ้างอิงเซลล์ลงในไฟล์ เซลล์ที่เชื่อมโยง กล่อง.

คลิกขวาที่กล่องข้อความแล้วคลิกคุณสมบัติ จากนั้นตั้งค่าตัวเลือกในบานหน้าต่าง

6. คลิกขวาที่กล่องข้อความแล้วเลือก ดูรหัส จากเมนูบริบท จากนั้นแทนที่รหัสเดิมด้วยรหัส VBA ด้านล่างในไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง. ดูภาพหน้าจอ:

คลิกขวาที่ชื่อชีตแล้วเลือกดูโค้ด จากนั้นคัดลอกและวางโค้ดลงในโมดูลชีต

รหัส VBA: การค้นหาที่กรองทันทีขณะที่คุณพิมพ์ใน Excel

Private Sub TextBox1_Change()
'Update by Extendoffice 2018/08/22
Dim xStr, xName As String
Dim xWS As Worksheet
Dim xRg As Range
    On Error GoTo Err01
    Application.ScreenUpdating = False
    xName = "Name"
    xStr = TextBox1.Text
    Set xWS = ActiveSheet
    Set xRg = xWS.ListObjects(xName).Range
    If xStr <> "" Then
        xRg.AutoFilter field:=1, Criteria1:="*" & xStr & "*", Operator:=xlFilterValues
    Else
        xRg.AutoFilter field:=1, Operator:=xlFilterValues
    End If
Err01:
Application.ScreenUpdating = True
End Sub

หมายเหตุ: ในรหัส กล่องข้อความ 1 คือชื่อของกล่องข้อความที่แทรกชื่อคือชื่อของรายการตาราง คุณสามารถเปลี่ยนแปลงได้ตามความต้องการของคุณ

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

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

จากนี้ไปรายการตารางจะถูกค้นหาและกรองทันทีตามค่าที่ป้อนในกล่องข้อความ ดูภาพหน้าจอ:

รายการตารางจะถูกค้นหาและกรองทันทีตามค่าที่ป้อนในกล่องข้อความ

ภาพหน้าจอของ kutools สำหรับ excel ai

ปลดล็อก Excel Magic ด้วย Kutools AI

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

สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

🤖 Kutools AI ผู้ช่วย: ปฏิวัติการวิเคราะห์ข้อมูลโดยยึดตาม: การดำเนินการที่ชาญฉลาด   |  สร้างรหัส  |  สร้างสูตรที่กำหนดเอง  |  วิเคราะห์ข้อมูลและสร้างแผนภูมิ  |  เรียกใช้ฟังก์ชัน Kutools...
คุณสมบัติยอดนิยม: ค้นหา เน้น หรือระบุรายการที่ซ้ำกัน   |  ลบแถวว่าง   |  รวมคอลัมน์หรือเซลล์โดยไม่สูญเสียข้อมูล   |   รอบโดยไม่มีสูตร ...
การค้นหาขั้นสูง: VLookup หลายเกณฑ์    VLookup หลายค่า  |   VLookup ข้ามหลายแผ่น   |   การค้นหาที่ไม่ชัดเจน ....
รายการแบบเลื่อนลงขั้นสูง: สร้างรายการแบบหล่นลงอย่างรวดเร็ว   |  รายการแบบหล่นลงขึ้นอยู่กับ   |  เลือกหลายรายการแบบหล่นลง ....
ผู้จัดการคอลัมน์: เพิ่มจำนวนคอลัมน์เฉพาะ  |  ย้ายคอลัมน์  |  สลับสถานะการมองเห็นของคอลัมน์ที่ซ่อนอยู่  |  เปรียบเทียบช่วงและคอลัมน์ ...
คุณสมบัติเด่น: กริดโฟกัส   |  มุมมองการออกแบบ   |   บาร์สูตรใหญ่    สมุดงานและตัวจัดการชีต   |  ห้องสมุดทรัพยากร (ข้อความอัตโนมัติ)   |  เลือกวันที่   |  รวมแผ่นงาน   |  เข้ารหัส/ถอดรหัสเซลล์    ส่งอีเมลตามรายการ   |  ซุปเปอร์ฟิลเตอร์   |   ตัวกรองพิเศษ (กรองตัวหนา/ตัวเอียง/ขีดทับ...) ...
ชุดเครื่องมือ 15 อันดับแรก12 ข้อความ เครื่องมือ (เพิ่มข้อความ, ลบอักขระ, ... )   |   50 + แผนภูมิ ประเภท (แผนภูมิ Gantt, ... )   |   40+ ใช้งานได้จริง สูตร (คำนวณอายุตามวันเกิด, ... )   |   19 การแทรก เครื่องมือ (ใส่ QR Code, แทรกรูปภาพจากเส้นทาง, ... )   |   12 การแปลง เครื่องมือ (ตัวเลขเป็นคำ, การแปลงสกุลเงิน, ... )   |   7 ผสานและแยก เครื่องมือ (แถวรวมขั้นสูง, แยกเซลล์, ... )   |   ... และอื่น ๆ

เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา  คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...


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

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