مساعدة في كيفية كتابة التاريخ بهذا الشكل (يوم، شهر، سنة) في الـ textbox

[Alaaq3]

مساعدة في كيفية كتاب التاريخ بهذا الشكل (يوم، شهر، سنة) في الـ textbox 

 

كتابة التاريخ بتنسيق معين.xlsm

[عبدالفتاح في بي اكسيل]

جرب  هذا  وغير  رقم التيكست بوكس لظهور  التاريخ اكتب  اول  رقم وسيكمل  باقي  التاريخ 

Private Sub TextBox1_Change()
  Dim ldate As Date
 ldate = DateSerial(Year(Date), Month(Date), Day(Date))
 TextBox1.Value = Format(TextBox1.Value, "yyyy/mm/dd")
 ldate = TextBox1.Value
End Sub

 

[عبدالله 99]

=DATE(1*MID($C3318,7,4),1*MID($C3318,1,2),1*MID($C3318,4,2))

$C3318 خلية التاريخ

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

وتدعيلنا بإذن الله

TEXT function examples.xlsx

[Alaaq3]

اخي العزيز الكود لايعمل ويعطي اخطاء اضافة الى انه هو من يقوم بكتابة التاريخ وما اردته انا من اقوم بكتابة التاريخ بشرط يكون بالتنسيق (يوم شهر سنة)

[عبدالفتاح في بي اكسيل]

الكود شغال معي بما انك لا تريد ارفاق ملف فلا تنتظر المساعدة 

ملاحظة اخيرة جرب وضعه في حدث afterupdate 

عليك الانتظار من الاساتذة الاخرين لتجد حل لمشكلتك بدون ملف 

[عبدالفتاح في بي اكسيل]

تم  التعديل 

 

كتابة التاريخ بتنسيق معين.xlsm

[Alaaq3]

لايمكن التعديل على التاريخ . ما اريده هو انا اقوم بادخال تاريخ معين

[عبدالفتاح في بي اكسيل]

اذا كنت  تريد  تغيير  اليوم  والشهر  فقط  يمكن  وضعه في  الحدث  CHANGE 

Private Sub TextBox1_CHANGE()
If IsDate(TextBox1.Value) Then TextBox1.Value = Format(TextBox1.Value, "YYYY/MM/DD")
End Sub

 

اما اذا  اردت  تغييره كامل  عليك  بجعل  تيكس بوكس  بعدها  مباشرة  لانه  يعتمد  على ادخال  التاريخ  ثم  انتر  لينتقل  الى تيكست بوكس  الذي  يليه  وستلاحظ   تغير صيغة  التاريخ 

Private Sub TextBox1_AfterUpdate()
If IsDate(TextBox1.Value) Then TextBox1.Value = Format(TextBox1.Value, "YYYY/MM/DD")
End Sub

 

[Alaaq3]

شكراً جزيلاُ اخي العزيز . تم بنجاح