انتقل إلى المحتوى الرئيسي

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

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

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


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

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

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

ملاحظة:

1). إذا لم يكن هناك زر قائمة منسدلة موجود في الجزء العلوي من عمود التاريخ ، فالرجاء تمكين عامل التصفية عن طريق النقر البيانات > منقي.
2). لإخفاء جميع الصفوف قبل تاريخ اليوم ، يرجى تحديد بعد اختيار. خلاف ذلك ، اختر ملف قبل اختيار. هنا أحتاج إلى إخفاء جميع الصفوف قبل تاريخ اليوم والاحتفاظ بجميع الصفوف بعد تاريخ اليوم ، لذلك أقوم بتحديد الخيار بعد.

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

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


إخفاء الصفوف بناءً على تاريخ اليوم برمز 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 .

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

ملاحظة:

1. <الآن يعني أن جميع الصفوف التي تسبق تاريخ اليوم ستختفي بعد تشغيل الكود. لإخفاء كل الصفوف بعد تاريخ اليوم ، يرجى التغيير <الآن إلى > الآن.
2. لعرض كافة الصفوف المخفية ، يرجى تطبيق كود فبا أدناه.

كود فبا: إظهار كل الصفوف المخفية في إكسيل

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

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

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

قبل التطبيق كوتولس ل إكسيلالرجاء قم بتنزيله وتثبيته أولاً.

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

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

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

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

  إذا كنت ترغب في الحصول على نسخة تجريبية مجانية (30 يومًا) من هذه الأداة المساعدة ، الرجاء الضغط لتنزيلهثم انتقل لتطبيق العملية حسب الخطوات المذكورة أعلاه.


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

أفضل أدوات إنتاجية المكتب

🤖 مساعد Kutools AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

الوصف


يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations