انتقل إلى المحتوى الرئيسي

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

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

مرشح doc بالنقر فوق 1

تصفية البيانات فقط عن طريق النقر فوق قيمة خلية برمز VBA


السهم الأزرق الحق فقاعة تصفية البيانات فقط عن طريق النقر فوق قيمة خلية برمز VBA

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

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

مرشح doc بالنقر فوق 2

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

رمز فبا: تصفية البيانات عن طريق النقر فوق قيمة الخلية:

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


المزيد من المقالات ذات الصلة:

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

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

أفضل أدوات إنتاجية المكتب

🤖 مساعد Kutools AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

الوصف


يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi, I have a summary sheet, that calculates how many lines on the main sheet that are within a certain date range. I want to be able to double click on a certain date range and it then filter out the data on the main sheet to the date range I double clicked on. What code would I need for this please
This comment was minimized by the moderator on the site
Buenas tardes

Excelente aportación ... lástima que no funcione con un archivo protegido ... qué podría cambiarle para que si funcione?

Saludos
This comment was minimized by the moderator on the site
Muito bom!
Entretanto, só funciona em um intervalo.
Eu queria aplicá-lo em uma Tabela, é possível? Ficaria muito agradecido se sim!!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations