كيفية العثور والحصول على قيمة أول خلية مرئية بعد التصفية في Excel؟

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

العثور والحصول على قيمة أول خلية مرئية بعد التصفية باستخدام صيغة المصفوفة
العثور والحصول على قيمة أول خلية مرئية بعد التصفية باستخدام VBA

العثور والحصول على قيمة أول خلية مرئية بعد التصفية باستخدام صيغة المصفوفة

يمكنك استخدام صيغة المصفوفة التالية لاسترداد قيمة أول خلية مرئية في قائمة تم تصفيتها. يرجى القيام بما يلي.

1. حدد خلية فارغة لوضع أول قيمة مرئية، وأدخل الصيغة أدناه فيها، ثم اضغط على مفاتيح Ctrl + Shift + Enter معًا.

=INDEX(C2:C19,MIN(IF(SUBTOTAL(3,OFFSET(C2,ROW(C2:C19)-ROW(C2),0)),ROW(C2:C19)-ROW(C2)+1)))

ملاحظة: في الصيغة، C2:C19 هي القائمة التي تم تصفيتها والتي تريد إرجاع قيمة أول خلية مرئية منها، وC2 هي الخلية الأولى من القائمة. يمكنك تغييرها حسب الحاجة.

ثم يمكنك رؤية قيمة أول خلية مرئية في القائمة التي تم تصفيتها معبأة في الخلية المحددة كما هو موضح في لقطة الشاشة أعلاه.

العثور والحصول على قيمة أول خلية مرئية بعد التصفية باستخدام VBA

بالإضافة إلى استخدام صيغة المصفوفة أعلاه للحصول على قيمة أول خلية مرئية في قائمة تم تصفيتها، يمكنك تشغيل البرنامج النصي VBA أدناه لعودة سريعة لأول خلية مرئية في قائمة تم تصفيتها. يرجى القيام بما يلي.

1. حدد خلية فارغة مثل E8 لوضع قيمة أول خلية مرئية في قائمة تم تصفيتها.

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

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

كود VBA: العثور والحصول على قيمة أول خلية مرئية بعد التصفية في Excel

Sub FirstVisibleCell()
   With Worksheets("Sheet1").AutoFilter.Range
       ActiveCell.Value2 = Range("C" & .Offset(1, 0).SpecialCells(xlCellTypeVisible)(1).Row).Value2
    End With
End Sub

ملاحظة: في الكود، Sheet1 هو اسم الورقة التي تحتوي على القائمة التي تم تصفيتها. “C” هو اسم العمود الذي تريد الحصول على أول قيمة مرئية منه. يمكنك تغييرها حسب الحاجة.

4. اضغط على مفتاح F5 لتشغيل الكود، ثم سيتم تعبئة أول خلية مرئية في القائمة التي تم تصفيتها الموجودة في العمود C إلى الخلية E8 على الفور.