Отдельное 1000 в текстовом поле ActiveX

Question

Мне интересно, как можно отделить 1000 в текстовом поле ActiveX. Я искал в Свойствах какое-то поле формата, но не могу понять, как этого можно достичь?

Answer 1

Просто добавьте событие изменения в TextBox с вашим форматом

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