كيفية إخفاء الصفوف بناءً على تاريخ اليوم في إكسيل؟

لنفترض أن لديك جدول فاكهة في ورقة العمل كما هو موضح في لقطة الشاشة أدناه ، وتحتاج إلى إخفاء جميع الصفوف قبل أو بعد التاريخ الحالي (6/14/2016) في الجدول. توفر لك هذه المقالة ثلاث طرق.

إخفاء الصفوف بناءً على تاريخ اليوم باستخدام وظيفة التصفية
إخفاء الصفوف بناءً على تاريخ اليوم برمز VBA
إخفاء الصفوف بناءً على تاريخ اليوم باستخدام Kutools for Excel

إخفاء الصفوف بناءً على تاريخ اليوم باستخدام وظيفة التصفية

باستخدام وظيفة التصفية في Excel ، يمكنك بسهولة تصفية جميع الصفوف المطلوبة وإخفاء جميع الصفوف غير المرغوب فيها بناءً على تاريخ اليوم.

1. في الجدول ، الرجاء النقر فوق زر القائمة المنسدلة في عمود التاريخ ، ثم النقر فوق مرشحات التاريخ > قبل or بعد. انظر لقطة الشاشة:

ملاحظة:

2. في ال تصفية تلقائية مخصصة مربع الحوار، انقر فوق منتقي التاريخ بجانب المربع بعد ، ثم انقر فوق اليوم زر في التقويم. ثم انقر فوق ملف OK .

ثم يتم إخفاء جميع الصفوف التي تسبق تاريخ اليوم على الفور.

افتح Excel Magic باستخدام Kutools AI

• التنفيذ الذكي: تنفيذ عمليات الخلية، وتحليل البيانات، وإنشاء المخططات - كل ذلك مدفوع بأوامر بسيطة.
• الصيغ المخصصة: قم بإنشاء صيغ مخصصة لتبسيط سير عملك.
• ترميز VBA: كتابة وتنفيذ كود VBA دون عناء.
• تفسير الصيغة: فهم الصيغ المعقدة بسهولة.
• ترجمة النص: كسر حواجز اللغة داخل جداول البيانات الخاصة بك.

عزز قدرات Excel لديك باستخدام الأدوات التي تعمل بالذكاء الاصطناعي. حمل التطبيق الآن وتجربة الكفاءة كما لم يحدث من قبل!

إخفاء الصفوف بناءً على تاريخ اليوم برمز VBA

يمكنك أيضًا تطبيق كود VBA لإخفاء الصفوف بناءً على تاريخ اليوم في Excel. الرجاء القيام بما يلي.

1. صحافة قديم + F11 مفاتيح في نفس الوقت لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. في ال ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، الرجاء الضغط إدراج > وحدة. ثم انسخ والصق رمز فبا التالي في النافذة.

كود فبا: إخفاء الصفوف بناءً على تاريخ اليوم في إكسيل

Private Sub Hidebtn_Click()
    Dim xRg As Range
    Dim xTxt As String
    Dim xCell As Range
    On Error Resume Next
    If ActiveWindow.RangeSelection.Count > 1 Then
      xTxt = ActiveWindow.RangeSelection.AddressLocal
    Else
      xTxt = ActiveSheet.UsedRange.AddressLocal
    End If
    Set xRg = Application.InputBox("Please select range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    For Each xCell In xRg
        If xCell.Value < Now Then
            xCell.EntireRow.Hidden = True
        End If
    Next
End Sub

3. اضغط على F5 مفتاح في ظهرت كوتولس ل إكسيل مربع الحوار ، حدد عمود النطاق الزمني ، ثم انقر فوق OK .

الآن يتم إخفاء جميع الصفوف قبل تاريخ اليوم على الفور.

ملاحظة:

Private Sub Showbtn_Click()
Rows.EntireRow.Hidden = False
End Sub

إخفاء الصفوف بناءً على تاريخ اليوم باستخدام Kutools for Excel

مع حدد خلايا معينة فائدة كوتولس ل إكسيل، يمكنك بسهولة تحديد كافة الصفوف قبل أو بعد تاريخ اليوم ، ثم إخفاؤها يدويًا.

1. حدد قائمة التاريخ في الجدول الخاص بك ، ثم انقر فوق كوتولس > أختار > حدد خلايا معينة. 

2. في ال حدد خلايا معينة في مربع الحوار ، حدد ملف الصف بأكمله الخيار في نوع التحديد ، ثم حدد أقل من or اعظم من الخيار (هنا أحدد خيار أقل من) في الأول نوع خاص أو معين القائمة المنسدلة ، ثم أدخل تاريخ اليوم في مربع النص التالي. أخيرًا انقر فوق ملف OK زر. انظر لقطة الشاشة:

3. ثم ينبثق مربع حوار لإخبارك بعدد الصفوف التي تم تحديدها ، يرجى النقر فوق OK زر. ويمكنك رؤية جميع الصفوف قبل تحديد تاريخ اليوم كما هو موضح أدناه.

4. انقر بزر الماوس الأيمن فوق التحديد ، ثم انقر فوق إخفاء في قائمة النقر بزر الماوس الأيمن لإخفاء جميع الصفوف المحددة قبل تاريخ اليوم.

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

• كيفية إخفاء مربع الاختيار عندما يكون الصف مخفيًا في Excel؟
• كيفية إخفاء / إظهار الصفوف أو الأعمدة بعلامة زائد أو ناقص في Excel؟