مشاهده عدد داخل تكست باكس بصورت سه رقم سه رقم

[4017]

چطوري ميشه اعداد داخل يه تكست باكسو بصورت سه رقم سه رقم با يه , نشون داد؟
مثل سلول اكسل كه سه رقم جدا ميكنه

[mokaram]

از کد زیر استفاده کنید

Private Sub TextBox1_Change()
TextBox1.Text = Format(TextBox1, "#,###")
End Sub

[mokaram]

اگه مشکلتون حل شد تیک سبز رنگ معروف ( حل شده ) را فراموش نشه

[amin.t]

از کد زیر استفاده کنید

Private Sub TextBox1_Change()
TextBox1.Text = Format(TextBox1, "#,###")
End Sub



سلام
من یه تکست باکس دارم که براش شرط گذاشتم اگر عدد شد حرف ارور بده و فقط اجازه تایپ عدد رو میده
حالا اگر بخوام کلمه تومان را به آخر هر قیمتم اضافه کنیم اخطار می ده
آیا روشی برای اضافه کردن کلمه تومان بدون گرفتن اخطار وجود داره ؟

[mokaram]

سلام
من یه تکست باکس دارم که براش شرط گذاشتم اگر عدد شد حرف ارور بده و فقط اجازه تایپ عدد رو میده
حالا اگر بخوام کلمه تومان را به آخر هر قیمتم اضافه کنیم اخطار می ده
آیا روشی برای اضافه کردن کلمه تومان بدون گرفتن اخطار وجود داره ؟

میشه کدی را که نوشتید بزارید؟

[amin.t]

میشه کدی را که نوشتید بزارید؟

این کد منه :

Private Sub vol_change()


If vol.Text <> "" And Not IsNumeric(vol.Text) Then
MsgBox "مقادیر را عددی وارد کن"
vol.Text = ""
End If
End Sub

4149

[mokaram]

شما تو باتن ثبت این کار را انجام بده

Private Sub CommandButton1_Click()

If vol.Text = "" Then
MsgBox ". مقادير قيمت را وارد کنيد"
Exit Sub
End If
Range("a1").Value = vol.Text & " تومان"

End


End Sub

[Javid Mokhtari]

با سلام.
می شود ...

If vol.Text <> "" And Not IsNumeric(vol.Text) Then
MsgBox "Not IsNumeric"
vol.Text = ""
ElseIf vol.Text <> "" And IsNumeric(vol.Text) Then
vol.Text = vol.Text & "تومان"
End If


اما اینکار اصلا توصیه نمی شود چون فرمت باکس شما به text تغییر کرده و در محاسبات اشکال بوجود می آید.
شما باید واحد خود را جدا از باکستان قرار دهید یا مثل روشی که دوست خوبمون آقا مهدی گفتن عمل کنید یا اصلا فرمت سلول را روی corrency یا accounting قرار دهید

[amin.t]

با سلام.
می شود ...

If vol.Text <> "" And Not IsNumeric(vol.Text) Then
MsgBox "Not IsNumeric"
vol.Text = ""
ElseIf vol.Text <> "" And IsNumeric(vol.Text) Then
vol.Text = vol.Text & "تومان"
End If


اما اینکار اصلا توصیه نمی شود چون فرمت باکس شما به text تغییر کرده و در محاسبات اشکال بوجود می آید.
شما باید واحد خود را جدا از باکستان قرار دهید یا مثل روشی که دوست خوبمون آقا مهدی گفتن عمل کنید یا اصلا فرمت سلول را روی corrency یا accounting قرار دهید

ممنون از راهنماییتون

[amin.t]

از کد زیر استفاده کنید

Private Sub TextBox1_Change()
TextBox1.Text = Format(TextBox1, "#,###")
End Sub



سلام
اگر بخوام اعدادی که در تکست باکس وارد می کنم باپر شدن تکس باکس فونتشون کوچک بشه باید چکار کرد ؟

[mokaram]

سلام
اگر بخوام اعدادی که در تکست باکس وارد می کنم باپر شدن تکس باکس فونتشون کوچک بشه باید چکار کرد ؟

منظورتون از کوچک شدن فونت اینه که عدد خاصی باشه یا بسته به طول رشته وارده تو تکست باکس اندازه فونت را فیت کنه؟

[amin.t]

منظورتون از کوچک شدن فونت اینه که عدد خاصی باشه یا بسته به طول رشته وارده تو تکست باکس اندازه فونت را فیت کنه؟
عدد فیت داخل تکست باکس بشه. مثل حالت align shrink to fit که برای یک سل تنظیم می کنیم.

یه سئوال دیگه هم داشتم اینه که توی تکست باکس چطوری متن یا اعدادو بصورت عمودی وسط چین کنم !!