Как да проверя дали текстовите полета в потребителския формуляр са празни или не в Excel?
Ако искате да проверите дали текстовите полета в даден потребител са празни или не в Excel, методът в тази статия може да ви помогне.
Проверете дали текстовите полета в потребителския формуляр са празни или не с VBA код
Проверете дали текстовите полета в потребителския формуляр са празни или не с VBA код
Кодът VBA по-долу може да ви помогне да проверите дали всички текстови полета в определен потребителски формуляр са празни или не в Excel. Моля, направете следното.
1. Натисни Друг + F11 за да отворите Microsoft Visual Basic за приложения прозорец.
2. В Microsoft Visual Basic за приложения прозорец, кликнете Поставете > Модули. След това копирайте по-долу VBA кода в прозореца на кода.
VBA код: Проверете дали текстовите полета в потребителския формуляр са празни или не
Sub CheckTextBox()
Dim fTextBox As Object
Dim xTxtName As String
Dim xEptTxtName As String
For Each fTextBox In UserForm1.Controls
If TypeName(fTextBox) = "TextBox" Then
If fTextBox.Text = "" Then
xEptTxtName = xEptTxtName & fTextBox.Name & " is empty" & vbNewLine
Else
xTxtName = xTxtName & fTextBox.Name & " is not empty" & vbNewLine
End If
End If
Next
If xEptTxtName <> "" Or xTxtName <> "" Then
MsgBox xEptTxtName & vbNewLine & xTxtName
End If
End Sub
Забележка: В кода UserForm1 е името на потребителската форма, която съдържа текстовите полета, които ще проверите.
3. Натисни F5 ключ за изпълнение на кода. Тогава Microsoft Excel изскача диалогов прозорец, за да ви каже кое текстово поле е празно и кое не е празно, както е показано на екранната снимка по-долу.
Още по темата:
- Как да проверя дали първият знак в клетка е буква или цифра в Excel?
- Как да проверя дали стойността на клетка е между две стойности в Excel?
- Как да форматирам текстово поле като процент в Excel?
- Как да изберете автоматично текст на текстово поле, когато е избрано в Excel?
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!