جدا کردن سه رقم اعداد در تکست باکس

[star_star]

جدا کردن سه رقم اعداد در تکست باکس

چطوری اعداد داخل یه تکست باکس رو سه رقم سه رقم جدا کنیم ؟

مثلا اینو : 250000 رو اینطوری نشون بده 250,000

[vbhamed]

سلام
Private Sub Text1_Change()

On Error Resume Next

Dim p%, l%
l = Len(Text1)
p = Text1.SelStart
Text1 = Format$(Replace(Text1, ",", ""), "#,#")
Text1.SelStart = p + Len(Text1) - l

End Sub

[shervin_boy]

سلام
وقتی از این کد استفاده می کنم موقع جمع دو تا تکست باکس فقط اعداد قبل از (,) خوانده و جمع می شن
24 = 12,333 + 12,333
برای حل این مشکل راه حلی دارید؟
تشکر

[isaac23]

این دستور ساده تره از این استفاده کن
Private Sub Text1_Change()
Text1.Text = Format(Text1.Text, "##,0")
Text1.SelStart = Len(Text1.Text)
End Sub



واسه جمع زدن از Val آستفاده کن
MsgBox Val(Text1) + Val(Text2)

[vbhamed]

سلام
وقتی از این کد استفاده می کنم موقع جمع دو تا تکست باکس فقط اعداد قبل از (,) خوانده و جمع می شن
24 = 12,333 + 12,333
برای حل این مشکل راه حلی دارید؟
تشکر


سلام

Private Function NoKama(ByVal s As String)

NoKama = Val(Replace(s, ",", ""))

End Function

Private Sub Form_Load()

MsgBox NoKama(Text1) + NoKama(Text2)

End Sub