Hur förhindrar jag tomma eller saknade poster i celler i Excel?

Om du skapar en tabell i intervallet A1:B10 i ett kalkylblad och vill säkerställa att inga tomma celler finns kvar i detta intervall, kan du implementera en lösning som automatiskt visar en prompt om en tom post upptäcks under redigering. Följ denna steg-för-steg-guide för att förhindra tomma eller saknade poster i det angivna tabellintervallet.

Förhindra tomma eller saknade poster i celler med hjälp av VBA-kod

Förhindra tomma eller saknade poster i celler med hjälp av VBA-kod

Området A1:B10 är avsett för ditt bord, med A1 och B1 som tabellrubriker, som visas i skärmdumpen nedan. Följ stegen som beskrivs för att förhindra tomma eller saknade poster inom intervallet A2:B10 när du fyller i tabellen.

1. I kalkylbladet där du vill förhindra tomma poster i ett visst intervall högerklickar du på arkfliken och klickar sedan på Visa kod från högerklickmenyn.

2. I Microsoft Visual Basic för applikationer kopiera och klistra in nedanstående VBA-kod i kodfönstret. Se skärmdump:

VBA-kod: Förhindra tomma eller saknade poster i ett cellområde

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

Anmärkningar: I VBA-koden, A2: B10 är intervallet av celler som du inte vill lämna tomma celler inuti. Vänligen ändra intervallet efter behov.

Från och med nu, om du hoppar över en tom cell och fyller i nästa cell i det angivna intervallet, a Kutools för Excel dialogrutan visas som visas nedan.

Relaterade artiklar:

• Hur förhindrar jag datainmatning i specifika celler i ett kalkylblad i Excel?
• Hur förhindrar man val av flera kalkylblad i Excel?
• Hur kan man förhindra att ett visst kalkylblad raderas i Excel?
• Hur förhindrar man att specifikt cellinnehåll raderas i Excel?