Hoe kunt u alleen datumnotatie toestaan in specifieke cellen in Excel?

Het beperken van specifieke cellen om alleen datumnotaties toe te staan in Excel kan handig zijn om gegevensconsistentie te waarborgen. Deze handleiding introduceert twee methoden: het gebruik van de functie Gegevensvalidatie of een eenvoudige VBA-code om invoer van alleen datums af te dwingen in geselecteerde cellen.

Alleen datumnotatie toestaan in specifieke cellen met de functie Gegevensvalidatie

Alleen datumnotatie toestaan in specifieke cellen met VBA-code

Alleen datumnotatie toestaan in specifieke cellen met de functie Gegevensvalidatie

In Excel is Gegevensvalidatie een krachtige functie die u kan helpen bij het maken van een keuzelijst, het voorkomen van dubbele invoer, enz. Het kan u ook helpen voorkomen dat er andere gegevensformaten dan een datum worden ingevoerd in specifieke cellen. Volg de volgende stappen:

1. Klik op Gegevens > Gegevensvalidatie > Gegevensvalidatie, zie screenshot:

2. In het dialoogvenster Gegevensvalidatie klikt u op het tabblad Opties, en kiest u vervolgens Aangepast uit de vervolgkeuzelijst Toestaan, voer dan deze formule in: =AND(ISNUMBER(B2),LEFT(CELL("format",B2),1)="D") in het tekstvak Formule, zie screenshot:

Opmerking: In de bovenstaande formule is B2 de eerste cel van de kolom waarin u de gegevensindeling wilt beperken.

3. Klik vervolgens op het tabblad Foutmelding in het dialoogvenster en voer de volgende stappen uit:

(1.) Schakel de optie Foutmelding weergeven na het invoeren van ongeldige gegevens in;

(2.) Selecteer onder de vervolgkeuzelijst Stijl de optie Stop;

(3.) Typ de Titel en Foutmelding die u wilt weergeven in het pop-upvenster.

4. Nadat u de instellingen hebt voltooid, klikt u op de knop OK, en nu, wanneer u gegevens invoert die niet in een geldige datumnotatie zijn, verschijnt er een pop-upvenster om u te verwittigen zoals in de volgende schermafbeelding wordt getoond:

Alleen datumnotatie toestaan in specifieke cellen met VBA-code

De tweede methode introduceert een VBA-code om deze taak uit te voeren.

1. Activeer het werkblad dat u wilt gebruiken.

2. Klik vervolgens met de rechtermuisknop op het bladtabblad en selecteer Weergave Code uit het contextmenu, zie screenshot:

3. Plak in het venster Microsoft Visual Basic for Applications dat wordt weergegeven, de onderstaande code in de Module, zie screenshot:

VBA-code: Alleen datumnotatie invoeren in specifieke cellen:

Private Sub Worksheet_Change(ByVal Target As Range)
'updateby Extendoffice
Set w = ActiveSheet.Range("B2:B12")
For Each c In w
If c.Value <> "" And Not IsDate(c) Then
c.ClearContents
MsgBox "Only a date format is permitted in this cell."
End If
Next c
End Sub

4. Sla de code op en sluit deze. Nu, wanneer u een waarde invoert die niet in datumnotatie is in het bereik B2:B12, verschijnt er een pop-upvenster om u te herinneren, en de celwaarde wordt tegelijkertijd gewist, zie screenshot: