วิธีกรองข้อมูลเพียงแค่คลิกเนื้อหาเซลล์ใน Excel
โดยปกติใน Excel คุณสามารถใช้ฟังก์ชันตัวกรองเพื่อกรองข้อมูลตามความต้องการของคุณ แต่ในบทความนี้ฉันจะพูดถึงวิธีการกรองข้อมูลเพียงแค่คลิกค่าเซลล์ ใช้ข้อมูลต่อไปนี้เป็นตัวอย่างเมื่อฉันดับเบิลคลิกที่เซลล์ A2 ระเบียนที่เกี่ยวข้องทั้งหมดตามค่าที่คลิกนี้จะถูกกรองในครั้งเดียวตามภาพด้านล่างที่แสดง
กรองข้อมูลเพียงแค่คลิกค่าเซลล์ด้วยรหัส VBA
กรองข้อมูลเพียงแค่คลิกค่าเซลล์ด้วยรหัส VBA
ที่นี่ฉันจะให้รหัส VBA เพื่อให้คุณกรองข้อมูลโดยคลิกที่เซลล์โปรดทำดังนี้:
1. ขั้นแรกตั้งชื่อช่วงให้ข้อมูลของคุณโปรดป้อนชื่อช่วงในไฟล์ ชื่อ: กล่องและกด เข้าสู่ สำคัญดูภาพหน้าจอ:
2. คลิกขวาที่แท็บแผ่นงานที่คุณต้องการกรองโดยคลิกเซลล์จากนั้นเลือก ดูรหัส จากเมนูบริบทและในเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคัดลอกและวางรหัสต่อไปนี้ลงในโมดูลเปล่า:
รหัส VBA: กรองข้อมูลโดยคลิกค่าเซลล์:
Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updateby Extendoffice
Dim rgTable As Range
Dim rgData As Range
Dim xColumn As Integer
On Error Resume Next
Application.ScreenUpdating = False
Set rgTable = Range("mydata")
With rgTable
Set rgData = .Offset(1, 0).Resize(.Rows.Count - 1, .Columns.Count)
If Not Application.Intersect(ActiveCell, rgData.Cells) Is Nothing Then
xColumn = ActiveCell.Column - .Column + 1
If ActiveSheet.AutoFilterMode = False Then
.AutoFilter
End If
If ActiveSheet.AutoFilter.Filters(xColumn).On = True Then
.AutoFilter Field:=xColumn
Else
.AutoFilter Field:=xColumn, Criteria1:=ActiveCell.Value
End If
End If
End With
Set rgData = Nothing
Set rgTable = Nothing
Application.ScreenUpdating = True
End Sub
หมายเหตุ: ในโค้ดด้านบน ข้อมูลของฉัน คือชื่อช่วงที่คุณสร้างขึ้นสำหรับช่วงข้อมูลของคุณโปรดเปลี่ยนตามความต้องการของคุณ
3. จากนั้นบันทึกและปิดหน้าต่างรหัสตอนนี้เมื่อคุณคลิกสองครั้งที่เซลล์ใด ๆ ของช่วงข้อมูลที่คุณต้องการกรองบันทึกที่เกี่ยวข้องจะถูกกรองตามภาพหน้าจอต่อไปนี้:
บทความที่เกี่ยวข้องเพิ่มเติม:
วิธีการเปลี่ยนค่าเซลล์โดยคลิกที่เซลล์?
วิธีจัดเรียงข้อมูลคอลัมน์โดยคลิกที่ส่วนหัวใน Excel
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
