اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


الردود الموصى بها

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

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

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

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

التاريخ 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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information