تحويل التاريخ الهجري النصي إلى صيغة تاريخ

[أبوعبدالله الرشود]

الأخوة الكرام سلمهم الله

يوجد لدي تقارير يتم تصديرها لبرنامج اكسل وتحتوي على تواريخ بالهجري حسب الصيغة التالية (٢٢/١٠/١٤٣٨) ولا يتعرف عليها اكسل بصيغة التاريخ بحيث لا يمكن استخدامها لاغراض الفرز والتصفية. والطريقة الحالية تعديلها يدوياً وتكون متعبة جداً عندما يحتوي التقرير على عمود به أكثر من ١٥٠٠ تاريخ

 

الأخوة الكرام.. كل عام وأنتم بخير وتقبل الله من الجميع ..شكر الله اهتمامكم وتوجيهكم

تم إرفاق الملف، والمطلوب: تحويل التواريخ الهجرية النصية إلى صيغة تاريخ هجري (أم القرى) يتعرف عليه اكسل كتاريخ

إن أمكن باستخدام الدوال أو الأكواد، واعتقد انه لا توجد طريقة أخرى غير تلك.

احترامي للجميع

السؤال: هل يمكن إنشاء معادلة أو كود لتحويل التاريخ النصي (الهجري) إلى تاريخ يتعرف عليه برنامج اكسل

ولكم جزيل الشكر والتقدير

export.xlsx

[محمد حسن المحمد]

السلام عليكم أخي الكريم @أبوعبدالله الرشود أما بعد : فكما ذكر الأخ @مهند محسن  ...كان من الأفضل أن ترفق ملفاً تشرح فيه طلبك أخي الكريم حتى يتم البناء على أساس راسخ

بدلاً من التخمين ...وعليه فيمكنني الإجابة برؤوس أقلام عن كيفية كتابة التاريخ الهجري الذي يمكن التعرف عليه من خلال برنامج الإكسيل كما يلي:

بداية وقبل أن تكتب في الخلايا التواريخ الهجرية التي تريد ، قم بإجراء تنسيق الخلايا المعدّة لذلك كما يلي:

1. حدد نوع التنسيق تاريخ ثم الموقع المملكة العربية السعودية و نمط التاريخ هجري وحدد أيضاً أنك تريد تنسيق التاريخ لكل الخلايا المتعلقة بالتاريخ الهجري أدناه.
2. انقر بالماوس على Ok أو موافق ...
3. بما أنه ليس لديك ملف مرفق يرجى نسخ التواريخ التي سجلتها مسبقاً ولصقها كقيم في الخلايا التي أعددتها مؤخراً حسب التنسيق السابق الذكر رجاء أن يتم لك ما أردت 
4.  كما تلاحظ في الصورة أنني حددت التاريخ الهجري وفق هذه المعطيات ووضعت خلية مجاورة للتأكد من أنها تعمل فتم تحويل التاريخ الهجري إلى ميلادي بفضل الله تعالى.

             راجياً تجربة ما ذكرتُ لك والردّ لمعرفة النتائج

[محمد يوسف ابو يوسف]

اخي ..ان كان فهمي صحيح فهذا طلبك

الملف export1.xlsm

الكود المستخدم

Sub تحويل_التاريخ_الي_هجري()
    Range("A2:B62").Select
    Selection.NumberFormat = "[$-,106]B2yyyy/mm/dd;@"
    Range("A2:B62").Select
    Selection.End(xlUp).Select
End Sub