عبد الله-بلال قام بنشر نوفمبر 4, 2011 قام بنشر نوفمبر 4, 2011 إخواني السلام عليكم : أنا عندي قاعدة بيانات أكسس و أريد أن أجزأ التاريخ في الإكسل حيث يكون كل رقم في خلية بواسطة ماكرو (vba) و الله يجازيكم خير الجزاء
عبدالله المجرب قام بنشر نوفمبر 4, 2011 قام بنشر نوفمبر 4, 2011 اكسس واكسل اخي عبدالله هناك معادلة لتجزئة التاريخ الى خانات (اليوم و الشهر و السنه) وهي Day & Month & Year هذه الدوال الثلات تقوم باللازم او ارفق مثال للعمل عليه
عبد الله-بلال قام بنشر نوفمبر 4, 2011 الكاتب قام بنشر نوفمبر 4, 2011 بارك الله فيك أخي عبد الله المجرب على هذا الرد السريع . إليك المثال بالمرفق
عبد الله-بلال قام بنشر نوفمبر 4, 2011 الكاتب قام بنشر نوفمبر 4, 2011 معذرة أخي عبد الله المجرب أحيانا لا يطهر لنا أزرار إضافة المرفقات
عبد الله-بلال قام بنشر نوفمبر 5, 2011 الكاتب قام بنشر نوفمبر 5, 2011 بارك الله فيك أخي و لكن أريد أن أجزأ التاريخ بواسطة ماكرو في vba بحيث كل رقم يكون في خلية و شكرا
عبدالله المجرب قام بنشر نوفمبر 6, 2011 قام بنشر نوفمبر 6, 2011 السلام عليكم اخي عبدالله طلباتك أوامر فانت في ملتقى مبرمجي الاوفيس العرب اكتب التاريخ في الخلية وشاهد النتيجة 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
عبد الله-بلال قام بنشر نوفمبر 6, 2011 الكاتب قام بنشر نوفمبر 6, 2011 الله يجازيك يا أخي عبد الله و أنت دائما في خدمة الآخرين هذا فضل منك . مشكور
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.