sayıları virgüllü yazma

textbox içine yazılan sayıları virgülle yazma...


Private Sub Text1_Change()
Dim x
Dim s As Date
x = Text1.SelStart
Text1 = Format(Text1, "###,###")

Text1.SelStart = x + 1
End Sub

Paylaşım için teşekkürler. Saygılar...