Como verificar se as caixas de texto no formulário do usuário estão vazias ou não no Excel?
Se você deseja verificar se as caixas de texto em um userfom especificado estão vazias ou não no Excel, o método neste artigo pode ajudá-lo.
Verifique se as caixas de texto no formulário do usuário estão vazias ou não com o código VBA
Verifique se as caixas de texto no formulário do usuário estão vazias ou não com o código VBA
O código VBA abaixo pode ajudá-lo a verificar se todas as caixas de texto em um formulário de usuário especificado estão vazias ou não no Excel. Faça o seguinte.
1. aperte o outro + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.
2. No Microsoft Visual Basic para Aplicações janela, clique em inserção > Módulo. Em seguida, copie o código VBA abaixo para a janela de código.
Código VBA: Verifique se as caixas de texto no formulário do usuário estão vazias ou não
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: No código, UserForm1 é o nome do formulário do usuário que contém as caixas de texto que você verificará.
3. aperte o F5 chave para executar o código. Então uma Microsoft Excel A caixa de diálogo aparece para informar qual caixa de texto está vazia e qual não está vazia, como mostrado na imagem abaixo.
Artigos relacionados:
- Como verificar se o primeiro caractere em uma célula é uma letra ou número no Excel?
- Como verificar se um valor de célula está entre dois valores no Excel?
- Como formatar uma caixa de texto como porcentagem no Excel?
- Como selecionar automaticamente o texto de uma caixa de texto quando ela é selecionada no Excel?
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!