كيفية تصفية الخلايا حسب الحروف العريضة في 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> تصفية خاصة > تصفية عريض للقيام بذلك. شاهد العرض التوضيحي أدناه:

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