چطوري ميشه اعداد داخل يه تكست باكسو بصورت سه رقم سه رقم با يه , نشون داد؟
مثل سلول اكسل كه سه رقم جدا ميكنه
مثل سلول اكسل كه سه رقم جدا ميكنه
-
[color=#1e90ff]اگر تنهاترين تنهايان شوم بازهم خدا هست،
او جانشين تمام نداشته هاي من است...![/color] -
از کد زیر استفاده کنید
کد PHP:Private Sub TextBox1_Change()
TextBox1.Text = Format(TextBox1, "#,###")
End Sub
[CENTER][IMG]http://forum.exceliran.com/signaturepics/sigpic909_10.gif[/IMG]
[/CENTER] -
اگه مشکلتون حل شد تیک سبز رنگ معروف ( حل شده ) را فراموش نشه[CENTER][IMG]http://forum.exceliran.com/signaturepics/sigpic909_10.gif[/IMG]
[/CENTER]کامنت
-
این کد منه :
p1.xlsmکد:Private Sub vol_change() If vol.Text <> "" And Not IsNumeric(vol.Text) Then MsgBox "مقادیر را عددی وارد کن" vol.Text = "" End If End Subکامنت
-
شما تو باتن ثبت این کار را انجام بده
کد PHP:Private Sub CommandButton1_Click()
If vol.Text = "" Then
MsgBox ". مقادير قيمت را وارد کنيد"
Exit Sub
End If
Range("a1").Value = vol.Text & " تومان"
End
End Sub
[CENTER][IMG]http://forum.exceliran.com/signaturepics/sigpic909_10.gif[/IMG]
[/CENTER]کامنت
-
با سلام.
می شود ...
اما اینکار اصلا توصیه نمی شود چون فرمت باکس شما به text تغییر کرده و در محاسبات اشکال بوجود می آید.کد PHP: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
شما باید واحد خود را جدا از باکستان قرار دهید یا مثل روشی که دوست خوبمون آقا مهدی گفتن عمل کنید یا اصلا فرمت سلول را روی corrency یا accounting قرار دهیدLast edited by Javid Mokhtari; 2014/07/23, 14:23.[FONT=Tahoma][INDENT][CENTER][SIZE=3][FONT=courier new][B][FONT=comic sans ms][SIZE=3][FONT=arial]دوره های آموزش رایگان اکسل از صفر تا پیشرفته بصورت تصویری
بیش از [COLOR=#008000]60[/COLOR] جلسه آموزش ویدئویی رایگان
شرکت در دوره:
[/FONT][/SIZE]
[SIZE=5] [FONT=Tahoma][FONT=courier new][B][URL]https://javidsoft.ir/courses/[/URL][/B][/FONT][/FONT][/SIZE][/FONT]
[/B][/FONT][/SIZE]
[/CENTER]
[/INDENT]
[/FONT]کامنت
کامنت