Hoe lege of ontbrekende vermeldingen in cellen in Excel te voorkomen?
Stel dat u een tabel maakt in het bereik A1: B10 van een werkblad en u wilt voorkomen dat een lege cel in dit tabelbereik verschijnt, hoe kunt u dit bereiken? Dit artikel introduceert een methode om automatisch een promptvenster te laten verschijnen als er tijdens het bewerken een leeg item in een bepaald tabelbereik verschijnt. Volg de methode stap voor stap in het artikel.
Voorkom lege of ontbrekende vermeldingen in cellen door VBA-code te gebruiken
Voorkom lege of ontbrekende vermeldingen in cellen door VBA-code te gebruiken
A1: B10 is het bereik waarin u een tabel moet maken, en A1, B1 bevatten de kopteksten van de tabel zoals onderstaand screenshot. Ga als volgt te werk om te voorkomen dat er blanco of ontbrekende items in het bereik A2: B10 verschijnen tijdens het maken van de tabel.
1. Klik met de rechtermuisknop op de bladtab in het werkblad waarvoor u geen blanco items in een bepaald bereik toestaat en klik vervolgens op Bekijk code vanuit het rechtsklikmenu.
2. In de Microsoft Visual Basic voor toepassingen -venster, kopieer en plak de onderstaande VBA-code in het codevenster. Zie screenshot:
VBA-code: voorkom lege of ontbrekende vermeldingen in een celbereik
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: In de VBA-code is A2: B10 het cellenbereik waarin u geen lege cel wilt laten staan. Wijzig het bereik naar behoefte.
Als u vanaf nu een lege cel overslaat en de volgende cel in het opgegeven bereik direct invult, krijgt u een Kutools for Excel dialoogvenster zoals hieronder afgebeeld.
Gerelateerde artikelen:
- Hoe gegevensinvoer in specifieke cellen van een werkblad in Excel voorkomen?
- Hoe te voorkomen dat meerdere werkbladen in Excel worden geselecteerd?
- Hoe voorkom je dat een bepaald werkblad wordt verwijderd in Excel?
- Hoe voorkom je dat specifieke celinhoud in Excel wordt verwijderd?
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!