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?