在ActiveX文本框中分开1000

Question

我想知道如何在ActiveX文本框中分隔1000。我在“属性”中搜索了某种“格式”字段，但无法弄清楚如何实现？

Answer 1

只需使用您的格式向文本框添加一个更改事件

Private Sub TextBox1_Change()
    Me.TextBox1.Text = Format(Me.TextBox1.Text, "#" & Application.ThousandsSeparator & "###")
End Sub

Answer 2

我知道了。

因此，右键单击ActiveX文本框->查看代码。

Private Sub TextBox12_Change()
    TextBox12.Value = Format(TextBox12.Value, "###,##")
End Sub