كيف يمكن ربط السنة والشهر واليوم لتكوين تاريخ في Excel؟
عند العمل مع مجموعات بيانات مختلفة في Excel، قد تجد أن الشهر واليوم والسنة لتاريخٍ ما مخزَّنة في خلايا منفصلة — مثل الخلية A2 للشهر، وB2 لليوم، وC2 للسنة. إن دمج هذه العناصر في تنسيق تاريخ حقيقي داخل خلية واحدة لا يجعل بياناتك أكثر سهولة في القراءة فحسب، بل يمكّنك أيضًا من إجراء العمليات الحسابية على التواريخ، وفرزها، وتنسيقها بسلاسة أكبر. فيما يلي مثال يوضح القيم المنفصلة وكيفية ربطها لتكوين تاريخ واحد:
في هذا البرنامج التعليمي، نعرض عدة طرق لدمج السنة والشهر واليوم في Excel لإنشاء تواريخ تلبي احتياجات متنوعة من حيث الحساب والعرض. يمكنك اختيار الأسلوب الأنسب بناءً على ما إذا كنت ترغب في الحصول على نتيجة نصية بسيطة، أو قيمة تاريخ فعلية، أو حلاً آليًا يُطبَّق على معالجة دفعية.
ربط السنة والشهر واليوم لتكوين تاريخ باستخدام صيغة
ربط السنة والشهر واليوم لتكوين تاريخ باستخدام أداة رائعة
صيغة Excel - استخدام دالة DATE لإنشاء قيمة تاريخ حقيقية في Excel
رمز VBA - أتمتة ربط قيم السنة والشهر واليوم لتكوين تنسيق التاريخ Excel عبر صفوف متعددة
ربط السنة والشهر واليوم لتكوين تاريخ باستخدام صيغة
إذا كان هدفك الأساسي هو عرض التاريخ المدمج كسلسلة نصية في خلية واحدة، يمكنك استخدام صيغة ربط بسيطة. إنها طريقة سريعة لعرض التاريخ الكامل بصريًا، مع ملاحظة أن النتيجة ستظل نصًا وليست قيمة تاريخ فعلية في Excel، ما يعني أنه لن يمكنك إجراء عمليات حسابية على التواريخ أو تطبيق التنسيق التلقائي للتاريخ على هذه النتيجة.
1. حدد الخلية الفارغة التي ترغب في أن يظهر فيها التاريخ المرتبط، ثم أدخل الصيغة التالية في شريط الصيغة:
=A2&"/"&B2&"/"&C2بعد إدخال الصيغة، اضغط مفتاح Enter لتأكيد الإدخال.
2. لتطبيق هذه الصيغة على صفوف إضافية، اسحب مقبض التعبئة من الخلية المملوءة إلى الخلايا الأخرى في العمود، ليتم بذلك ربط الشهر واليوم والسنة تلقائيًا لكل صف ضمن نطاق تحديدك.
ملاحظة: في هذه الصيغة، يعمل الرمز «/» كفاصل بين الشهر واليوم والسنة. يمكنك تغيير هذا الفاصل ليتناسب مع تنسيق التاريخ المحلي أو متطلبات مشروعك، مثل استخدام شرطة "-" أو نقطة ".".
بهذه الطريقة، تُدمج قيم الشهر واليوم والسنة المنفصلة بكفاءة. ومع ذلك، وبما أن النتيجة تكون على هيئة سلسلة نصية، فإن العمليات الإضافية المتعلقة بالتاريخ—مثل الفرز أو الحساب—تتطلب تحويلها إلى تنسيق تاريخ حقيقي.
ربط السنة والشهر واليوم لتكوين تاريخ باستخدام أداة رائعة
ميزةالدمجداخلKutools لـ Excelتوفّر حلاً بديهيًا لدمج القيم من خلايا متعددة في خلية واحدة، مما يبسّط العملية دون الحاجة إلى صيغ معقدة. ويُعد هذا الحل مثاليًا خاصةً إذا كنت بحاجة إلى تنفيذ المهمة مرارًا أو على نطاق واسع، إذ يمكّنك Kutools من الدمج الدفعي مع فواصل ومخرجات قابلة للتخصيص.
للاستفادة من هذه الوظيفة، تأكد من أن بيانات الشهر واليوم والسنة موجودة في أعمدة متجاورة، ثم اتبع الخطوات التالية:
1. حدد الأعمدة ذات الصلة التي تحتوي على الشهر واليوم والسنة، ثم انقر فوقKutools > دمج وتقسيم > دمج الصفوف/الأعمدة/الخلايا والاحتفاظ بالقيم.
2. في مربع الحوار المنبثقدمج الأعمدة أو الصفوف، قم بضبط الإعدادات التالية:
بعد إكمال هذه الخطوات، تُدمج الخلايا المحددة في خلية واحدة على هيئة سلسلة تاريخ. يوفّر Kutools طريقةً بسيطةً وموثوقةً لمعالجة مجموعات البيانات الكبيرة، مع دعمٍ واسع للتخصيصات وفقًا لمتطلباتك. كن حذرًا من اختلافات تنسيقات التاريخ المحلية عند ضبط الفواصل.
Kutools لـ Excel- عزِّز Excel بقوة أكثر من 300 أداة أساسية، لتجعل عملك أسرع وأسهل، واستفد من ميزات الذكاء الاصطناعي لمعالجة البيانات بشكل أكثر ذكاءً وزيادة الإنتاجية.احصل عليه الآن
صيغة Excel - استخدام دالة DATE لإنشاء قيمة تاريخ حقيقية في Excel
عندما لا تريد فقط عرض التاريخ، بل أيضًا إجراء عمليات حسابية إضافية، أو تطبيق تنسيق تلقائي، أو الاستفادة من دوال التاريخ في Excel، يُوصى بدمج القيم في تنسيق تاريخ حقيقي. تُمكّنك دالةDATE في Excel من تحقيق ذلك. ومن خلال دمج السنة والشهر واليوم في رقم تسلسلي للتاريخ، تصبح العمليات مثل حساب المدد، والجدولة، والفرز حسب التاريخ ممكنةً فورًا.
السيناريو القابل للتطبيق:استخدمه عندما تحتاج إلى أن تكون النتيجة تاريخًا فعليًّا في Excel، وليس سلسلة نصية—خاصةً في التقارير المالية، أو تتبع الوقت، أو أي مهمة تتطلب تحليلًا زمنيًّا.
تحذير:تأكد من أن تحتوي كل خلية على قيم صالحة (مثل الأشهر بين 1–12، والأيام ضمن نطاق الشهر، وسنة صحيحة) لتجنب أخطاء الصيغة.
1. انقر على الخلية الفارغة التي تريد أن يظهر فيها التاريخ الحالي (مثلًا: D2)، ثم أدخل الصيغة التالية:
=DATE(C2,A2,B2)في هذه الصيغة، يجب أن تحتوي الخلية C2 على السنة، وA2 على الشهر، وB2 على اليوم. قم بتعديل مراجع الخلايا لتتناسب مع هيكل ورقة العمل الخاصة بك.
2. اضغط Enter لتأكيد الصيغة. الآن، تحتوي الخلية الناتجة على تاريخٍ فعلي، ويمكنك تنسيقه ليظهر بالشكل «mm/dd/yyyy» أو بأي تنسيق تاريخ آخر عبر خياراتالصفحة الرئيسية > تنسيق الرقم.
3. لتطبيق الصيغة على صفوف إضافية، حدد خلية النتيجة، ثم اسحب مقبض التعبئة لأسفل لتعميم الصيغة على مجموعة البيانات بأكملها.
تلميح:إذا لاحظت رقمًا تسلسليًا بدلًا من تاريخٍ عادي، غيّر تنسيق الخلية بتحديد الخلية (أو الخلايا)، ثم انقر بزر الماوس الأيمن واخترتعيين تنسيق الخلية > التاريخ. وسيؤدي ذلك إلى عرض القيمة بالتنسيق التاريخي القياسي.
احتياطات:احذر من الأخطاء مثل #VALUE! إذا احتوت أيٌّ من الخلايا المشار إليها على نص غير رقمي. تأكد من أن ترتيب السنة والشهر واليوم يتوافق مع بياناتك.
رمز VBA - أتمتة ربط قيم السنة والشهر واليوم لتكوين تنسيق التاريخ Excel عبر صفوف متعددة
للمعالجة الدفعية المتقدمة أو الأتمتة—خاصةً عند التعامل مع قوائم كبيرة أو الرغبة في التخلص من الإدخال اليدوي—يُعد استخدام VBA حلاً عمليًا وفعالًا. فماكرو بسيط يمكنه ربط القيم في أعمدة محددة لإنشاء تواريخ فعلية في Excel عبر مجموعة البيانات بأكملها، مما يمنحك المرونة والكفاءة لمعالجة مئات أو حتى آلاف الصفوف بنقرة واحدة!
السيناريو القابل للتطبيق:اختر أتمتة VBA عندما تكون مهامك متكررة وضخمة وتحتاج إلى قيم تواريخ فعلية لتحديد الأعمدة، أو عندما ترغب في تخصيص إضافي.
1. افتح محرر VBA في Excel بالنقر فوقأدوات المطور > Visual Basic. عندما تظهر نافذةMicrosoft Visual Basic for Applications، انقر فوقإدراج > وحدة نمطية.
2. انسخ والصق الكود التالي في الوحدة النمطية الجديدة:
Sub ConcatDateToTrueDate_Fixed()
'Updated by Extendoffice 20250903
Dim ws As Worksheet
Dim StartCell As Range
Dim i As Long
Dim lastRow As Long
Dim yearCol As String
Dim monthCol As String
Dim dayCol As String
Dim outCol As String
Dim xTitleId As String
xTitleId = "Date Conversion"
Set ws = ActiveSheet
On Error Resume Next
Set StartCell = Application.InputBox("Select the FIRST DATA CELL in your table (e.g., A2). The macro will process all rows below it.", xTitleId, ws.Range("A2").Address, Type:=8)
On Error GoTo 0
If StartCell Is Nothing Then Exit Sub
yearCol = UCase(Trim(Application.InputBox("Enter the LETTER of the YEAR column (e.g., C):", xTitleId, "C", Type:=2)))
monthCol = UCase(Trim(Application.InputBox("Enter the LETTER of the MONTH column (e.g., A):", xTitleId, "A", Type:=2)))
dayCol = UCase(Trim(Application.InputBox("Enter the LETTER of the DAY column (e.g., B):", xTitleId, "B", Type:=2)))
outCol = UCase(Trim(Application.InputBox("Enter the LETTER of the OUTPUT column (e.g., D):", xTitleId, "D", Type:=2)))
If Len(yearCol) <> 1 Or Len(monthCol) <> 1 Or Len(dayCol) <> 1 Or Len(outCol) <> 1 Then
MsgBox "Invalid column letter entered. Please enter a single letter (e.g., A, B, C).", vbExclamation, xTitleId
Exit Sub
End If
lastRow = Application.Max(ws.Cells(ws.Rows.Count, yearCol).End(xlUp).Row, _
ws.Cells(ws.Rows.Count, monthCol).End(xlUp).Row, _
ws.Cells(ws.Rows.Count, dayCol).End(xlUp).Row)
If StartCell.Row > lastRow Then
MsgBox "No data found to process.", vbInformation, xTitleId
Exit Sub
End If
Application.ScreenUpdating = False
For i = StartCell.Row To lastRow
If IsNumeric(ws.Cells(i, yearCol).Value) And _
IsNumeric(ws.Cells(i, monthCol).Value) And _
IsNumeric(ws.Cells(i, dayCol).Value) Then
On Error Resume Next
ws.Cells(i, outCol).Value = DateSerial( _
Year:=ws.Cells(i, yearCol).Value, _
Month:=ws.Cells(i, monthCol).Value, _
Day:=ws.Cells(i, dayCol).Value)
If Err.Number <> 0 Then
ws.Cells(i, outCol).Value = "Invalid Date"
Err.Clear
End If
On Error GoTo 0
Else
ws.Cells(i, outCol).Value = ""
End If
Next i
Application.ScreenUpdating = True
MsgBox "Date conversion completed successfully! Processed rows: " & (lastRow - StartCell.Row + 1), vbInformation, xTitleId
End Sub3. لتشغيل الكود، انقر فوق زر
. بعد ذلك، سيُوجِّهك مطالَب لتحديد خلية البدء في مجموعة البيانات الخاصة بك، ثم تحديد الأعمدة المخصصة للسنة والشهر واليوم، بالإضافة إلى العمود المخصص للتاريخ الناتج.
عند الانتهاء، يملأ الماكرو عمود الإخراج المحدد ببياناتك، مُدخلًا قيم تواريخ حقيقية في Excel جاهزة للحساب أو التنسيق. وإذا واجهت أخطاءً، فتأكد من صحة مراجع الأعمدة وسلامة البيانات قبل إعادة التشغيل.
نصائح عملية:من الأفضل دائمًا حفظ عملك قبل تشغيل نصوص الماكرو. وللاستخدام المتكرر، فكّر في حفظ الكود كماكرو مخصص ضمن ملف العمل الخاص بك.
عند اختيارك بين هذه الطرق، خذ في الاعتبار احتياجاتك من حيث الحساب، والأتمتة، وسهولة الاستخدام. فللحالات البسيطة، يُعدّ الربط المباشر حلاً سريعًا وفعّالًا، بينما توفّر دالة DATE وحلول VBA تواريخ فعلية مثالية للتحليل والمعالجة المتقدمة. أما Kutools، فيقدّم عمليات دفعية مرنة وفعّالة تدعم تنسيقات بيانات متنوعة.
إذا ظهرت أخطاء—مثل تنسيقات بيانات غير متوقعة أو قيم غير صالحة أو فشل في الصيغ—فافحص خلايا المصدر والمراجع مرة أخرى. واستخدم خيارات معالجة الأخطاء المتوفرة في الصيغ أو VBA لمطالبة المستخدم بإجراء التصحيحات اللازمة. وغالبًا ما يُحلّ تغيير تنسيق الخلية معظم مشكلات عرض التواريخ الفعلية.
مقالات ذات صلة:
- كيف يمكن دمج الخلايا مع الاحتفاظ بتنسيقها في 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 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل