Hogyan ellenőrizhető, hogy a felhasználói formátumú szövegdobozok üresek-e vagy sem az Excelben?
Ha szeretné ellenőrizni, hogy a megadott userfom szövegdobozai üresek-e vagy sem az Excelben, akkor a cikkben szereplő módszer segíthet.
Ellenőrizze, hogy a felhasználói formátumú szövegdobozok üresek-e vagy sem VBA kóddal
Ellenőrizze, hogy a felhasználói formátumú szövegdobozok üresek-e vagy sem VBA kóddal
Az alábbi VBA-kód segíthet annak ellenőrzésében, hogy a megadott felhasználói űrlap összes szövegdoboza üres-e vagy sem az Excelben. Kérjük, tegye a következőket.
1. megnyomni a más + F11 billentyűk megnyitásához Microsoft Visual Basic for Applications ablak.
2. Ban,-ben Microsoft Visual Basic for Applications ablakban kattintson betétlap > Modulok. Ezután másolja a VBA kód alatt a kód ablakba.
VBA kód: Ellenőrizze, hogy a felhasználói űrlap mezői üresek-e vagy sem
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
Megjegyzések: A kódban a UserForm1 annak a felhasználói űrlapnak a neve, amely tartalmazza az ellenőrizni kívánt szövegdobozokat.
3. megnyomni a F5 gombot a kód futtatásához. Aztán a Microsoft Excel megjelenik a párbeszédpanel, amely megmondja, melyik szövegdoboz üres, és melyik nem üres, ahogy az alábbi képernyőképen látható.
Kapcsolódó cikkek:
- Hogyan ellenőrizhető, hogy a cella első karaktere betű vagy szám-e az Excelben?
- Hogyan ellenőrizhető, hogy a cella értéke két érték között van-e az Excelben?
- Hogyan formázzuk a szövegmezőt százalékban az Excelben?
- Hogyan válasszuk ki automatikusan a szövegdoboz szövegét, ha az Excelben van kiválasztva?
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!