Jak zabránit prázdným nebo chybějícím položkám v buňkách v aplikaci Excel?

Předpokládejme, že vytváříte tabulku v rozsahu A1: B10 listu a potřebujete zabránit tomu, aby se v této tabulce objevila prázdná buňka, jak toho dosáhnout? Tento článek zavádí metodu automatického vyskakovacího okna, pokud se při úpravách v určité oblasti tabulky objeví prázdná položka. Postupujte podle metody krok za krokem v článku.

Zabraňte prázdným nebo chybějícím položkám v buňkách pomocí kódu VBA

Zabraňte prázdným nebo chybějícím položkám v buňkách pomocí kódu VBA

A1: B10 je rozsah, ve kterém musíte vytvořit tabulku uvnitř, a A1, B1 obsahují záhlaví tabulky, jak je ukázáno níže. Chcete-li zabránit vytváření prázdných nebo chybějících položek v rozsahu A2: B10 při vytváření tabulky, postupujte následovně.

1. V listu, který v určitém rozsahu nepovolíte prázdné položky, klikněte pravým tlačítkem na kartu listu a poté klikněte na Zobrazit kód z nabídky pravého tlačítka myši.

2. V Microsoft Visual Basic pro aplikace zkopírujte a vložte níže uvedený kód VBA do okna Kód. Viz screenshot:

Kód VBA: Zabraňte prázdným nebo chybějícím položkám v řadě buněk

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

Pozor: V kódu VBA je A2: B10 rozsah buněk, ve kterých nechcete nechat žádnou prázdnou buňku. Změňte rozsah podle potřeby.

Od této chvíle, když přeskočíte prázdnou buňku a vyplníte přímo další buňku ve specifikovaném rozsahu, dostanete a Kutools pro Excel zobrazeno dialogové okno níže.

Související články:

• Jak zabránit vstupu dat do konkrétních buněk listu v aplikaci Excel?
• Jak zabránit výběru více listů v aplikaci Excel?
• Jak zabránit odstranění určitého listu v aplikaci Excel?
• Jak zabránit odstranění konkrétního obsahu buněk v aplikaci Excel?