كيفية تصفية البيانات فقط بالنقر فوق محتوى الخلية في Excel؟
عادة ، في Excel ، يمكنك تطبيق وظيفة التصفية لتصفية البيانات حسب حاجتك. لكن ، في هذه المقالة ، سأتحدث عن كيفية تصفية البيانات بمجرد النقر فوق قيمة الخلية. خذ البيانات التالية كمثال ، عندما أنقر مرتين على الخلية A2 ، ستتم تصفية جميع السجلات المطابقة بناءً على هذه القيمة التي تم النقر عليها مرة واحدة كما هو موضح أدناه.
تصفية البيانات فقط عن طريق النقر فوق قيمة خلية برمز VBA
تصفية البيانات فقط عن طريق النقر فوق قيمة خلية برمز VBA
هنا ، سأقدم لك رمز VBA لتصفية البيانات عن طريق النقر فوق خلية ، يرجى القيام بما يلي:
1. أولاً ، قم بتسمية البيانات الخاصة بك باسم النطاق ، يرجى إدخال اسم النطاق في اسم صندوق، و اضغط أدخل مفتاح ، انظر لقطة الشاشة:
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
ملاحظات: في الكود أعلاه ، بياناتي هو اسم النطاق الذي قمت بإنشائه لنطاق البيانات الخاص بك ، يرجى تغييره حسب حاجتك.
3. ثم احفظ وأغلق نافذة الكود ، الآن ، عند النقر نقرًا مزدوجًا فوق أي خلية من نطاق البيانات التي تريد تصفيتها ، سيتم تصفية السجلات المقابلة لها كما هو موضح في لقطة الشاشة التالية:
المزيد من المقالات ذات الصلة:
كيف تغير قيمة الخلية بالضغط على الخلية؟
كيفية فرز بيانات العمود عن طريق النقر فوق رأس في إكسيل؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!