كتابة التاريخ في TextBox

[عبدالقادر غموزي]

السلام عليكم

أرجو الحصول على كود الفيزوال الذي يمكنني من كتابة التاريخ في TextBox ويتم تحويل و نقله إلى الخلية بالورقة و بالتالي يتم تحويل ما كتب في الخلية إلى التاريخ بصغية dd-m-year و لكم ألف تحية و سلام

Classeur1.rar

تم تعديل فبراير 10, 2008 بواسطه عبدالقادر غموزي

[ابو اسامة العينبوسي]

TextBox1.Text = Format(TextBox1.Text, "dd/m/yy")

[عبدالقادر غموزي]

مشكور اخي أبو اسامة

و اثناء تجوالي في أحد المنتديات الفرنسية وجدت هذا الكود وقعت على هذا الكود.

Private Sub TextBox6_Change()

Select Case Len(TextBox6)

Case 2, 5

TextBox6 = TextBox6 & "/"

End Select

End Sub

Private Sub TextBox6_Enter()

TextBox6.Text = ""

End Sub

Private Sub TextBox6_Exit(ByVal Cancel As MSForms.ReturnBoolean)

TextBox6.Text = Format(TextBox6.Text, "dd/mm/yyyy")

End Sub

Private Sub TextBox7_Change()

Select Case Len(TextBox7)

Case 2, 5

TextBox7 = TextBox7 & "/"

End Select

End Sub

و إلك المرفق أيضا.

جزاك الله خيرا

Classeur1.rar