كيف يمكنك الحصول على تاريخ بداية الأسبوع وتاريخ انتهائه استنادًا إلى تاريخ معيّن في Excel؟

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

• احصل على بداية الأسبوع تاريخ البدء ونهايته تاريخ الانتهاء استنادًا إلى تاريخ معيّن باستخدام الصيغ
• رمز VBA - أتمتة استخراج بداية الأسبوع وتاريخ الانتهاء لقوائم تواريخ متعددة
• استخدم Power Query لتحويل البيانات وإضافة أعمدة بداية/نهاية الأسبوع إلى بيانات التواريخ المستوردة

احصل على بداية الأسبوع تاريخ البدء ونهايته تاريخ الانتهاء استنادًا إلى تاريخ معيّن باستخدام الصيغ

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

تساعدك الصيغ البسيطة أدناه على حساب يوم الاثنين (بداية الأسبوع) ويوم الأحد (نهاية الأسبوع) لأي تاريخ معيّن. يُرجى اتباع الخطوات التالية:

احصل على بداية الأسبوع تاريخ البدء من التاريخ المحدد:

1. إذا كانت قائمة تواريخك في العمود A، فانقر على خلية (مثل C2) حيث تريد عرض تاريخ بداية الأسبوع (الاثنين).
2. أدخل الصيغة التالية في تلك الخلية:

=A2-WEEKDAY(A2,2)+1

3. اضغط Enter للتأكيد، ثم اسحب مقبض التعبئة لأسفل لتطبيق الصيغة على عدد الصفوف المطلوب.
ستعرض النتيجة يوم الاثنين من الأسبوع التالي لكل تاريخ.

احصل على نهاية الأسبوع تاريخ الانتهاء من التاريخ المحدد:

1. انقر في الخلية التي تريد أن يظهر فيها تاريخ نهاية الأسبوع (الأحد)، على سبيل المثال D2.
2. أدخل الصيغة التالية:

=A2+7-WEEKDAY(A2,2)

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

نصائح وملاحظات:

• تفترض هذه الصيغ أن أسبوعك يبدأ يوم الاثنين وينتهي يوم الأحد (الاتفاقية الأوروبية). إذا كان أسبوع عملك مختلفًا، فقد تحتاج إلى تعديل المعامل الثاني في دالةWEEKDAY.
• قد تظهر نتائج غير صحيحة إذا لم يتعرّف Excel على التواريخ كأرقام تسلسلية صالحة (مثلًا، عند استيرادها كنص). لذا، تأكد من تنسيق تواريخك بالشكل الصحيح!
• إذا نسخت النتائج إلى ورقة أخرى، فتأكد من أن مراجع الخلايا تتكيف تلقائيًا بشكل صحيح، أو استخدم المراجع المطلقة عند الحاجة.
• يمكنك بسهولة تنسيق الأعمدة الناتجة كتواريخ باستخدامالصفحة الرئيسية > تنسيق الرقم > تاريخ قصيرلضمان عرضٍ موحّد للتواريخ.

رمز VBA - أتمتة استخراج بداية الأسبوع وتاريخ الانتهاء لقوائم تواريخ متعددة

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

1. انقرأدوات المطور > Visual Basic، وسيفتح ذلك محررMicrosoft Visual Basic for Applications. من هناك، انقرإدراج > وحدة نمطية، وأدخل الكود التالي في النافذة:

Sub ExtractWeekStartEndDates()
    Dim WorkRng As Range
    Dim cell As Range
    Dim ws As Worksheet
    
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    
    Set WorkRng = Application.Selection
    Set WorkRng = Application.InputBox("Select the date range to extract week start/end dates:", xTitleId, WorkRng.Address, Type:=8)
    
    If WorkRng Is Nothing Then Exit Sub
    
    Set ws = WorkRng.Worksheet
    ws.Cells(1, WorkRng.Columns(1).Column + WorkRng.Columns.Count).Value = "Week Start (Mon)"
    ws.Cells(1, WorkRng.Columns(1).Column + WorkRng.Columns.Count + 1).Value = "Week End (Sun)"
    
    For Each cell In WorkRng
        If IsDate(cell.Value) Then
            cell.Offset(0, WorkRng.Columns.Count).Value = cell.Value - Weekday(cell.Value, 2) + 1
            cell.Offset(0, WorkRng.Columns.Count + 1).Value = cell.Value + 7 - Weekday(cell.Value, 2)
        End If
    Next
    
    Application.DisplayAlerts = True
End Sub

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

المعلمات والملاحظات:

• يعمل الماكرو مع أي نطاق مستطيل يحتوي على تواريخ (مثل عمود أو كتلة من الخلايا التي تتضمن تواريخ).
• إذا لم تحتوِ أي خلية ضمن النطاق المحدد على تاريخٍ صالح في Excel، فستُترك خلايا بداية الأسبوع ونهايته فارغةً لذلك الصف.
• يمكنك تعديل تسميات الرؤوس «بداية الأسبوع (الاثنين)» و«نهاية الأسبوع (الأحد)» بحسب احتياجاتك عبر تعديل الكود.
• لتشغيل الماكرو مرة أخرى، ما عليك سوى تكرار خطوات التحديد والتنفيذ.
• لا يمكن التراجع عن عمليات VBA باستخدام Ctrl+Z، لذا ننصحك بعمل نسخة احتياطية من بياناتك مسبقًا.

استكشاف الأخطاء وإصلاحها:إذا لم تظهر لك علامة التبويبالمطور، فانتقل إلىملف > خيارات > تخصيص الشريطوفعّل خيارالمطور. وإذا ظهر خطأ أثناء التنفيذ، فتأكد من أن التحديد يتضمّن قيم تواريخ، وأن الماكرو مفعّل في تطبيق Excel الخاص بك.

استخدم Power Query لإضافة أعمدة بداية/نهاية الأسبوع إلى بيانات التواريخ المستوردة

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

1. حدد جدول بياناتك (تأكد من أن يحتوي على عمود تواريخ)، ثم انقربيانات > من جدول/نطاقلفتح محرر Power Query.
2. في Power Query، حدد عمود التواريخ الخاص بك. مع تحديده، انتقل إلى تبويبإدراج عمود، ثم انقرتاريخ > أسبوع > بداية الأسبوع. سيؤدي ذلك إلى إضافة عمود جديد يعرض التاريخ المقابل ليوم الاثنين لكل تاريخ.
   تلميح:بشكل افتراضي، يكون يوم الاثنين هو أول أيام الأسبوع. إذا كانت بياناتك تعتمد يومًا آخر كبداية للأسبوع، فانقر على القائمة المنسدلة في خياربداية الأسبوعللاطلاع على الخيارات الأخرى.
3. مع استمرار تحديد عمود التواريخ، انقرإدراج عمود > تاريخ > أسبوع > نهاية الأسبوع. سيؤدي ذلك إلى إضافة تاريخ يوم الأحد لكل صف.
4. بعد التحقق من أعمدتك الجديدة، انقرالصفحة الرئيسية > إغلاق وتحميللإرجاع البيانات المحولة (التي تتضمن الآن بدايات ونهايات الأسابيع) إلى مصنفك.

المزايا والملاحظات:

• يُسهّل Power Query تحديث العمليات الحسابية تلقائيًا في حال تغيّرت البيانات الأصلية.
• هذه الطريقة مثالية للقوائم التي يتم تحديثها بانتظام أو استيرادها، وكذلك للقوائم الكبيرة جدًّا، بفضل أتمتتها وقابليتها لإعادة الاستخدام.
• إذا كانت أزراربداية الأسبوع/نهاية الأسبوعمعطّلة، فتأكد من أن عمودك تم التعرّف عليه كنوع «تاريخ»، ويمكنك ضبط ذلك بسهولة باستخدام القائمة المنسدلة «نوع البيانات» في Power Query.
• لا يقوم Power Query بتعديل البيانات الأصلية، بل ينشئ جدول إخراج جديد يتضمّن عمليات حساب الأسابيع.

اقتراحات موجزة:اختر الطريقة الأنسب لحالتك: الصيغ البسيطة للقوائم الصغيرة والعفوية، وVBA للأتمتة أو التخصيص المتقدم، وPower Query لسير العمل القابل للتكرار ومجموعات البيانات الكبيرة. جرّب الحلول على بيانات عيّنة قبل تطبيقها على نطاق واسع، ولا تنسَ حفظ عملك قبل تنفيذ أي عمليات قد تغيّر هيكل مصنفك.

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

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

استخدم Kutools باللغة التي تفضلها – يدعم الإنجليزية والإسبانية والألمانية والفرنسية والصينية و40+ لغات أخرى!

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

مزيد من التفاصيل حول Kutools لـ Excel...تنزيل مجاني...

---

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

• تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
• افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
• يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!

مزيد من التفاصيل حول Office Tab...تنزيل مجاني...

---

جميع الإضافات من Kutools في برنامج تثبيت واحد!

Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.

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

مزيد من التفاصيل حول Kutools for Office...تنزيل مجاني...