كود لجعل عمود ياخذ تنسيق التاريخ به بيانات سابقا

[زوهير]

السلام عليكم وحمة الله

هل من كود يجعل العمود ياخذ تنسيق التاريخ به بيانات سابقة

والمرفق يوضح ذلك

وجزاكم الله خيرا مسبقا

التاريخ l.rar

[جمال الفار]

تفضل اخى زوهير جرب هذا

فعند كتابة التاريخ سيكتب معك اليوم والشهر والسنة

وعند كتابة السنة سيكتب السنة فقط

تفضل واعلمنى بالنتيجة والطريقة سهلة وبسيطة

التاريخ l.rar

[زوهير]

اخي الكريم بارك الله فيك على الرد لكن اخي الكريم

انا اريد العمود بالتنسيق الذي شرحته بالمرفق

ويعمل حسب التنسيق الذي اريده ان امكن وجزاك الله خيرا

[زوهير]

للرفع جزاكم الله خيرا

[عبدالله المجرب]

السلام عليكم

اخي زهير

تم عمل كود يعمل لحالتين فقط

الحالة الاولى

اذا كان في الخلية السنة فقط مثل 1999

سيتم اضافة 00 00 اليه ليصبح 1999 00 00

الحالة الثانية

اذا كانت الخلية تحوي السنة والشهر واليوم (اليوم كرقم فردي) مثل 1999 12 1

ستصبح

1999 12 01

==

يمكن اضافة حالات اخرى حسب ما تريد

ملاحظة

لتنفيذ الكود قم بتضليل المدى الذي به الارقام ثم اضغط الزر

التاريخ l (1).rar

[زوهير]

بارك الله فيك اخي عبدالله

كود روعة جزاك الله خيرا وزادك علما

[زوهير]

اخي عبد الله هناك اشكال طفيف

هو عندما يصادف خلية لاتوجد بها فرغات بين الارقام لايعدلها

مثلا 1022010 فهذه لايعدلها اما اذا كانت هكذا 2010 02 1 فيعدلها

وجزاك الله خيرا

[عبدالله المجرب]

السلام عليكم

جرب هذا التعديل

Sub Abu_Ahmed()

Dim cl As Range

For Each cl In Selection

Select Case Len(cl.Value)

    Case Is = 4:

	    cl.Value = "00 00 " & cl.Value

Case Is = 7:

cl.Value = "0" & Mid(cl, 1, 1) & " " & Mid(cl, 2, 2) & " " & Mid(cl, 4, 4)

    Case Is = 9:

	    cl.Value = "0" & cl.Value

End Select

Next

End Sub

[زوهير]

بارك الله فيك وجزاك الله خيرا

لقد وفرت عليا عناء التعديل اليدوي وعمل كثير

اشكرك اشكرك جزيل الشكر

[عبدالله المجرب]

العفو منك

هذا اقل واجب