Как да изберете автоматично текст на текстово поле, когато е избрано в Excel?
За да изтриете текстове в текстово поле (ActiveX Control), първо трябва да изберете всички текстове в текстовото поле. Тази статия говори за автоматично избиране на всички текстове на текстово поле, когато щракнете върху текстовото поле в Excel.
Автоматично избиране на текст на текстово поле, когато е избрано с VBA код
Автоматично избиране на текст на текстово поле, когато е избрано с VBA код
Моля, приложете кода на VBA по-долу, за да изберете автоматично всички текстове на текстово поле, когато изберете текстовото поле в Excel.
1. Ако работен лист съдържа текстовото поле, текстовете му ще бъдат избрани автоматично, моля, включете режима за проектиране, като щракнете върху Софтуерен Инженер > Режим на проектиране. Вижте екранна снимка:
Или можете също да вмъкнете текстово поле, като щракнете Софтуерен Инженер > Поставете > Текстово поле (ActiveX Control). Вижте екранна снимка:
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% и намалява стотици кликвания на мишката за вас всеки ден!
