اذهب الي المحتوي
أوفيسنا

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


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

رابط هذا التعليق
شارك

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


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

رابط هذا التعليق
شارك

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

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

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

بدلا منPrivate Sub TextBox2_BeforeUpdate

احترامى

تم تعديل بواسطه abouelhssan
رابط هذا التعليق
شارك

اخي الفاضل

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

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

===

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

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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
×
×
  • اضف...

Important Information