Выделить текст в Userform TextBox

Я хочу выделить / выделить весь текст в текстовом поле в моей Userform. Я уже нашел> 20 форумов с решением .SelStart и .SelLength, но он не работает для меня …

Существуют ли настройки или свойства, которые мне нужно изменить, чтобы иметь возможность использовать это?

Это мой код:

Private Sub MaterialDescriptionTextBox_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Len(MaterialDescriptionTextBox.Value) > 40 Then MsgBox "The material description can not exceed 40 characters", vbInformation, "Too many characters" With Me.MaterialDescriptionTextBox .SetFocus .SelStart = 0 .SelLength = Len(.Text) End With End If 

К сожалению, он ничего не делает, чтобы отобразить MsgBox.

благодаря

Вам не хватает Cancel = True . Отмена отменяет событие Exit , но любой другой код после этого все равно будет работать.

 Private Sub MaterialDescriptionTextBox_Exit(ByVal Cancel As MSForms.ReturnBoolean) If Len(MaterialDescriptionTextBox.Value) > 40 Then MsgBox "The material description can not exceed 40 characters", vbInformation, "Too many characters" Cancel = True With MaterialDescriptionTextBox .SetFocus .SelStart = 0 .SelLength = Len(.Text) End With End If End Sub 
  • Получить значения для текстового поля из ячейки Excel в C #
  • Добавление чисел с использованием форм Excel
  • Управление текстовым полем в Excel - как ссылаться в Perl
  • Текстовое поле ActiveX на листе листа Excel заменяет границу и шрифт при утрате фокуса
  • Определите номер недели, номер месяца, год с момента управления DatePicker в пользовательской форме VBA
  • Excel Noob Скопировать ячейку Excel в текстовое поле HTML
  • Написание кода / макроса Excel VBA для заполнения текстовых полей Powerpoint с значениями ячейки Excel
  • Текст текстового поля исчезает при вводе текста Excel VBA - часть 2
  • Вставить из excel в текстовое поле
  • Excel VBA - Shapes Текстовое поле OnChange событие
  • Код устранения неполадок для макросов и текстовых полей
  • Давайте будем гением компьютера.