Блог

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

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

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

Я понял это.

Итак, щелкните правой кнопкой мыши на текстовом поле ActiveX -> Просмотреть код.

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