Note: The other languages of the website are Google-translated. Back to English
English English

วิธีกรองข้อมูลเพียงแค่คลิกเนื้อหาเซลล์ใน Excel

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

doc กรองโดยคลิก 1

กรองข้อมูลเพียงแค่คลิกค่าเซลล์ด้วยรหัส VBA


ลูกศรสีฟ้าฟองขวา กรองข้อมูลเพียงแค่คลิกค่าเซลล์ด้วยรหัส VBA

ที่นี่ฉันจะให้รหัส VBA เพื่อให้คุณกรองข้อมูลโดยคลิกที่เซลล์โปรดทำดังนี้:

1. ขั้นแรกตั้งชื่อช่วงให้ข้อมูลของคุณโปรดป้อนชื่อช่วงในไฟล์ ชื่อ: กล่องและกด เข้าสู่ สำคัญดูภาพหน้าจอ:

doc กรองโดยคลิก 2

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

doc กรองโดยคลิก 3

หมายเหตุ: ในโค้ดด้านบน ข้อมูลของฉัน คือชื่อช่วงที่คุณสร้างขึ้นสำหรับช่วงข้อมูลของคุณโปรดเปลี่ยนตามความต้องการของคุณ

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

doc กรองโดยคลิก 4


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

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

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


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

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

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

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

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มผลผลิตของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (3)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
Muito bom!
Entretanto, só funciona em um Intervalo.
ใช้ queria aplicá-lo em uma Tabela, é possível? Ficaria muito agradecido se ซิม!!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดี

สะดวกมาก ... lástima que no funcione con un archivo protegido ... qué podría cambiarle para que si funcione?

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