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
Poznámka: 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?
Nejlepší nástroje pro produktivitu v kanceláři
Rozšiřte své dovednosti Excel pomocí Kutools pro Excel a zažijte efektivitu jako nikdy předtím. Kutools for Excel nabízí více než 300 pokročilých funkcí pro zvýšení produktivity a úsporu času. Kliknutím sem získáte funkci, kterou nejvíce potřebujete...
Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci
- Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
- Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
- Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
