Hoe controleer ik of tekstvakken in gebruikersformulier leeg zijn of niet in Excel?
Als u wilt controleren of tekstvakken in een gespecificeerde gebruikerslijst leeg zijn of niet in Excel, kan de methode in dit artikel u helpen.
Controleer of tekstvakken in gebruikersformulier leeg zijn of niet met VBA-code
Controleer of tekstvakken in gebruikersformulier leeg zijn of niet met VBA-code
De onderstaande VBA-code kan u helpen om te controleren of alle tekstvakken in een opgegeven gebruikersformulier leeg zijn of niet in Excel. Ga als volgt te werk.
1. druk de anders + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.
2. In de Microsoft Visual Basic voor toepassingen venster klikt Invoegen > Module. Kopieer vervolgens onderstaande VBA-code naar het codevenster.
VBA-code: controleer of tekstvakken in gebruikersformulier leeg zijn of niet
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: In de code is UserForm1 de naam van het gebruikersformulier dat de tekstvakken bevat die u wilt controleren.
3. druk de F5 sleutel om de code uit te voeren. Dan een Microsoft Excel Er verschijnt een dialoogvenster om u te vertellen welk tekstvak leeg is en welk tekstvak niet leeg is, zoals hieronder afgebeeld.
Gerelateerde artikelen:
- Hoe controleer ik of het eerste teken in een cel een letter of cijfer is in Excel?
- Hoe controleer ik of een celwaarde zich tussen twee waarden in Excel bevindt?
- Hoe een tekstvak opmaken als een percentage in Excel?
- Hoe automatisch tekst van een tekstvak selecteren wanneer deze is geselecteerd in Excel?
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!