Hvordan kontrolleres, om tekstfelter i brugerform er tomme eller ikke i Excel?
Hvis du vil kontrollere, om tekstfelter i en bestemt brugerfom er tomme eller ikke i Excel, kan metoden i denne artikel hjælpe dig.
Kontroller, om tekstbokse i brugerform er tomme eller ikke med VBA-kode
Kontroller, om tekstbokse i brugerform er tomme eller ikke med VBA-kode
Nedenstående VBA-kode kan hjælpe dig med at kontrollere, om alle tekstfelter i en bestemt brugerform er tomme eller ikke i Excel. Gør som følger.
1. Tryk på andre + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. i Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Moduler. Kopier derefter under VBA-koden i kodevinduet.
VBA-kode: Kontroller, om tekstfelter i brugerform er tomme eller ikke
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
Bemærk: I koden er UserForm1 navnet på den brugerformular, som indeholder de tekstbokse, du vil kontrollere.
3. Tryk på F5 nøgle for at køre koden. Så a Microsoft Excel dialogboksen dukker op for at fortælle dig, hvilken tekstboks der er tom, og hvilken der ikke er tom, som vist nedenfor.
Relaterede artikler:
- Hvordan kontrolleres det, om det første tegn i en celle er et bogstav eller tal i Excel?
- Hvordan kontrolleres, om en celleværdi er mellem to værdier i Excel?
- Hvordan formateres en tekstboks i procent i Excel?
- Hvordan vælges tekst automatisk i en tekstboks, når den er valgt i Excel?
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!