شكل البيانات فى الفورم

[mselmy]

هل يوجد طريقة للتحكم بشكل ونوع البيانات المدخله فى الـ textBOX بحيث اجعل احدها يكتب حروف لاتينية مباشرتا واخر تكون البيانات فيه ارقام فقط واخر الداتا على شكل تاريخ

[mselmy]

للرفع

[mselmy]

حفرت شوية فى عدة مواقع ولقيت كود بالشكل ده لكن معرفتش ازبطه هل يستطيع احد تزبيطه

Private Sub TextBox1_Change()

yourTextBox.text = Formatnumber(Linked Data,[#,##0])

End Sub

here are some other variations.

yourTextBox.Text = FormatNumber("#,##0")

yourTextBox.text = Formatnumber(Linked Data,[#,##0])

FormatNumber ("$#,##0.00_);[Red]($#,##0.00)")

format(YourNumber, "###,###,##0.00")

format(YourPercentage, "###%")

FormatNumber(YourNum)

FormatPercent(YourPer

[mselmy]

وادى كود تانى بس ده تاريخ بس

Dim dDate As Date

Private Sub CommandButton1_Click()

    Sheet1.Range("G1").Value = dDate

End Sub


Private Sub TextBox1_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)

    If Mid(TextBox1.Value, 4, 2) > 12 Then

	    MsgBox "Invalid date, please re-enter", vbCritical

	    TextBox1.Value = vbNullString

	    TextBox1.SetFocus

	    Exit Sub

    End If


    dDate = DateSerial(Year(Date), Month(Date), Day(Date))

    TextBox1.Value = Format(TextBox1.Value, "dd/mm/yyyy")

    dDate = TextBox1.Value

End Sub

[mselmy]

حاولت تركيب الاكواد لكن تعثرت فى الكود الخاص باللغه

form control.rar

[mselmy]

اخوانى الاعزاء بمساعدة الاستاذ عبد الله المجرب واكواد الاستاذ الحسامي تم التوصل لهذا الحل ارجو من الله ان يكون فيه فائدة لبعض اعضاء المنتدى

form control.rar

[abouelhassan]

اخى احترامى وتقديرى روائع للاساتذة

لى ملحوظة ان تغير اللغة لايتم بمجرد اختيار التكست ولكن يجب الضغط على زر 1

ويجب تغير الحدث الى Private Sub TextBox2_Enter

بدلا منPrivate Sub TextBox2_BeforeUpdate

احترامى

تم تعديل يناير 27, 2012 بواسطه abouelhssan

[mselmy]

فعلا كده تزبط الف شكر على التوضيح وعلى فكره انا الى عدلت الكود بالشكل ده لكن الاستاذ عبد الله كان عامل الكود بمجرد الاختيار بالماوس فالخطاء عندى وليس عنده

[عبدالله المجرب]

اخي الفاضل

جميل ان تبحث وتجد

والاجمل هو اصرارك على مشاركة ما وجدته مع إخوانك

===

اخوانى الاعزاء بمساعدة الاستاذ عبد الله المجرب واكواد الاستاذ الحسامي تم التوصل لهذا الحل ارجو من الله ان يكون فيه فائدة لبعض اعضاء المنتدى

مساعدتي كانت في منتدى اخونا يحيى حسين http://excel4us.com