كيفية تصفية جميع خلايا التاريخ قبل أو بعد اليوم في إكسيل؟
في هذه المقالة ، سأتحدث عن كيفية تصفية جميع خلايا التاريخ التي كانت قبل أو بعد اليوم في ورقة عمل Excel.
قم بتصفية جميع خلايا التاريخ قبل أو بعد اليوم باستخدام وظيفة التصفية
قم بتصفية جميع خلايا التاريخ قبل أو بعد اليوم باستخدام كود VBA
قم بتصفية جميع خلايا التاريخ قبل أو بعد اليوم باستخدام وظيفة التصفية
في الواقع ، يمكن أن تساعدك ميزة التصفية في Excel على حل هذه المهمة بأسرع ما يمكن ، يرجى القيام بما يلي:
1. حدد عمود التاريخ الذي تريد تصفيته ، ثم انقر فوق البيانات > منقي، انظر لقطة الشاشة:
2. ثم انقر فوق سهم القائمة المنسدلة ، ثم اختر مرشحات التاريخ > قبل / بعد حسب حاجتك ، انظر لقطة الشاشة:
3. في تصفية تلقائية مخصصة مربع الحوار، انقر فوق منتقي التاريخ ، ثم انقر فوق اليوم زر في تقويم منتقي التاريخ ، انظر لقطة الشاشة:
4. ثم اضغط OK لإغلاق مربع الحوار ، وقد تمت تصفية جميع التواريخ قبل أو بعد اليوم كما هو موضح في لقطة الشاشة التالية:
قم بتصفية جميع خلايا التاريخ قبل أو بعد اليوم باستخدام كود VBA
يمكن أن تساعدك رموز VBA التالية أيضًا على تصفية جميع التواريخ قبل أو بعد اليوم الحالي في ورقة العمل. يرجى القيام بالخطوات التالية:
1. اضغط باستمرار على ALT + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. انقر إدراج > وحدة، والصق أحد الرموز التالية في ملف وحدة نافذة او شباك.
كود فبا: تصفية جميع خلايا التاريخ قبل اليوم:
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 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
3. بعد نسخ ولصق أحد الرموز أعلاه، اضغط على F5 لتشغيل هذا الرمز، وسيظهر مربع مطالبة لتذكيرك بتحديد عمود التاريخ الذي تريد تصفيته، انظر لقطة الشاشة:
4. ثم انقر فوق OK سيتم تصفية جميع خلايا التاريخ التي كانت قبل اليوم أو بعده على الفور.
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!