Kako preprečiti prazne ali manjkajoče vnose v celicah v Excelu?

Recimo, da ustvarjate tabelo v obsegu A1: B10 delovnega lista in morate preprečiti pojav prazne celice v tem obsegu tabel, kako to doseči? Ta članek uvaja metodo za samodejno pojavno okno z pozivi, če se med urejanjem v določenem obsegu tabel pojavi prazen vnos. Prosimo, sledite metodi korak za korakom v članku.

S kodo VBA preprečite prazne ali manjkajoče vnose v celicah

S kodo VBA preprečite prazne ali manjkajoče vnose v celicah

A1: B10 je obseg, v katerem morate v notranjosti ustvariti tabelo, A1, B1 pa vsebuje glave tabele, kot je prikazano na spodnji sliki zaslona. Naredite naslednje, da med ustvarjanjem tabele preprečite, da se v območju A2: B10 pojavijo prazni ali manjkajoči vnosi.

1. Na delovnem listu, ki ne dovoli praznih vnosov v določenem obsegu, z desno miškino tipko kliknite jeziček lista in nato kliknite Ogled kode v meniju z desnim klikom.

2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kopirajte in prilepite spodnjo kodo VBA v okno Code. Oglejte si posnetek zaslona:

Koda VBA: preprečite prazne ali manjkajoče vnose v vrsti celic

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

Opombe: V kodi VBA je A2: B10 obseg celic, za katere ne želite, da v njih ostane prazna celica. Spremenite obseg, kot ga potrebujete.

Od zdaj naprej, ko preskočite prazno celico in neposredno izpolnite naslednjo celico v določenem obsegu, boste dobili Kutools za Excel pogovorno okno, kot je prikazano spodaj.

Sorodni članki:

• Kako preprečiti vnos podatkov v določene celice delovnega lista v Excelu?
• Kako preprečiti izbiro več delovnih listov v Excelu?
• Kako preprečiti brisanje določenega delovnega lista v Excelu?
• Kako preprečiti brisanje določene vsebine celic v Excelu?