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
Note: 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?
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!