چطور اعداد رو 3تا 3تا جدا کنم مثلا 1000 > 1,000

[behnam_tr]

با سلام ...
من تو برنامم که یه نوع حسابداریه میخوام مبالغ رو به این صورت داشته باشم ...

1000 > 1,0000
2544144 > 2,544,144

, ....

با چه کدی تو تکست باکس میتونم این کارو بکنم ؟

[javadt]

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


Private Sub Text1_Change()
Text1.Text = Format(Text1.Text, "###,###,###"): SendKeys "{End}"
End Sub

[محسن واژدی]

سلام علیکم
بصورت زیر هم:
Private Sub Command1_Click()
Text1 = Format("2544144", "0,0")
End Sub


موفق باشید

[behnam_tr]

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


Private Sub Text1_Change()
Text1.Text = Format(Text1.Text, "###,###,###"): SendKeys "{End}"
End Sub


مرسی داداش لطف کردی عالیه

[MohammadGh2011]

مرسی داداش لطف کردی عالیه

سلام عليکم
لطفا از کليد تشکر استفاده کنيد و توسط پست دادن تشکر نکنيد.


موفق باشيد