จะทำการค้นหาที่กรองทันทีขณะพิมพ์เซลล์ใน Excel ได้อย่างไร?
บทความนี้ให้วิธีการสำหรับคุณในการค้นหาและกรองทันทีที่คุณพิมพ์ลงในเซลล์ใน 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. ปิดโหมดออกแบบโดยคลิก ผู้พัฒนา > โหมดการออกแบบ.
จากนี้ไปรายการตารางจะถูกค้นหาและกรองทันทีตามค่าที่ป้อนในกล่องข้อความ ดูภาพหน้าจอ:

ปลดล็อก Excel Magic ด้วย Kutools AI
- การดำเนินการอย่างชาญฉลาด: ดำเนินการกับเซลล์ วิเคราะห์ข้อมูล และสร้างแผนภูมิ ทั้งหมดนี้ขับเคลื่อนด้วยคำสั่งง่ายๆ
- สูตรที่กำหนดเอง: สร้างสูตรที่ปรับแต่งโดยเฉพาะเพื่อปรับปรุงขั้นตอนการทำงานของคุณ
- การเข้ารหัส VBA: เขียนและใช้งานโค้ด VBA ได้อย่างง่ายดาย
- การตีความสูตร: เข้าใจสูตรที่ซับซ้อนได้อย่างง่ายดาย
- การแปลข้อความ: ทลายกำแพงด้านภาษาภายในสเปรดชีตของคุณ
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!