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

[أنس دروبي]

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

اساتذتي الكبار والعمالقة 

بحثت كثيرا في مواقع الانترنت عن كيفية او كود يقوم بتحديد الادخال في تكست بوكس في فورم بحيث لاتقبل الا تاريخ يوم ما

ولكن المشكلة انه وجدت اكواد كثيرة في هذا الموضوع ولكن لن تفي بالغرض ودائما كانت علئ نسق معين وغير كاملة

الموضوع بدون اطالة لانه صراحة لا يستهال الشرح 

انه كيف نستطيع اولا نجعل الادخال في التكست بوكس فقط تاريخ او ارقام 

ثانيا عند ادخال اليوم في التكست بوكس مثلا (يوم 22) تظهر شرطة صغيرة (-) مباشرة بعد ادخال اليوم وبعدها نكتب الشهر وبعدها تلقائيا تظهر الشرطة الصغيرة(-) وبعدها السنة 

يعني يكون تنسيق التاريخ كالتالي مثلا:

22-10-2013

الشرطة الصغيرة تظهر تلقائيا بعد ادخال اليوم والتاريخ

ارجو ان تكون وضحت الفكرة 

وشكرا

[أبو حنــــين]

السلام عليكم

يمكن عمل ذلك لكن بشرط ان تكتب اليوم برقمين

مثلا 1 تكتب 01

و الشهر مثلا 2 يكتب 02

فكل من الكودين التاليين يعملان بهذه الطريقة

مثال عوض ان تكتب : 1-2-2013   تكتب 01-02-2013 طبعا بدون الاشارة ( - )

الكود الاول

Private Sub TextBox1_Change()

If Len(TextBox1) = 2 Then TextBox1.Value = TextBox1.Value & "-"
If Len(TextBox1) = 5 Then TextBox1.Value = TextBox1.Value & "-"

End Sub

الكود الثاني

Private Sub TextBox1_Change()

Art = Array(2, 5)
For i = 0 To UBound(Art)
If Len(TextBox1) = Art(i) Then
TextBox1 = TextBox1 & "-"
Exit For
End If
Next


End Sub

[أبو حنــــين]

او بالطريقة التالية

Private Sub TextBox1_Change()

With TextBox1
.MaxLength = 10
    Art = Array(2, 5)
    For i = 0 To UBound(Art)
            If Len(.Value) = Art(i) Then
                .Value = .Value & "-"
            Exit For
        End If
    Next
End With

End Sub

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii < 46 Or KeyAscii > 57 Then KeyAscii = 0
End Sub

[saad abed]

ابوحنين

ابداعات ومعلومات قيمة

هل لكل مفتاح  فى الكيبورد رقم KeyAscii

زدنا من معلوماتك القيمة

وفقكم الله

[أبو حنــــين]

السلام عليكم

نعم اخي سعد

افتح ملف اكسل و ضع به زر ثم اضف هذا الكود

Private Sub CommandButton1_Click()
For i = 1 To 255
Cells(i, 1) = Chr(i)
Next
End Sub

[saad abed]

^{اخى ابوحنين}

^{شكرا على ردكم السريع}

^{اتمنى لك دوام الصحة والعافية}

^{وفقكم الله}

[حمادة عمر]

استاذنا القدير الحبيب /  أبو حنين

دائما انت

 

[أبو حنــــين]

جزاك الله خيرا أخي أبو سما

[إبراهيم ابوليله]

اخى واستاذنا

ابوحنين

انت بالفعل تجبرنا على

متابعهة مشاركاتك

دائما ما نجدها شيقه وممتعه

ومتسمه بالسهوله والتنوع

بارك الله فيك اخى الحبيب

[يوسف السيد]

ما شاء الله ... جهد رائع واكواد متميزة

[أبو حنــــين]

أخي    :   إبراهيم

أخي  :   حمادة

أخي  :  يوسف

جزاكم الله خيرا على الكلمات الطيبة

حفظكم الله و رعاكم

[أنس دروبي]

السلام عليكم

الله يجزيك الف خير اخي أبوحنين على إبداعاتك الجميلة والمتميزة 

أكواد سهلة وبسيطة الفهم 

أعطت المطلوب بالكامل

وشكراً

أخوكم أنس دروبي

[أبو حنــــين]

العفو أخي أنس

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

[احمد تركي ابو وسيم]

جزاكم الله خيرا    اكواد رائعة