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

إخفاء الصفوف استنادًا إلى تاريخ اليوم باستخدام وظيفة التصفية
إخفاء الصفوف استنادًا إلى تاريخ اليوم باستخدام رمز VBA
إخفاء الصفوف استنادًا إلى تاريخ اليوم باستخدام Kutools لـ Excel
إخفاء الصفوف استنادًا إلى تاريخ اليوم باستخدام وظيفة التصفية
باستخدام وظيفة التصفية في Excel، يمكنك بسهولة عرض جميع الصفوف المطلوبة وإخفاء غير المرغوب منها تلقائيًا بناءً على تاريخ اليوم.
1. في الجدول، يُرجى النقر على زر القائمة المنسدلة في عمود التاريخ، ثم النقر علىتصفية التاريخ > قبلأوبعد. انظر لقطة الشاشة:

ملاحظات:
2. في مربع الحوارالتصفية التلقائية المخصصة، انقر على الزرأداة اختيار التاريخ
الموجود بجانب مربع «بعد»، ثم اختراليوممن التقويم، وبعد ذلك انقر على زرموافق.

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


افتح سحر إكسل مع KUTOOLS AI
- التنفيذ الذكي: نفِّذ عمليات الخلايا، وحلِّل البيانات، وأنشئ المخططات البيانية — كل ذلك بأوامر بسيطة!
- الصيغ المخصصة: أنشئ صيغًا مخصصة لتبسيط سير عملك.
- برمجة VBA: اكتب وأَنفِذ أكواد VBA بسلاسة تامة.
- تفسير الصيغ: افهم الصيغ المعقدة بسهولة!
- ترجمة النصوص: اكسر الحواجز اللغوية في جداولك الإلكترونية!
إخفاء الصفوف استنادًا إلى تاريخ اليوم باستخدام رمز VBA
يمكنك أيضًا استخدام رمز VBA لإخفاء الصفوف تلقائيًا بناءً على تاريخ اليوم في Excel. يُرجى اتباع الخطوات التالية:
1. اضغط على مفاتيحAlt + F11 في آنٍ واحد لفتح نافذةمايكروسوفت Visual Basic for Applications.
2. في نافذةمايكروسوفت Visual Basic for Applications، انقر علىإدراج > وحدة نمطية. ثم انسخ والصق رمز VBA التالي في النافذة.
رمز VBA: إخفاء الصفوف استنادًا إلى تاريخ اليوم في Excel
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، ثم في مربع الحوار المنبثقKutools لـ Excel، حدد عمود نطاق التاريخ، وانقر على زرموافق.

الآن، سيتم إخفاء جميع الصفوف التي تسبق تاريخ اليوم فورًا.
ملاحظات:
رمز VBA: إظهار جميع الصفوف المخفية في Excel
Private Sub Showbtn_Click()
Rows.EntireRow.Hidden = False
End Sub إخفاء الصفوف استنادًا إلى تاريخ اليوم باستخدام Kutools لـ Excel
باستخدام أداةتحديد خلايا محددةمنKutools لـ Excel، يمكنك بسهولة تحديد جميع الصفوف السابقة أو اللاحقة لتاريخ اليوم، ثم إخفاؤها يدويًّا.
1. حدد قائمة التواريخ في جدولك، ثم انقر علىKutools > تحديد > تحديد خلايا محددة.

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

3. بعد ذلك، يظهر مربع حوار يُبلغك بعدد الصفوف التي تم تحديدها؛ يُرجى النقر على زرموافق. وستتمكن من رؤية جميع الصفوف السابقة لتاريخ اليوم مُحدَّدة، كما هو موضح في لقطة الشاشة أدناه.
4. انقر بزر الماوس الأيمن على التحديد، ثم اخترإخفاءمن قائمة النقر بزر الماوس الأيمن لإخفاء جميع الصفوف المحددة التي تسبق تاريخ اليوم.

إذا كنت ترغب في تجربة هذه الأداة مجانًا (لمدة 30 يومًا)،فما عليك سوى النقر لتنزيلها، ثم اتبع الخطوات المذكورة أعلاه لتطبيق العملية.
مقالات ذات صلة:
- كيف يمكن إخفاء خانة الاختيار تلقائيًا عند إخفاء الصف في Excel؟
- كيف تُخفي أو تُظهِر الصفوف أو الأعمدة في Excel باستخدام علامتي الجمع (+) أو الطرح (–)؟
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل