KutoolsforOffice — حل واحد، خمس أدوات قوية.تحقيق المزيد بجهد أقل.

كيف تحسب الأيام المتبقية حتى الموعد النهائي في Excel؟

المؤلفXiaoyangتاريخ التعديل

في العمل اليومي وإدارة المشاريع، يُعد تتبع عدد الأيام المتبقية حتى الموعد النهائي أمرًا بالغ الأهمية. فعلى سبيل المثال، قد تحتوي قائمتك على تواريخ مواعيد نهائية متنوعة—مثل مهامك، المهام المُسندة إليك، انتهاء العقود، أو معالم المشروع الرئيسية—وتحتاج إلى مراقبة الأيام المتبقية لكلٍّ منها بدقة. ويُمكّنك حساب الأيام المتبقية بكفاءة من ضمان عدم تفويت أي تواريخ محورية، كما يدعمك في جدولة عملك بشكل أفضل وإدارة وقتك بفعالية. يستعرض هذا المقال طرقًا عملية لحساب الأيام المتبقية حتى الموعد النهائي في Excel، مع تقديم إرشادات خطوة بخطوة وحلول مرنة تناسب مختلف الاحتياجات.

احسب الأيام المتبقية حتى الموعد النهائي باستخدام الصيغ

إذا أردت تحديد عدد الأيام المتبقية قبل كل موعد نهائي بسرعة، يوفّر Excel حلولًا بسيطة باستخدام الصيغ—مثالية للقوائم الثابتة أو عند الحاجة إلى إعادة الحساب التلقائي استنادًا إلى التاريخ الحالي.

1. في خلية فارغة تريد عرض الناتج فيها (مثلًا، في العمود B بجانب تاريخ الموعد النهائي الموجود في العمود A)، أدخل الصيغة التالية:

=A2-TODAY()

تطرح هذه الصيغة تاريخ اليوم (كما تُرجعه دالة)TODAY()) من تاريخ الموعد النهائي في الخلية A2، ليكون الناتج عدد الأيام المتبقية.

بعد إدخال الصيغة، اسحب مقبض التعبئة لأسفل لتطبيق هذا الحساب على الصفوف الإضافية التي تحتوي على تواريخ المواعيد النهائية، كما هو موضح أدناه:

2. لضمان عرض نتائج الحساب كأرقام، قم بتنسيق خلايا الناتج كـعام. انقر على تبويبالصفحة الرئيسية > ابحث عن قائمةتنسيق الرقمالمنسدلة > واخترعام، كما هو موضح أدناه:

لقطة شاشة لتغيير تنسيق خلايا النتائج

ملاحظات ونصائح عملية:

  • إذا كان تاريخ الموعد النهائي قد مر بالفعل (أي يسبق اليوم)، فسيكون الناتج رقمًا سالبًا يشير إلى عدد الأيام المتأخرة.
  • إذا كنت ترغب في تجنب عرض القيم السالبة (على سبيل المثال، عرض 0 للمهام المتأخرة)، استخدم هذه الصيغة البديلة:
=MAX(0,A2-TODAY())

تقارن هذه الصيغة الأيام المتبقية المحسوبة مع 0، وتعمل على عرض القيمة الأكبر بينهما—مما يؤدي فعليًّا إلى استبدال أي أرقام سالبة بالرقم 0.

لقطة شاشة توضح كيفية استبدال الأرقام السالبة بالصفر

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

  • تأكد دائمًا من أن تواريخ المواعيد النهائية الخاصة بك تمثّل قيم تواريخ صحيحة في Excel، إذ قد تؤدي التواريخ غير الصحيحة أو المُدخلة كنص إلى أخطاء في الحسابات أو نتائج غير متوقعة.
  • الصيغ التي تستخدمTODAY() ستُحدَّث تلقائيًّا في كل مرة تفتح فيها جدولك أو تقوم بإعادة حسابه.
  • إذا كنت تفضّل العمل بالأيام العملية (باستثناء عطلتي نهاية الأسبوع والعطل الرسمية)، ففكّر في استخدام دالةNETWORKDAYS في سيناريو مختلف.

يساعدك مراجعة قائمة المواعيد النهائية بانتظام وإعادة حساب الأيام المتبقية بشكل كبير على تحسين قدرتك على توقُّع المواعيد القادمة والعمل وفقًا لها. وإذا كنت بحاجة إلى أتمتة أكثر تقدمًا أو تذكيرات مرئية، فاطّلع على الحل المبني على VBA أدناه.

كود VBA - أتمتة حساب الأيام المتبقية وتحديد المواعيد المتأخرة أو تنبيهك بها اختياريًا

للمستخدمين الذين يديرون قوائم مواعيد نهائية طويلة أو يسعون إلى تسهيل العملية، تُعد أتمتة حساب الأيام المتبقية باستخدام VBA وسيلة فعّالة لتقليل الجهد اليدوي بشكل كبير. وتكتسب هذه الطريقة أهمية خاصة عندما تريد من Excel تنفيذ إجراءات إضافية تلقائيًّا—مثل تمييز المواعيد المتأخرة أو إرسال تنبيهات—مما يضمن عدم تفويت أي تواريخ حرجة.

1. لاستخدام هذه الطريقة، فعِّل تبويبالمطوّرإذا لم يكن ظاهرًا بالفعل (ملف > خيارات > تخصيص الشريط > فعِّل خانة)المطوّر). ثم انتقل إلىالمطوّر > Visual Basic لفتح محرر VBA. في نافذة VBA، انقرإدراج > وحدة نمطية، وأدخل كود VBA أدناه:

Sub CalculateAndHighlightDaysLeft()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim deadlineCol As String
    Dim resultCol As String
    Dim daysLeft As Long
    Dim cell As Range
    
    On Error Resume Next
    
    ' Configure columns as needed below:
    deadlineCol = "A" ' Column containing deadlines
    resultCol = "B" ' Column to place days left calculation
    
    Set ws = ActiveSheet
    lastRow = ws.Cells(ws.Rows.Count, deadlineCol).End(xlUp).Row
    
    For i = 2 To lastRow
        If IsDate(ws.Cells(i, deadlineCol).Value) Then
            daysLeft = ws.Cells(i, deadlineCol).Value - Date
            ws.Cells(i, resultCol).Value = daysLeft
            
            ' Highlight overdue deadlines
            If daysLeft < 0 Then
                ws.Cells(i, deadlineCol).Interior.Color = RGB(255, 185, 185) ' Light red fill
                
                ' Optionally show popup message for overdue (uncomment next line if desired)
                ' MsgBox "Row " & i & " is overdue! Deadline: " & ws.Cells(i, deadlineCol).Text, vbExclamation, "KutoolsforExcel"
            Else
                ws.Cells(i, deadlineCol).Interior.Pattern = xlNone
            End If
        Else
            ws.Cells(i, resultCol).Value = "Invalid date"
            ws.Cells(i, deadlineCol).Interior.Color = RGB(255, 235, 156) ' Yellow fill for invalid data
        End If
    Next i
End Sub

2. أغلق محرر VBA وعُد إلى ورقة العمل، ثم اضغط Alt+F8. في مربع الحوار الظاهر، اخترCalculateAndHighlightDaysLeft، ثم انقرتشغيل. سيقوم الكود بمعالجة كل تاريخ في العمود A (ابتداءً من الصف 2 فما دون) وكتابة الأيام المتبقية في العمود B. سيتم تمييز المواعيد المتأخرة (أي التي يكون تاريخها سابقًا لتاريخ اليوم) تلقائيًّا بلون أحمر فاتح، بينما تُملأ الخلايا التي تحتوي على تواريخ غير صالحة باللون الأصفر ويُشار إليها بعبارة «تاريخ غير صالح» في عمود النتائج.

تلميح:
  • يمكنك تعديلdeadlineCol وresultColفي الكود، إذا كانت تواريخ المواعيد النهائية موجودة في عمود مختلف.

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

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

عزِّز مهاراتك في 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.

ExcelWordOutlookTabsPowerPoint
  • حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
  • برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
  • يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
  • تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
  • أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل