سلام
نیاز به یک تکست باکس دارم که اعداد را فرمت بندی کنه و سه رقم سه رقم جدا کنه و همچنین اجازه وارد کردن اعشار را بده مثلا به شکل مقابل 252,230,222.332
تو سایت ها سرچ کد زیر میاد و دقیق هم کار میکنه ولی اجازه وارد کردن اعشار را نمیده
دقیقا مثل ماشین حساب ویندوز میخوام باشه عدد گرفتنش
Text6.Text = Format(Text6.Text, "##,0")
Text6.SelStart = Len(Text6.Text)
Text6.SetFocus
خودم تابعی نوشتم که این کار را انجام بده ولی مشکل اینجاست که وقتی تو Private Sub Text6_Change() میذارمش تایپ نمیشه
لطفا کسی اگر میتونه کمک کنه/
پاسخ با نقل قول