كيفية تصفية الخلايا حسب الحروف العريضة في Excel؟

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

تصفية الخلايا العريضة باستخدام العمود المساعد
تصفية الخلايا العريضة باستخدام كود VBA
تصفية الخلايا العريضة بسهولة باستخدام أداة رائعة
المزيد من الدروس حول تصفية البيانات…

تصفية الخلايا العريضة باستخدام العمود المساعد

لنفترض أنك تحتاج إلى تصفية جميع الخلايا العريضة في العمود B كما هو موضح في لقطة الشاشة أدناه، يرجى القيام بما يلي:

الدالة المعرفة من قبل المستخدم أدناه تساعد في تحديد ما إذا كانت الخلية في عمود معين عريضة أم لا، ثم تقوم بإرجاع النتائج كـ TRUE أو FALSE في عمود مساعد. يمكنك تصفية جميع النتائج TRUE لعرض الخلايا العريضة فقط في العمود B.

1. اضغط على مفاتيح Alt + F11 لفتح نافذة Microsoft Visual Basic for Application.

2. في نافذة Microsoft Visual Basic for Application، انقر فوق إدراج > وحدة، ثم قم بنسخ الكود التالي لـ VBA في نافذة الوحدة. انظر لقطة الشاشة:

كود VBA: تصفية الخلايا حسب الحروف العريضة

Function IsBold(rCell As Range)
IsBold = rCell.Font.Bold
End Function

3. اضغط على مفاتيح Alt + Q لإغلاق نافذة الكود.

4. حدد خلية فارغة مجاورة للجدول (يجب أن تكون الخلية المحددة في نفس صف الصف الأول في جدول التصفية)، انسخ الصيغة أدناه فيها واضغط على مفتاح الإدخال.

=IsBold(B2)

5. استمر في تحديد أول خلية نتيجة، واسحب مقبض التعبئة للحصول على جميع النتائج. انظر لقطة الشاشة:

6. حدد عنوان العمود المساعد، انقر فوق البيانات > تصفية. انقر فوق زر السهم بجانب خلية العنوان، وحدد مربع TRUE فقط، ثم انقر فوق موافق.

الآن تم تصفية جميع الخلايا العريضة في العمود B كما هو موضح في لقطة الشاشة أدناه.

تصفية الخلايا العريضة باستخدام كود VBA

1. حدد نطاق العمود الذي ستصفّي منه جميع الخلايا العريضة باستثناء خلية العنوان. في هذه الحالة، حددت B2:B16.

2. اضغط على مفاتيح Alt + F11 لفتح نافذة Microsoft Visual Basic for Application.

3. في نافذة Microsoft Visual Basic for Application، انقر فوق إدراج > وحدة، ثم قم بنسخ ولصق الكود التالي لـ VBA في نافذة الوحدة.

كود VBA: تصفية الخلايا العريضة في عمود

Sub FilterBold()
'Updated by Extendoffice 20191018
Dim cell As Range
For Each cell In Selection
If cell.Font.Bold = False Then
cell.EntireRow.Hidden = True
End If
Next cell
End Sub

4. اضغط على مفتاح F5 لتشغيل هذه الماكرو. ثم يتم تصفية جميع الخلايا العريضة فوراً في نطاق العمود المحدد.

تصفية الخلايا العريضة بسهولة باستخدام أداة رائعة

في هذا القسم، نوصيك بأداة عملية – أداة تصفية الخلايا العريضة من Kutools لـ Excel. باستخدام هذه الأداة، يتم تصفية جميع الخلايا العريضة في العمود المحدد فوراً بعدة نقرات.

1. حدد نطاق العمود الذي ستصفّي فيه الخلايا العريضة، انقر فوق Kutools Plus> تصفية خاصة > تصفية عريضة للانتهاء. انظر العرض التوضيحي أدناه:

مقالات ذات صلة