كيف يمكنك تصفية جميع خلايا التواريخ التي تسبق اليوم أو تليه في إكسل؟
في هذه المقالة، سنستعرض خطوات تفصيلية لتصفية جميع خلايا التواريخ التي تكون قبل أو بعد يوم اليوم في ورقة عمل إكسل. يُعد إدارة وتحليل البيانات الحساسة زمنيًا متطلبًا شائعًا، خاصةً عند العمل مع السجلات أو الجداول الزمنية أو خطط المشاريع أو تتبع تاريخ الاستحقاق. وتجعل التصفية الفعالة حسب التواريخ من السهل التركيز فقط على السجلات ذات الصلة في وقت معين، مما يحسّن سير العمل ودقة اتخاذ القرار.
➤ تصفية جميع خلايا التواريخ السابقة أو اللاحقة ليوم اليوم باستخدام دالة التصفية
➤ تصفية جميع خلايا التواريخ السابقة أو اللاحقة ليوم اليوم باستخدام كود VBA
➤ تصفية جميع خلايا التواريخ السابقة أو اللاحقة ليوم اليوم باستخدام عمود مساعد الصيغة في إكسل
تصفية جميع خلايا التواريخ السابقة أو اللاحقة ليوم اليوم باستخدام دالة التصفية
تقدم ميزة التصفية المدمجة في إكسل وسيلة مباشرة لعرض التواريخ التي تسبق يوم اليوم أو تليه. وهي طريقة بصرية لا تتطلب أي صيغ أو أكواد VBA، مما يجعلها خيارًا مثاليًّا للمستخدمين الباحثين عن وسيلة سريعة لتصفية مجموعات البيانات الحالية دون الاعتماد على الصيغ أو VBA.
1. حدد العمود الذي يحتوي على تواريخك، ثم انتقل إلى علامة التبويببياناتوانقر علىتصفيةفي الشريط. ستظهر أسهم التصفية بجانب رأس كل عمود، كما هو موضح أدناه:
2. انقر على السهم المنسدل في رأس عمود التواريخ، ثم مرّر مؤشر الفأرة فوقتصفية التواريخواختر إماقبلأوبعدحسب حاجتك. على سبيل المثال، اخترقبلللعثور على التواريخ السابقة ليوم اليوم.
3. في مربع الحوارتصفية تلقائية مخصصة، انقر على أيقونةأداة اختيار التاريخ
لفتح التقويم، ثم انقر على زراليوملتعيين تاريخ اليوم بسرعة.
4. انقر علىموافق. سيقوم إكسل بتصفية بياناتك لإظهار الصفوف التي يتوافق تاريخها مع الشرط المحدد (قبل أو بعد اليوم)، كما هو موضح أدناه:
هذه الطريقة فعّالة للجداول متوسطة الحجم وسهلة الاستخدام جدًّا، إذ لا تتطلب أي مهارات متقدمة. ومع ذلك، ستحتاج إلى تكرار العملية يدويًّا في حال تم تحديث بياناتك أو تغيير المعايير.
⚠️ ملاحظة:إذا احتوى عمود التواريخ على نص أو لم يكن منسَّقًا كتواريخ صحيحة في إكسل، فقد لا تظهر خيارات التصفية ضمنتصفية التواريخ.
تصفية جميع خلايا التواريخ السابقة أو اللاحقة ليوم اليوم باستخدام كود VBA
إذا كنت بحاجة إلى تصفية البيانات بشكل متكرر أو رغبت في أتمتة العملية لمجموعات بيانات كبيرة، فإن استخدام كود VBA يُعد حلاً عمليًّا للغاية! وهو مثالي خصوصًا للمحللين، ولأتمتة التقارير، أو لأي سير عمل تتطلب تصفية البيانات حسب تاريخ اليوم بشكل دوري. مع VBA، يمكنك تطبيق التصفية بنقرة واحدة، مما يوفر عليك الجهد والوقت المبذولين في التصفية اليدوية المتكررة. يُرجى ملاحظة أن استخدام VBA يتطلب حفظ ملف العملك بتنسيق يدعم الماكرو ().xlsm)، وقد لا يتمكن بعض المستخدمين من تشغيله بسبب إعدادات أمان الماكرو.
1. اضغط مع الاستمرار على مفتاحَيALT + F11 لفتح نافذةمايكروسوفت فيجوال بيسك للتطبيقات.
2. في المحرر، انقر علىإدراج > وحدة نمطية، ثم الصق إحدى كتل التعليمات البرمجية التالية في نافذة الوحدة النمطية.
كود VBA: تصفية جميع خلايا التواريخ السابقة ليوم اليوم:
Sub FilterDateBeforeToday()
Dim xLastRow As Long
Dim xRg As Range
On Error Resume Next
Set xRg = Application.InputBox("Please select filtered column：", "KuTools for Excel", Selection.Address, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
ActiveSheet.AutoFilterMode = False
If xRg.Count = 1 Then Set xRg = xRg.CurrentRegion
xRg.AutoFilter 1, "<" & CDbl(Date)
Application.ScreenUpdating = True
End Sub
كود VBA: تصفية جميع خلايا التواريخ اللاحقة ليوم اليوم:
Sub FilterDateAfterToday()
Dim xLastRow As Long
Dim xRg As Range
On Error Resume Next
Set xRg = Application.InputBox("Please select filtered column：", "KuTools for Excel", Selection.Address, , , , , 8)
If xRg Is Nothing Then Exit Sub
Application.ScreenUpdating = False
ActiveSheet.AutoFilterMode = False
If xRg.Count = 1 Then Set xRg = xRg.CurrentRegion
xRg.AutoFilter 1, ">" & CDbl(Date)
Application.ScreenUpdating = True
End Sub
3. بعد نسخ ولصق أحد الكودين أعلاه، اضغط على مفتاحF5 لتشغيله. سيظهر مربع مطالبة يتيح لك تحديد النطاق أو العمود الذي يحتوي على تواريخك. تأكد من تحديد نطاق البيانات ذات الصلة فقط، وأن تكون تواريخك بتنسيق تاريخ إكسل الصحيح لتجنب أخطاء الكود.
4. انقر علىموافقلتنفيذ التصفية. سيتم عرض الصفوف التي يكون تاريخها قبل أو بعد اليوم تلقائيًّا (حسب اختيارك للكود)، مع إخفاء جميع الصفوف الأخرى.
⚠️ ملاحظة:تقلّل التصفية القائمة على VBA من تفاعل المستخدم، وهي مناسبة للاحتياجات البسيطة والمتقدمة على حدٍّ سواء. ومع ذلك، احفظ بياناتك دائمًا قبل تطبيق VBA، وتأكد مرتين من تحديد النطاق لتجنب استبعاد الصفوف الأساسية عن غير قصد. إذا واجهت أخطاءً، فتأكد من أن جميع قيم التواريخ هي تواريخ صالحة—فإدخالات غير تاريخية قد تؤدي إلى خلل في الماكرو. ولراحتك المستمرة، فكّر في تعيين الماكرو على زر للتصفية بنقرة واحدة!
تصفية جميع خلايا التواريخ السابقة أو اللاحقة ليوم اليوم باستخدام عمود مساعد الصيغة في إكسل
يتضمّن حلٌّ بديلٌ مرن إضافةَ عمود مساعد يحتوي على صيغة إكسل لوضع علامة على التواريخ التي تسبق اليوم أو تليه. وتتميّز هذه الطريقة بمرونتها العالية في تحديد شروط التصفية وتعديلها، ما يجعلها مثاليةً للجداول الديناميكية، أو التصفية المعقدة، أو عند رغبتك في إجراء تحليل إضافي على البيانات المُميَّزة. وعلى عكس التصفية الموضعية، تتيح لك طريقة عمود المساعد وضعَ علامة بصرية على الصفوف، ثم تطبيق أداة التصفية في إكسل للحصول على تحكمٍ مخصّصٍ أكبر. وهذه التقنية سهلة التنفيذ وممتازة لتتبُّع المواعيد النهائية، أو المهام المتأخّرة، أو مراقبة الأحداث القادمة.
1. أدخل عمودًا جديدًا بجانب عمود التواريخ. على سبيل المثال، إذا كانت تواريخك موجودة في العمودA، بدءًا من الخليةA2، ففي عمود المساعدة الجديد (لنفترض أنه العمود)B)، أدخل الصيغة التالية في الخليةB2 لوضع علامة على التواريخ السابقة ليوم اليوم:
=A2<TODAY()تُرجع الصيغةصوابللتواريخ السابقة ليوم اليوم، وخطأفي جميع الحالات الأخرى.
إذا أردت وضع علامة على التواريخ اللاحقة ليوم اليوم (أي التواريخ المستقبلية)، فاستخدم هذا الإصدار في الخليةB2:
=A2>TODAY()2. اسحب الصيغة لأسفل عمود المساعدة لتقييم جميع الصفوف في مجموعة البيانات الخاصة بك. إذا كانت بياناتك تبدأ من الصف 2، فما عليك سوى تحديد الخلية B2، ثم حرّك المؤشر إلى الزاوية السفلية اليمنى حتى يتحول إلى علامة زائد صغيرة سوداء، وانقر نقرًا مزدوجًا لتعبئة باقي الصفوف تلقائيًّا.
3. الآن، بعد ظهور عمود المساعدة مع قيمصوابأوخطأمقابل كل صف، حدد رأس عمود المساعدة الجديد وفعّلالتصفيةمن علامة التبويببيانات (إذا لم تكن مفعّلة بالفعل). انقر على السهم المنسدل وصفّح حسبصوابلعرض الصفوف التي تطابق شرطك فقط (إما قبل أو بعد يوم اليوم، حسب الصيغة المستخدمة).
💡 نصائح:لتجنب الالتباس، فكّر في تسمية عمود المساعدة وفقًا لمنطق التصفية، مثل «قبل_اليوم» أو «بعد_اليوم». وإذا احتجتَ إلى التصفية بناءً على شروط محددة (مثل تواريخ ضمن نافذة زمنية متحركة)، فعدّل الصيغة حسب الحاجة. تأكد دائمًا من أن عمود التواريخ يحتوي فقط على تواريخ إكسل صالحة، إذ قد تؤثر الإدخالات الفارغة أو غير التاريخية على نتائجصواب/خطأ.
ℹ️ ملاحظات إضافية:
• تُعد هذه الطريقة الصيغية مفيدةً بشكل خاص لعرض البيانات أو فرزها أو تحليلها بعمق أكبر دون فقدان تتبع المعلومات الأصلية. كما تدعم استخدام التنسيق الشرطي المرن وحسابات الملخص استنادًا إلى قيم الصواب/الخطأ، رغم احتياجها إلى عمود إضافي. وغالبًا ما تفوق شفافية هذه الطريقة وإمكانية إعادة استخدامها هذا الإزعاج البسيط.
• إذا كان جدولك يُحدَّث باستمرار، فكل ما عليك هو إعادة تطبيق الصيغة أو تمديدها عند إضافة صفوف جديدة. وإذا لم يعمل الفرز أو التصفية كما هو متوقع، فتحقق مجددًا من وجود إدخالات فارغة أو غير متسقة في عمود التواريخ، وأعد حساب صيغ عمود المساعدة عند الحاجة ()الصيغ>احسب الآنإذا كانت الحسابات مضبوطة على الوضع اليدوي).
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل