كيف يمكن تحويل رقم الأسبوع إلى تاريخ، أو العكس، في Excel؟
يُعد العمل مع التواريخ وأرقام الأسابيع في Excel أمرًا شائعًا في تحليل الأعمال وتخطيط المشاريع والإبلاغ. فعلى سبيل المثال، قد تحتاج إلى معرفة الأسبوع الذي ينتمي إليه تاريخٌ معين، أو تحديد النطاق الزمني الكامل لأسبوعٍ معيّن ضمن سنة محددة. ومع ذلك، لا يوفّر Excel وظائف مدمجة مباشرة لتحويل رقم الأسبوع إلى نطاق التاريخ الكامل أو عكس هذه العملية بسرعة. ولسدّ هذه الفجوة، يمكنك الاعتماد على مجموعة متنوعة من الصيغ وحلول VBA وميزات Excel الأخرى، وذلك حسب احتياجاتك الخاصة وحجم البيانات التي تعمل عليها. فيما يلي عدة طرق عملية للتعامل مع هذه المهمة في Excel.
تحويل رقم الأسبوع إلى تاريخ باستخدام الصيغ
تحويل التاريخ إلى رقم الأسبوع باستخدام الصيغ
التحويل بين رقم الأسبوع والتاريخ باستخدام أكواد VBA
تحويل رقم الأسبوع إلى تاريخ باستخدام الصيغ
افترض أن لديك سنة محددة ورقم الأسبوع مُدخلَين في ورقة العمل (على سبيل المثال،)2015 في الخليةB1 و15 في الخليةB2). قد ترغب في حساب تاريخ البدء الفعلي (الاثنين) وتاريخ الانتهاء (الأحد) لهذا الأسبوع. يمكن أن يكون هذا مفيدًا جدًّا في تخطيط الجداول الزمنية، وإعداد الملخصات الأسبوعية، أو الرجوع إلى فترات الإبلاغ الأسبوعية.
لحساب نطاق التاريخ للأسبوع المحدد رقم الأسبوع، يمكنك استخدام صيغ Excel التالية:
1. حدد خلية فارغة لعرض تاريخ البدء (في هذا المثال، الخلية)B5). أدخل الصيغة التالية، ثم اضغط على مفتاحEnter. ستعيد الصيغة رقمًا تسلسليًا يمثل التاريخ.
=MAX(DATE(B1,1,1),DATE(B1,1,1)-WEEKDAY(DATE(B1,1,1),2)+(B2-1)*7+1)2. بالنسبة لتاريخ انتهاء الأسبوع نفسه (على سبيل المثال، في الخلية)B6)، أدخل الصيغة التالية، ثم اضغط علىEnter. ستعيد الصيغة الرقم التسلسلي ليوم نهاية الأسبوع المحدد.
=MIN(DATE(B1+1,1,0),DATE(B1,1,1)-WEEKDAY(DATE(B1,1,1),2)+B2*7)
ملاحظة:في الصيغ أعلاه،B1 هي الخلية التي تحتوي على السنة (على سبيل المثال، 2015)، وB2 تحتوي على رقم الأسبوع الذي تريد تحويله. غيّر مراجع الخلايا هذه وفقًا لورقة العمل الفعلية عند الحاجة.
3. تُعيد الصيغ في البداية أرقامًا وليس تواريخ منسَّقة. لعرض تنسيق التاريخ الصحيح، حدد خليتي الصيغتين، ثم انتقل إلىالصفحة الرئيسية > تنسيق الأرقاممن القائمة المنسدلة > التاريخ القصير. سيحوّل ذلك القيم إلى تواريخ قابلة للتعرُّف.
نصائح:تستند هذه الصيغ إلى نظام تواريخ الأسبوع وفقًا للمعيار الدولي ISO (حيث يبدأ الأسبوع يوم الاثنين)، وهو النظام الشائع في معايير كشوف المرتبات والإبلاغ الأوروبية. إذا كانت مؤسستك تستخدم نظامًا مختلفًا لأرقام الأسابيع، فقد تختلف النتائج. تأكد دائمًا من مراجعة النتائج في السنوات التي يبدأ تاريخها في منتصف الأسبوع (مثلًا، عندما لا يوافق الأول من يناير يوم الاثنين) أو في السنوات التي تحتوي على 53 أسبوعًا.
تحويل التاريخ إلى رقم الأسبوع باستخدام الصيغ
بالمقابل، قد ترغب في تحديد رقم الأسبوع الذي يقع فيه تاريخ معين. يوفّر Excel دالةWEEKNUM لهذا الغرض، وهي مفيدة جدًّا عند تحليل بيانات جداول الوقت، أو إنشاء التقارير الأسبوعية، أو تتبع عمليات التسليم والفعاليات حسب الأسبوع.
1. اختر خلية فارغة لعرض رقم الأسبوع، ثم أدخل الصيغة التالية (بافتراض أن التاريخ موجود في)B1):
=WEEKNUM(B1,1)2. بعد ذلك، اضغط علىEnter. تُعيد هذه الصيغة رقم الأسبوع باعتبار الأحد أول أيام الأسبوع.
ملاحظات:
(1) في هذه الصيغة،B1 هي الخلية التي تحتوي على التاريخ الذي تريد تحويله.
(2)إذا كنت تفضل بدء العد من يوم الاثنين (كما هو شائع في نظام الأسبوع وفقًا للمعيار الدولي ISO)، فاستخدم هذا الإصدار من الصيغة:
=WEEKNUM(B1,2)التحويل بين رقم الأسبوع والتاريخ باستخدام أكواد VBA
في هذا المقال، سنستعرض روتينَيْن باستخدام VBA: الأول يحوّل رقم الأسبوع (مع السنة) إلى النطاق التاريخي المقابل، والثاني يحدّد رقم الأسبوع وفق المعيار الدولي ISO لأي تاريخ معيّن.
تحويل رقم الأسبوع إلى نطاق التاريخ:
1. افتح محرر VBA بالنقر علىالمطوّر > Visual Basic. في النافذة التي تفتح، انقر علىإدراج > وحدة نمطية، ثم الصق الكود أدناه في الوحدة النمطية:
Sub WeekNumberToDateRange()
Dim YearNum As Long
Dim WeekNum As Long
Dim FirstDay As Date, LastDay As Date
Dim Jan4 As Date
YearNum = Application.InputBox("Enter the year:", "KutoolsforExcel", Year(Date), Type:=1)
If YearNum < 1 Then Exit Sub
WeekNum = Application.InputBox("Enter the week number:", "KutoolsforExcel", 1, Type:=1)
If WeekNum < 1 Then Exit Sub
Jan4 = DateSerial(YearNum, 1, 4)
FirstDay = Jan4 - Weekday(Jan4, vbMonday) + 1
FirstDay = FirstDay + (WeekNum - 1) * 7
LastDay = FirstDay + 6
MsgBox "Start date: " & Format(FirstDay, "yyyy-mm-dd") & vbCrLf & _
"End date: " & Format(LastDay, "yyyy-mm-dd"), _
vbInformation, "KutoolsforExcel"
End Sub
2. شغّل الماكرو باستخدام زر
. سيتم طلب إدخال السنة ورقم الأسبوع منك، ثم يعرض مربع الحوار النطاق الزمني المقابل.
تحويل التاريخ إلى رقم الأسبوع:
1. انسخ والصق كود VBA التالي في الوحدة النمطية:
Sub DateToWeekNumber()
Dim InputDate As Date
Dim WeekNum As Integer
InputDate = Application.InputBox("Enter the date (yyyy-mm-dd):", "KutoolsforExcel", Date, Type:=2)
WeekNum = WorksheetFunction.WeekNum(InputDate, 2)
MsgBox "The week number is: " & WeekNum, vbInformation, "KutoolsforExcel"
End Sub
2. بعد إدخال الكود وتشغيله، سيتم مطالبتك بإدخال التاريخ المستهدف، وسيعرض لك الماكرو رقم الأسبوع مع اعتبار الاثنين بدايةً للأسبوع. ولتغيير ذلك إلى أسبوع يبدأ يوم الأحد، ما عليك سوى تعديل الكود بتغيير المعامل الثاني في دالةWeekNum إلى1.
vbMondayأوvbSundayفي كود VBA وفقًا لذلك.نقرة واحدة لتحويل تواريخ متعددة غير قياسية تنسيق قياسي إلى تواريخ عادية في Excel
تتيح لك أداة Kutools لـ Excel للتعرُّف على التاريخ تحويل التواريخ أو الأرقام غير القياسية (مثل yyyymmdd) أو النصوص العادية إلى تنسيق تاريخ قياسي بنقرة واحدة فقط في Excel، مما يعزز إنتاجيتك ويقلل من أخطاء التحويل اليدوي. جرّبها الآن مجانًا بنسخة تجريبية كاملة الميزات لمدة 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل