Как автоматически выделить текст текстового поля при его выборе в Excel?

Для удаления текста в текстовом поле (ActiveX Control) сначала необходимо выделить весь текст внутри текстового поля. В этой статье рассказывается о том, как автоматически выделять весь текст текстового поля при нажатии на него в Excel.

Автоматическое выделение текста текстового поля при его выборе с помощью кода VBA

Автоматическое выделение текста текстового поля при его выборе с помощью кода VBA

Пожалуйста, примените следующий код VBA для автоматического выделения всего текста текстового поля при его выборе в Excel.

1. Для листа, содержащего текстовое поле, в котором вы хотите сделать текст автоматически выделенным, пожалуйста, включите Режим конструктора, нажав Разработчик > Режим конструктора. См. скриншот:

Или вы также можете вставить текстовое поле, нажав Разработчик > Вставить > Текстовое поле (ActiveX Control). См. скриншот:

2. Щелкните правой кнопкой мыши по текстовому полю и выберите Просмотр кода из контекстного меню. См. скриншот:

3. В открывшемся окне Microsoft Visual Basic for Applications, пожалуйста, замените исходный код VBA в окне Код на следующий код VBA.

Код VBA: Автоматическое выделение текста текстового поля при нажатии на него

Private Sub TextBox1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, _
ByVal X As Single, ByVal Y As Single)
    Call SelTextBox(Me.TextBox1.Object)
End Sub

Sub SelTextBox(xTextBox As Object)
    With xTextBox
        .SelStart = 0
        .SelLength = Len(.Text)
    End With
End Sub

Примечания:

1. В коде TextBox1 — это имя текстового поля, из которого вы будете очищать содержимое. Пожалуйста, измените его на своё собственное.

2. Для автоматического выделения текста нескольких текстовых полей при нажатии на них добавьте следующий код VBA между двумя разделами вышеуказанного кода. И измените TextBox2 на имя нужного вам текстового поля.

Private Sub TextBox2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Call SelTextBox(Me.TextBox2.Object)
End Sub

4. Нажмите клавиши Alt + Q, чтобы выйти из окна Microsoft Visual Basic for Applications.

5. Выключите Режим конструктора.

С этого момента при нажатии на текстовое поле весь текст внутри него будет выделяться автоматически.

Раскройте магию Excel с Kutools AI

• Умное выполнение: Выполняйте операции с ячейками, анализируйте данные и создавайте диаграммы — всё это посредством простых команд.
• Пользовательские формулы: Создавайте индивидуальные формулы для оптимизации ваших рабочих процессов.
• Кодирование VBA: Пишите и внедряйте код VBA без особых усилий.
• Интерпретация формул: Легко разбирайтесь в сложных формулах.
• Перевод текста: Преодолейте языковые барьеры в ваших таблицах.

Улучшите возможности Excel с помощью инструментов на базе ИИ. Скачать сейчас и испытайте беспрецедентную эффективность!

Связанные статьи:

• Как автозаполнить текстовое поле при вводе в Excel?
• Как очистить содержимое текстового поля при нажатии в Excel?
• Как объединить тексты нескольких ячеек в текстовое поле в Excel?
• Как отключить редактирование в текстовом поле, чтобы предотвратить ввод данных пользователем в Excel?
• Как отформатировать текстовое поле в процентах в Excel?