كيفية تصفية البيانات بمجرد النقر على محتوى الخلية في Excel؟

عادةً، في Excel، يمكنك تطبيق وظيفة التصفية لتصفية البيانات حسب احتياجاتك. ولكن، في هذه المقالة، سأتحدث عن كيفية تصفية البيانات بمجرد النقر على قيمة خلية. خذ البيانات التالية كمثال، عندما أنقر نقرًا مزدوجًا على الخلية A2، سيتم تصفية جميع السجلات المقابلة بناءً على القيمة التي تم النقر عليها فورًا كما هو موضح في لقطة الشاشة أدناه.

تصفية البيانات بمجرد النقر على قيمة الخلية باستخدام كود VBA

تصفية البيانات بمجرد النقر على قيمة الخلية باستخدام كود VBA

هنا، سأقدم لك كود VBA لتصفية البيانات بالنقر على الخلية، يرجى القيام بما يلي:

1. أولاً، أعطِ بياناتك اسم نطاق، يرجى إدخال اسم النطاق في مربع الاسم، ثم اضغط على مفتاح الإدخال Enter، انظر لقطة الشاشة:

2. انقر بزر الماوس الأيمن على تبويب الورقة الذي تريد تصفية بياناته بالنقر على الخلية، ثم اختر عرض الكود من قائمة السياق، وفي نافذة Microsoft Visual Basic for Applications التي تم فتحها، قم بنسخ ولصق الكود التالي في الوحدة الفارغة:

كود 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

ملاحظة: في الكود أعلاه، mydata هو اسم النطاق الذي أنشأته لنطاق بياناتك، يرجى تغييره حسب حاجتك.

3. ثم احفظ وأغلق نافذة الكود، الآن، عندما تنقر نقرًا مزدوجًا على أي خلية من نطاق البيانات الذي تريد تصفيته، سيتم تصفية السجلات المقابلة لها كما هو موضح في لقطة الشاشة التالية:

اكتشف سحر Excel مع Kutools AI

• التنفيذ الذكي: قم بعمليات الخلية، وتحليل البيانات، وإنشاء المخططات - كل ذلك يتم من خلال أوامر بسيطة.
• الصيغ المخصصة: قم بإنشاء صيغ مصممة خصيصًا لتسهيل سير عملك.
• برمجة VBA: كتابة وتطبيق أكواد VBA بسهولة.
• تفسير الصيغ: فهم الصيغ المعقدة بسهولة.
• ترجمة النصوص: تجاوز الحواجز اللغوية داخل جداول البيانات الخاصة بك.

عزز قدرات Excel لديك باستخدام أدوات تعمل بالذكاء الاصطناعي. قم بالتنزيل الآن وعش تجربة الكفاءة كما لم يحدث من قبل!

مقالات ذات صلة أكثر:

كيفية تغيير قيمة الخلية بالنقر على الخلية؟

كيفية فرز بيانات العمود بالنقر على الرأس في Excel؟