التعديل على الكود لتنسق التاريخ

[أبوســـارة1973]

السلام عليكم

صباح الخير

أرجو التعديل على الكود التالي :



Private Sub UserForm_Initialze()
TextBox1.Value = Sheet1.Cells(1,1)
Format TextBox1.Value ("yyyy/mm/dd")
End Sub

وذلك ليقوم الكود بجلب التاريخ الموجود في الخلية A1  بمجرد فتح الفورم  بشرط أن يكون تنسيق التاريخ بالطريقة ( yyyy/mm/dd)

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









تم تعديل فبراير 7, 2015 بواسطه أبوســـارة1973

[الصـقر]

اخى الكريم   جرب هذ ا الكود    

Private Sub UserForm_Activate()
TextBox1.Value = Format(Sheet1.Cells(1, 1), "yyyy/mm/dd")
End Sub
 

تقبل تحياتى

[أبوســـارة1973]

شكراً أخي الكريم

بارك الله فيك