Jak zapobiec pustym lub brakującym wpisom w komórkach w programie Excel?

Przypuśćmy, że tworzysz tabelę w zakresie A1: B10 arkusza i chcesz zapobiec pojawianiu się pustej komórki w tym zakresie tabeli, jak to osiągnąć? W tym artykule przedstawiono metodę automatycznego wyświetlania okienka zachęty, jeśli podczas edycji w pewnym zakresie tabeli pojawi się pusty wpis. Postępuj zgodnie z metodą krok po kroku opisaną w artykule.

Zapobiegaj pustym lub brakującym wpisom w komórkach za pomocą kodu VBA

---

Zapobiegaj pustym lub brakującym wpisom w komórkach za pomocą kodu VBA

A1: B10 to zakres, w którym musisz utworzyć tabelę w środku, a A1, B1 zawierają nagłówki tabeli, jak pokazano poniżej. Wykonaj następujące czynności, aby zapobiec pojawianiu się pustych lub brakujących wpisów w zakresie A2: B10 podczas tworzenia tabeli.

1. W arkuszu, w którym nie będzie dozwolone puste wpisy w pewnym zakresie, kliknij prawym przyciskiem myszy kartę arkusza, a następnie kliknij Wyświetl kod z menu po kliknięciu prawym przyciskiem myszy.

2. w Microsoft Visual Basic for Applications okno, skopiuj i wklej poniższy kod VBA do okna Code. Zobacz zrzut ekranu:

Kod VBA: zapobiegaj pustym lub brakującym wpisom w zakresie komórek

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

Uwagi: W kodzie VBA A2: B10 to zakres komórek, w których nie chcesz zostawiać pustych komórek. Zmień zakres według potrzeb.

Odtąd, pomijając pustą komórkę i wypełniając bezpośrednio następną komórkę w określonym zakresie, otrzymasz plik Kutools dla programu Excel okno dialogowe, jak pokazano na poniższym zrzucie ekranu.

---

Powiązane artykuły:

• Jak zapobiec wprowadzaniu danych do określonych komórek arkusza kalkulacyjnego w programie Excel?
• Jak zapobiec wybieraniu wielu arkuszy w programie Excel?
• Jak zapobiec usunięciu określonego arkusza roboczego w programie Excel?
• Jak zapobiec usunięciu określonej zawartości komórki w programie Excel?