Hogyan lehet megakadályozni az üres vagy hiányzó bejegyzéseket az Excel celláiban?
Tegyük fel, hogy egy táblázatot hoz létre egy munkalap A1: B10 tartományába, és meg kell akadályozni, hogy üres cellák jelenjenek meg ebben a táblázattartományban, hogyan lehet elérni? Ez a cikk egy módszert mutat be, amely automatikusan megjeleníti a felszólító mezőt, ha a szerkesztés során egy adott táblázattartományban üres bejegyzés jelenik meg. Kérjük, kövesse a módszert lépésről lépésre a cikkben.
A VBA kód használatával megakadályozhatja az üres vagy hiányzó bejegyzéseket a cellákban
A VBA kód használatával megakadályozhatja az üres vagy hiányzó bejegyzéseket a cellákban
A1: A B10 az a tartomány, ahol belül táblázatot kell létrehoznia, az A1, B1 pedig a táblázat fejlécét tartalmazza, az alábbi képernyőképen. Kérjük, tegye a következőket, hogy a táblázat létrehozása közben ne jelenjen meg üres vagy hiányzó bejegyzés az A2: B10 tartományban.
1. A munkalapon, amelynél bizonyos tartományokban nem engedélyezhet üres bejegyzéseket, kattintson a jobb gombbal a lap fülre, majd kattintson a gombra Kód megtekintése a jobb egérgombbal kattintva.
2. Ban,-ben Microsoft Visual Basic for Applications ablakba másolja és illessze be az alábbi VBA kódot a Kód ablakba. Lásd a képernyőképet:
VBA-kód: megakadályozza az üres vagy hiányzó bejegyzéseket egy cellatartományban
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count <> 1 Then Exit Sub
Dim isect As Range
On Error Resume Next
Set isect = Application.Intersect(Target, Range("A2:B10"))
If Not (isect Is Nothing) Then
If Target.Column = 1 Then
If Len(Target.Value) > 0 And Len(Target.Offset(-1, 0).Value) = 0 Then
MsgBox "You cannot skip a row in column A2:B10", vbInformation, "Kutools for Excel"
Target.ClearContents
End If
Else
If (Len(Target.Value) > 0 And Len(Target.Offset(-1, 0).Value) = 0) Or (Len(Target.Value) > 0 And Len(Target.Offset(0, -1).Value) = 0) Then
MsgBox "You cannot skip a row in column A2:B10", vbInformation, "Kutools for Excel"
Target.ClearContents
End If
End If
End If
End Sub
Megjegyzések: A VBA kódban az A2: B10 az a cellák tartománya, amelyekben nem akar üres cellát hagyni. Kérjük, változtassa meg a tartományt, ha szükséges.
Mostantól kezdve, amikor kihagy egy üres cellát, és közvetlenül kitölti a megadott tartomány következő celláját, akkor a Kutools az Excel számára párbeszédpanel az alábbi képernyőképen látható.
Kapcsolódó cikkek:
- Hogyan lehet megakadályozni az Excel munkalap egyes celláiba történő adatbevitelt?
- Hogyan lehet megakadályozni több munkalap kiválasztását az Excel programban?
- Hogyan lehet megakadályozni egy bizonyos munkalap törlését az Excelben?
- Hogyan lehet megakadályozni, hogy bizonyos cellatartalmak törlődjenek az Excel programban?
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!