نقل قول نوشته شده توسط moghadam1372 مشاهده تاپیک
سلام

با این کد فرمت تکس باکس تغییرمی کند و اعداد سه رقم سه رقم جدا می شود و حالا برای جمع کردن تکس باکس مشکل می خورد 100،000
'If Val(Text1.Text) > 0 Then Text1.Text = Format(Text1.Text, "###,###,###")

چطوری می شود اعداد داخل تکس باکس به حالت اولیه برگردد مثلا 100000 که بشود با تکس دیگر جمع کرد یا کاما بین اعداد حذف شود

Private Function num(s As String)





    num = Val(Replace$(s, ",", ""))





End Function





Private Sub Form_Load()





MsgBox num(Text1) * num(Text2)





End Sub