كيفية تصفية البيانات من تحديد القائمة المنسدلة في إكسيل؟
في Excel ، قد يقوم معظمنا بتصفية البيانات باستخدام ميزة التصفية. ولكن ، هل سبق لك أن حاولت تصفية البيانات من اختيار القائمة المنسدلة؟ على سبيل المثال ، عندما أحدد عنصرًا واحدًا من القائمة المنسدلة ، أريد أن يتم تصفية الصفوف المقابلة له كما هو موضح في لقطة الشاشة التالية. في هذه المقالة ، سأتحدث عن كيفية تصفية البيانات باستخدام القائمة المنسدلة في ورقة عمل واحدة أو اثنتين.
تصفية البيانات من تحديد القائمة المنسدلة في ورقة عمل واحدة مع الصيغ المساعدة
تصفية البيانات من تحديد القائمة المنسدلة في ورقتي عمل برمز VBA
تصفية البيانات من تحديد القائمة المنسدلة في ورقة عمل واحدة مع الصيغ المساعدة
لتصفية البيانات من القائمة المنسدلة ، يمكنك إنشاء بعض أعمدة صيغة المساعد ، يرجى اتباع الخطوات التالية واحدة تلو الأخرى:
1. أولاً ، أدخل القائمة المنسدلة. انقر فوق الخلية التي تريد إدراج القائمة المنسدلة فيها ، ثم انقر فوق البيانات > التحقق من صحة البيانات > التحقق من صحة البيانات، انظر لقطة الشاشة:
2. في خرجت التحقق من صحة البيانات مربع الحوار ، تحت الإعدادات علامة التبويب، حدد قائمة من السماح القائمة المنسدلة ، ثم انقر فوق لاختيار قائمة البيانات التي تريد إنشاء القائمة المنسدلة بناءً عليها ، انظر لقطة الشاشة:
3. ثم انقر فوق OK زر ، يتم إدراج القائمة المنسدلة مرة واحدة ، واختيار عنصر واحد من القائمة المنسدلة ، ثم أدخل هذه الصيغة: = ROWS (دولار A $ 2: A2) (A2 هي الخلية الأولى داخل العمود التي تحتوي على قيمة القائمة المنسدلة) في الخلية D2 ، ثم اسحب مقبض التعبئة لأسفل إلى الخلايا لتطبيق هذه الصيغة ، انظر الصورة:
4. استمر في إدخال هذه الصيغة: = IF (A2 = $ H $ 2، D2، "") في الخلية E2 ، ثم اسحب مقبض التعبئة لأسفل لملء هذه الصيغة ، انظر الصورة:
ملاحظات: في الصيغة أعلاه :A2 هي الخلية الأولى داخل العمود التي تحتوي على قيمة القائمة المنسدلة ,H2 هي الخلية حيث يتم وضع القائمة المنسدلة ، D2 هي الصيغة الأولى للعمود المساعد.
5. ثم اكتب هذه الصيغة: = IFERROR (صغير ($ E $ 2: $ E $ 17، D2)، "") في الخلية F2 ، ثم اسحب مقبض التعبئة لأسفل إلى الخلايا لملء هذه الصيغة ، انظر الصورة:
ملاحظات: في الصيغة أعلاه: E2: E17 هي خلايا الصيغة المساعدة الثانية ، D2 هي الخلية الأولى في عمود صيغة المساعد الأول.
6. بعد إدراج أعمدة الصيغة المساعدة ، يجب عليك إخراج النتيجة المصفاة في موقع آخر ، يرجى تطبيق هذه الصيغة: =IFERROR(INDEX($A$2:$C$17,$F2,COLUMNS($J$2:J2)),"") في الخلية J2 ، ثم اسحب مقبض التعبئة من J2 إلى L2 ، وتم استخراج السجل الأول للبيانات استنادًا إلى القائمة المنسدلة ، انظر الصورة:
ملاحظات: في الصيغة أعلاه: A2: C17 هي البيانات الأصلية التي تريد تصفيتها ، F2 هو عمود صيغة المساعد الثالث ، J2 هي الخلية حيث تريد إخراج نتيجة التصفية.
7. ثم استمر في سحب مقبض التعبئة لأسفل إلى الخلايا لعرض جميع السجلات المصفاة المقابلة ، انظر الصورة:
8. من الآن فصاعدًا ، عند تحديد عنصر واحد من القائمة المنسدلة ، يتم تصفية جميع الصفوف بناءً على هذا التحديد مرة واحدة ، انظر لقطة الشاشة:
تصفية البيانات من تحديد القائمة المنسدلة في ورقتي عمل برمز VBA
إذا كانت خلية القائمة المنسدلة في الورقة 1 والبيانات التي تمت تصفيتها في الورقة 2 ، عند اختيار عنصر واحد من القائمة المنسدلة ، سيتم تصفية ورقة أخرى. كيف يمكنك إنهاء هذه الوظيفة في Excel؟
قد تقدم لك شفرة فبا التالية معروفًا ، يرجى القيام بذلك على النحو التالي:
1. انقر بزر الماوس الأيمن فوق علامة تبويب الورقة التي تحتوي على خلية القائمة المنسدلة ، ثم اختر عرض الرمز من قائمة السياق ، في فتح Microsoft Visual Basic للتطبيقات نافذة ، انسخ والصق الكود التالي في الوحدة النمطية الفارغة:
كود فبا: تصفية البيانات من تحديد القائمة المنسدلة في ورقتين:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
On Error Resume Next
If Not Intersect(Range("A2"), Target) Is Nothing Then
Application.EnableEvents = False
If Range("A2").Value = "" Then
Worksheets("Sheet2").ShowAllData
Else
Worksheets("Sheet2").Range("A2").AutoFilter 1, Range("A2").Value
End If
Application.EnableEvents = True
End If
End Sub
ملاحظات: في الكود أعلاه: A2 هي الخلية التي تحتوي على القائمة المنسدلة ، و Sheet2 هي ورقة العمل التي تحتوي على البيانات التي تريد تصفيتها. الرقم 1 في البرنامج النصي: التصفية التلقائية 1 هو رقم العمود الذي تريد التصفية بناءً عليه. يمكنك تغييرها حسب حاجتك.
2. من الآن فصاعدًا ، عندما تحدد عنصرًا واحدًا من القائمة المنسدلة في الورقة 1 ، وسيتم تصفية البيانات المقابلة في الورقة 2 ، انظر لقطة الشاشة:
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!