¿Cómo verificar si los cuadros de texto en el formulario de usuario están vacíos o no en Excel?
Si desea verificar si los cuadros de texto en un userfom específico están vacíos o no en Excel, el método de este artículo puede ayudarlo.
Verifique si los cuadros de texto en el formulario de usuario están vacíos o no con el código VBA
Verifique si los cuadros de texto en el formulario de usuario están vacíos o no con el código VBA
El siguiente código de VBA puede ayudarlo a verificar si todos los cuadros de texto en un formulario de usuario específico están vacíos o no en Excel. Haz lo siguiente.
1. presione el otro + F11 teclas para abrir el Microsoft Visual Basic para aplicaciones ventana.
2. En el Microsoft Visual Basic para aplicaciones ventana, haga clic recuadro > Módulo. Luego copie el código de VBA a continuación en la ventana de código.
Código de VBA: compruebe si los cuadros de texto en el formulario de usuario están vacíos o no
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
Note: En el código, UserForm1 es el nombre del formulario de usuario que contiene los cuadros de texto que verificará.
3. presione el F5 clave para ejecutar el código. Entonces un Microsoft Excel Aparece un cuadro de diálogo para indicarle qué cuadro de texto está vacío y cuál no, como se muestra a continuación.
Artículos relacionados:
- ¿Cómo verificar si el primer carácter de una celda es una letra o un número en Excel?
- ¿Cómo verificar si un valor de celda está entre dos valores en Excel?
- ¿Cómo formatear un cuadro de texto como porcentaje en Excel?
- ¿Cómo seleccionar automáticamente el texto de un cuadro de texto cuando está seleccionado en Excel?
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!