Як автоматично вибрати текст текстового поля, коли він виділений в Excel?
Для видалення текстів у текстовому полі (ActiveX Control), по-перше, потрібно виділити всі тексти всередині текстового поля. У цій статті йдеться про автоматичний вибір усіх текстів текстового поля при натисканні на текстове поле в Excel.
Автоматичний вибір тексту текстового поля, коли він виділений за допомогою коду VBA
Автоматичний вибір тексту текстового поля, коли він виділений за допомогою коду VBA
Будь ласка, застосуйте наведений нижче код VBA, щоб автоматично вибирати всі тексти текстового поля під час вибору текстового поля в Excel.
1. Якщо робочий аркуш містить текстове поле, ви зробите його тексти автоматично вибраними, увімкніть режим дизайну, натиснувши Розробник > Режим дизайну. Дивіться знімок екрана:
Або ви також можете вставити текстове поле, клацнувши Розробник > Insert > Текстове поле (керування ActiveX). Дивіться знімок екрана:
2. Клацніть правою кнопкою миші текстове поле та клацніть Переглянути код з контекстного меню. Дивіться знімок екрана:
3. На відкритті Microsoft Visual Basic для додатків вікно, замініть оригінальний код 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 Sub4 Натисніть кнопку інший + Q клавіші для виходу з Microsoft Visual Basic для додатків вікна.
5. Вимкніть режим дизайну.
Відтепер, при натисканні на текстове поле, усі тексти всередині текстового поля будуть виділятися автоматично.
Статті по темі:
- Як автозавершити текстове поле під час набору тексту в Excel?
- Як очистити вміст текстового поля при натисканні в Excel?
- Як об’єднати тексти декількох комірок у текстове поле в Excel?
- Як вимкнути редагування в текстовому полі, щоб запобігти введенню користувачем в Excel?
- Як відформатувати текстове поле у відсотках у Excel?
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
