تنسيق التاريخ عند الادخال من اليوزر فورم

[khairi ali]

السلام عليكم ورحمة الله وبركاته

اخواني الكرام في هذا الصرح التعليمي العظيم 

في الملف المرفق المطلوب تنسيق التاريخ بحيث يكون يوم - شهر - سنة

ولكم مني جزيل الشكر والتقدير

الطلبة.xlsm

[abouelhassan]

فى كود الفورم انشأ تكست واعرف رقمها وليكن 100 واكتب هذا الكود فى الفورم

Private Sub UserForm_Initialize()
TextBox100.Text = Date
  

End Sub

ثم

هذا الكود

Private Sub UserForm_Activate()
TextBox100.Value = Application.WorksheetFunction.Text(Date, "yyyy/mm/dd")
t = 0
End Sub

 

[Mohmad83]

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

frm2.Text4.Value = Format(ch.Cells(iRow, 4).Value, "yyyy-mm-dd")

 

[khairi ali]

بارك الله فيك استاذي ولكن ظهر التاريخ معكوس كما في الصورة

[abouelhassan]

غير الى dd-mm-yyyy

[khairi ali]

استاذي  التاريخ مازال معكوسا يكتب الشهر ثم اليوم كما في الصورة

[Mohmad83]

اخي العزيز الملف يعمل بشكلٍ  طبيعي لكن يجب عليك التأكد اولا ان تصحح التاريخ على  الشيت لان الفورم يجلب التاريخ كما موجود على الشيت وجرب بنفسك ادخال تاريخ جديد ستلاحظ ان لاتوجد اي مشكلة في الفورم لذا عليك ان تعدل بشكل يدوي التواريخ المعكوسه يدويا من على الشيت

الطلبة (3).xlsm

[الرائد77]

تفضل تم عمل المطلوب

الدليل بالصورة 

الطلبة.xlsm

[khairi ali]

مشكورين جدا وان شاء الله في ميزان حسناتكم

استاذ الرئد77 لو سمحت طريقة تعديل صيغة تاريخ النظام لان المشكلة في صيغة التاريخ في نظام جهازي عندما تكون الارقام بالهندية تعمل بشكل صحيح ولكم عندما تكون الأرقام بالانجليزية كما في الصورة تعكس التاريخ