如何让123456789在TEXT框中录入的时候自动就变成123，456，789？

Question

text.text=format(123456789,"###,###")
之后对text中数据进行数字处理时需还原
  ＝format(text.text,"###")

Answer 1

我不是想让TEXT直接显示出123，456，789
而是我录入的是什么数据就按那种格式显示出要是在CHANGE事件里写
text.text=format(text.text,"###,###")
效果不对
他不能在我录入数据的时候加上 ，

Answer 2

Private Sub Text1_Change()
  Text1.Text = Format(Text1.Text, "###,###")
  Text1.SelStart = Len(Text1.Text)
End Sub

Answer 3

同意三月三的做法，但text1.selstart=len(text1.text)不用必须加吧

Answer 4

text1.selstart=len(text1.text)  '我试了一下，没有这一句会出现一个问题，光标老是往前跑

Answer 5

用 FormatCurrency 函数Private Sub Text1_Change()
  Text1.Text = FormatCurrency(Text1.Text, 0)
  Text1.SelStart = Len(Text1.Text)
End Sub

Answer 6

对！
就是这句的问题text1.selstart=len(text1.text)

Answer 7

TO：fleshboy(百菜)
按你的写法数字前加了一个人民币符号
要是加美圆符号用什么啊？