Excel: отформатировать группу Combobox в качестве номера телефона - PullRequest
0 голосов
/ 28 января 2020

У меня есть следующий код, настроенный для форматирования текста в 14 ComboBox на UserForm1. Когда я нажимаю в или из первого, ComboBox10, он форматирует все поля в форме. Если я нажму любой из остальных, ничего не происходит. (У меня есть множество других Combox в пользовательской форме.) Может кто-нибудь сказать мне, как изменить код, чтобы повлиять на все поля? Кроме того, любой способ улучшить код это будет оценено!

Private Sub ComboBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
 ComboBox10 = Format(ComboBox10, "(000)000-0000")
 ComboBox20 = Format(ComboBox20, "(000)000-0000")
 ComboBox30 = Format(ComboBox30, "(000)000-0000")
 ComboBox40 = Format(ComboBox40, "(000)000-0000")
 ComboBox50 = Format(ComboBox50, "(000)000-0000")
 ComboBox60 = Format(ComboBox60, "(000)000-0000")
 ComboBox70 = Format(ComboBox70, "(000)000-0000")
 ComboBox80 = Format(ComboBox80, "(000)000-0000")
 ComboBox90 = Format(ComboBox90, "(000)000-0000")
 ComboBox100 = Format(ComboBox100, "(000)000-0000")
 ComboBox110 = Format(ComboBox110, "(000)000-0000")
 ComboBox120 = Format(ComboBox120, "(000)000-0000")
 ComboBox130 = Format(ComboBox130, "(000)000-0000")
 ComboBox140 = Format(ComboBox140, "(000)000-0000")
End Sub
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...