Cum să verificați dacă casetele text din formularul de utilizator sunt goale sau nu în Excel?
Dacă doriți să verificați dacă casetele text dintr-un anumit userfom sunt goale sau nu în Excel, metoda din acest articol vă poate ajuta.
Verificați dacă casetele text din formularul de utilizator sunt goale sau nu cu codul VBA
Verificați dacă casetele text din formularul de utilizator sunt goale sau nu cu codul VBA
Codul VBA de mai jos vă poate ajuta să verificați dacă toate casetele de text dintr-o formă de utilizator specificată sunt goale sau nu în Excel. Vă rugăm să faceți următoarele.
1. apasă pe Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. În Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe Insera > Module. Apoi copiați mai jos codul VBA în fereastra codului.
Cod VBA: verificați dacă casetele text din formularul de utilizator sunt goale sau nu
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
notițe: În cod, UserForm1 este numele formei de utilizator care conține casetele text pe care le veți verifica.
3. apasă pe F5 tasta pentru a rula codul. Apoi o Microsoft Excel se afișează caseta de dialog pentru a vă spune care casetă de text este goală și care nu este goală, după cum se arată mai jos.
Legate de articole:
- Cum să verificați dacă primul caracter dintr-o celulă este o literă sau un număr în Excel?
- Cum să verificați dacă o valoare a celulei este între două valori în Excel?
- Cum să formatați o casetă text ca procent în Excel?
- Cum se selectează automat textul unei casete de text când este selectat în Excel?
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!