اعمال thousand separator در هنگام ورود اطلاعات در LISTBOX

[Ali Parsaei]

سلام،
آيا امکان اين وجود دارد که در هنگام ورود اعداد در يک textbox همان لحظه سه رقم سه رقم جدا شوند؟ يا حالا مثلا" بعد از ورود اطلاعات اين حالت اعمال گردد؟

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[mokaram]

با سلام
اطلاعات لیست باکس بالطبع باید از منبع اصلیش ( شیت ) گرفته بشه اگه شما سه رقم سه رقم را تو شیت انجام بدی تو لیست باکس به صورت سه رقم سه رقم میاد

[yasertati3602]

سلام
شما میتونید هنگام ثبت یا ورود اطلاعات به لیست باکس فرمت رو به صورت سه رقم سه رقم جدا قرار بدید
اگر اطلاعات از تکست باکس وارد لیست باکس بشه د زیر رو بنویس

listbox1.list(listbox1.listcount - 1 , 1) = format(textbox1.text,"#,###")

اگر از شیت وارد بشه کد زیر رو بنویس

listbox1.list(listbox1.listcount - 1 , 1) = format(c.offset(0,1).value,"#,###")

اساتید محترم بیشتر راهنمایی بفرمایند

[Ali Parsaei]

با سلام
اطلاعات لیست باکس بالطبع باید از منبع اصلیش ( شیت ) گرفته بشه اگه شما سه رقم سه رقم را تو شیت انجام بدی تو لیست باکس به صورت سه رقم سه رقم میاد

سلام
شما میتونید هنگام ثبت یا ورود اطلاعات به لیست باکس فرمت رو به صورت سه رقم سه رقم جدا قرار بدید
اگر اطلاعات از تکست باکس وارد لیست باکس بشه د زیر رو بنویس

listbox1.list(listbox1.listcount - 1 , 1) = format(textbox1.text,"#,###")

اگر از شیت وارد بشه کد زیر رو بنویس

listbox1.list(listbox1.listcount - 1 , 1) = format(c.offset(0,1).value,"#,###")

اساتید محترم بیشتر راهنمایی بفرمایند

خيلي ببخشيد من منظورم textbox بود، ولي اشتباها" listbox نوشتم!
با عرض معذرت صورت مسئله را اصلاح کردم،
راستش اعداد بزرگ با 10 تا 12 رقم صفر بايد در textbox هاي من بايد وارد شود و به همين خاطر کاربرها اشتباه مي کنند و مي خواستم يک جوري مشکل را بر طرف کنم.

[mokaram]

بله حاج علی آقا به شکل زیر بنویسید

Private Sub TextBox1_Change()
TextBox1.Text = Format(TextBox1, "#,###")
End Sub