Jak zkontrolovat, zda jsou textová pole v userform prázdná nebo nejsou v aplikaci Excel?
Pokud chcete zkontrolovat, zda jsou textová pole v zadaném userfom prázdná nebo ne v aplikaci Excel, může vám pomoci metoda v tomto článku.
Zkontrolujte, zda jsou textová pole v userform prázdná nebo ne s kódem VBA
Zkontrolujte, zda jsou textová pole v userform prázdná nebo ne s kódem VBA
Níže uvedený kód VBA vám pomůže zkontrolovat, zda jsou všechna textová pole v zadaném uživatelském formuláři prázdná nebo nejsou v aplikaci Excel. Postupujte prosím následovně.
1. zmáčkni Další + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.
2. V Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modul. Poté zkopírujte níže uvedený kód VBA do okna kódu.
Kód VBA: Zkontrolujte, zda jsou textová pole v userform prázdná nebo ne
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 SubPoznámka: V kódu je UserForm1 název uživatelského formuláře, který obsahuje textová pole, která budete kontrolovat.
3. zmáčkni F5 klíč ke spuštění kódu. Pak Microsoft Excel zobrazí se dialogové okno, které vám řekne, které textové pole je prázdné a které není prázdné, jak je znázorněno na obrázku níže.
Související články:
- Jak zkontrolovat, zda je prvním znakem v buňce písmeno nebo číslo v aplikaci Excel?
- Jak zkontrolovat, zda je hodnota buňky mezi dvěma hodnotami v aplikaci Excel?
- Jak formátovat textové pole jako procento v aplikaci Excel?
- Jak automaticky vybrat text textového pole, když je vybrán v aplikaci Excel?
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
