Excel 在ActiveX文本框中分隔1000

Excel 在ActiveX文本框中分隔1000,excel,Excel,我想知道如何在ActiveX文本框中分离1000。我在属性中搜索了某种格式字段,但不知道如何实现 只需使用您的格式向文本框添加一个更改事件即可 Private Sub TextBox1_Change() Me.TextBox1.Text = Format(Me.TextBox1.Text, "#" & Application.ThousandsSeparator & "###") End Sub 只需使用您的格式向文本框添加一个更改事件 Private Sub Tex

我想知道如何在ActiveX文本框中分离1000。我在属性中搜索了某种格式字段,但不知道如何实现


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

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

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

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

我已经弄明白了

所以右键单击ActiveX文本框->查看代码

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

我已经弄明白了

所以右键单击ActiveX文本框->查看代码

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