PDA

توجه ! این یک نسخه آرشیو شده میباشد و در این حالت شما عکسی را مشاهده نمیکنید برای مشاهده کامل متن و عکسها بر روی لینک مقابل کلیک کنید : اعمال thousand separator در هنگام ورود اطلاعات در LISTBOX


Ali Parsaei
2014/09/30, 13:03
سلام،
آيا امکان اين وجود دارد که در هنگام ورود اعداد در يک textbox همان لحظه سه رقم سه رقم جدا شوند؟ يا حالا مثلا" بعد از ورود اطلاعات اين حالت اعمال گردد؟
mokaram
2014/09/30, 13:28
با سلام
اطلاعات لیست باکس بالطبع باید از منبع اصلیش ( شیت ) گرفته بشه اگه شما سه رقم سه رقم را تو شیت انجام بدی تو لیست باکس به صورت سه رقم سه رقم میاد
yasertati3602
2014/09/30, 15:37
سلام
شما میتونید هنگام ثبت یا ورود اطلاعات به لیست باکس فرمت رو به صورت سه رقم سه رقم جدا قرار بدید
اگر اطلاعات از تکست باکس وارد لیست باکس بشه د زیر رو بنویس

listbox1.list(listbox1.listcount - 1 , 1) = format(textbox1.text,"#,###")
اگر از شیت وارد بشه کد زیر رو بنویس

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

اساتید محترم بیشتر راهنمایی بفرمایند
Ali Parsaei
2014/09/30, 15:51
با سلام
اطلاعات لیست باکس بالطبع باید از منبع اصلیش ( شیت ) گرفته بشه اگه شما سه رقم سه رقم را تو شیت انجام بدی تو لیست باکس به صورت سه رقم سه رقم میاد


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

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
2014/09/30, 15:57
بله حاج علی آقا به شکل زیر بنویسید

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