(تمت الاجابة) تجزئة التاريخ الميلادي

[عبد الله-بلال]

إخواني السلام عليكم : أنا عندي قاعدة بيانات أكسس و أريد أن أجزأ التاريخ في الإكسل حيث يكون كل رقم في خلية بواسطة ماكرو (vba) و الله يجازيكم خير الجزاء

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

اكسس واكسل

اخي عبدالله

هناك معادلة لتجزئة التاريخ الى خانات (اليوم و الشهر و السنه)

وهي Day & Month & Year

هذه الدوال الثلات تقوم باللازم

او ارفق مثال للعمل عليه

[عبد الله-بلال]

بارك الله فيك أخي عبد الله المجرب على هذا الرد السريع . إليك المثال بالمرفق

[عبد الله-بلال]

معذرة أخي عبد الله المجرب أحيانا لا يطهر لنا أزرار إضافة المرفقات

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

جرب هذا المرفق

تجزئة التاريخ.rar

[عبد الله-بلال]

بارك الله فيك أخي و لكن أريد أن أجزأ التاريخ بواسطة ماكرو في vba بحيث كل رقم يكون في خلية و شكرا

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

السلام عليكم

اخي عبدالله

طلباتك أوامر فانت في ملتقى مبرمجي الاوفيس العرب

اكتب التاريخ في الخلية وشاهد النتيجة

Private Sub Worksheet_Change(ByVal Target As Range)

LR = Range("A" & Rows.Count).End(xlUp).Row

If Not Intersect(Target, Range("a2:a" & LR)) Is Nothing Then

Set x = Application.WorksheetFunction

Target.Offset(0, 1).Value = x.Text(Target.Value, "dd")

Target.Offset(0, 2).Value = x.Text(Target.Value, "mm")

Target.Offset(0, 3).Value = x.Text(Target.Value, "yyyy")

End If

End Sub

جرب المرفق

===

تم وضع زر امر في الورقة الثانية ليكون لديك خيارين اما الزر او الادخال والتحويل المباشر

تجزئة التاريخ (1).rar

[عبد الله-بلال]

الله يجازيك يا أخي عبد الله و أنت دائما في خدمة الآخرين هذا فضل منك . مشكور