[حل شده] جداکننده ارقام در Text Box با شرط جمع

[nikkhah]

سلام و عرض ادب
در Text Box هایی که شرط جمع گذاشتیم چگونه جداکننده ارقام هم اضافه کنیم ؟
برای مثال :

Private Sub TextBox23_Change()
TextBox24.Value = (Val(TextBox22.Value) + Val(TextBox23.Value))
End Sub 

[Amir Ghasemiyan]

سلام دوست عزیز

این کد رو اضافه کنید:

TextBox24 = Format(TextBox24, "#,##0")

[nikkhah]

سلام و درود
تشکر

ببخشید در textbox های دیگر ( مثلا در اینجا textbox22 و textbox23 ) زمانی که اعمال میکنم فقط عدد قبل از اعشار را جمع می کند و جواب نمی دهد

[mrhartsclube]

سلام و درود
تشکر

ببخشید در textbox های دیگر ( مثلا در اینجا textbox22 و textbox23 ) زمانی که اعمال میکنم فقط عدد قبل از اعشار را جمع می کند و جواب نمی دهد

سلام جناب نیکخواه عزیز

برای اینکه این مشکل پیش نیاد باید قبل از جمع کردن، کاما (ویرگول) های داخل دوتا تکست باکس باید حذف بشه، برای همین این کد رو برای تکست باکسای 22 و 23 و 24 تون وارد کنید:

Private Sub TextBox1_Change()
TextBox22 = Format(TextBox22, "#,##0")
End Sub

Private Sub TextBox23_Change()
TextBox23 = Format(TextBox23, "#,##0")
TextBox24.Text = Format((Val(Replace(TextBox22.Text, ",", "")) + Val(Replace(TextBox23.Text, ",", ""))), "#,##0")
End Sub 

[nikkhah]

سلام
تشکر وتقدیر از زحمات شما
لطف کردید سپاسگزارم