วิธีกรองข้อมูลเพียงแค่คลิกเนื้อหาเซลล์ใน 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 Magic ด้วย Kutools AI

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

ปรับปรุงความสามารถ Excel ของคุณด้วยเครื่องมือที่ขับเคลื่อนด้วย AI ดาวน์โหลดเดี๋ยวนี้ และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน!

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

วิธีการเปลี่ยนค่าเซลล์โดยคลิกที่เซลล์?

วิธีจัดเรียงข้อมูลคอลัมน์โดยคลิกที่ส่วนหัวใน Excel