Hur förhindrar jag tomma eller saknade poster i celler i Excel?
Antar att du skapar en tabell i intervallet A1: B10 i ett kalkylblad och behöver förhindra att tom cell visas i detta tabellområde, hur uppnår du det? Den här artikeln introducerar en metod för att automatiskt dyka upp snabbrutan om tom post visas i ett visst tabellintervall under redigering. Följ metoden steg för steg i artikeln.
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
A1: B10 är det område där du behöver skapa en tabell inuti, och A1, B1 innehåller rubrikerna i tabellen som visas nedan. Gör så här för att förhindra att tomma eller saknade poster visas i intervallet A2: B10 när du skapar tabellen.
1. I kalkylbladet som du inte tillåter 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 är A2: B10 det cellområde som du inte vill lämna någon tom cell inuti. Ändra intervallet efter behov.
Från och med nu, när du hoppar över tom cell och fyller i nästa cell i det angivna intervallet direkt, får du en Kutools för Excel dialogrutan 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?
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!