Ga naar hoofdinhoud

Hoe kan ik alleen datumnotatie toestaan ​​in specifieke cellen?

Hoe kon je een lijst met cellen beperken om alleen datumnotatie in Excel-werkblad in te voeren? In dit artikel zal ik enkele interessante trucs bespreken om met deze baan om te gaan.

Sta alleen datumnotatie toe in specifieke cellen met de functie Gegevensvalidatie

Sta alleen datumnotatie toe in specifieke cellen met VBA-code

pijl blauw rechts bel Sta alleen datumnotatie toe in specifieke cellen met de functie Gegevensvalidatie

In Excel is het Data Validation is een krachtige functie die u kan helpen bij het maken van vervolgkeuzelijsten, om dubbele invoer te voorkomen, enz. Het kan u ook helpen om te voorkomen dat u andere gegevensformaten invoert, maar alleen datumnotaties in specifieke cellen. Voer de volgende stappen uit:

1. Klikken Data > Data Validation > Data Validation, zie screenshot:

doc toestaan ​​datum 1

2. In de Data Validation dialoogvenster, klik Instellingen tabblad en kies vervolgens Eigen van het Allow vervolgkeuzelijst en voer deze formule in: = EN (ISNUMBER (B2), LINKS (CEL ("format", B2), 1) = "D") in de Formule tekstvak, zie screenshot:

doc toestaan ​​datum 2

Note: In de bovenstaande formule, B2 is de eerste cel van de kolom waarvan u het gegevensformaat wilt beperken.

doc toestaan ​​datum 3

3. Blijf dan klikken Foutmelding tab in het dialoogvenster, voer dan de volgende bewerkingen uit:

(1.) Controleer Toon foutmelding nadat ongeldige gegevens zijn ingevoerd keuze;

(2.) Onder de Style vervolgkeuzelijst, selecteer alstublieft stop keuze;

(3.) Typ het Titel en Screenshot van je foutmelding die u wilt weergeven in het promptvenster.

4. Klik na het voltooien van de instellingen op OK knop, en nu, wanneer u de gegevens invoert die niet de echte datumnotatie zijn, verschijnt er een promptvenster om u eraan te herinneren dat het volgende screenshot wordt getoond:

doc toestaan ​​datum 4

pijl blauw rechts bel Sta alleen datumnotatie toe in specifieke cellen met VBA-code

De tweede methode, ik zal een VBA-code voor je introduceren.

1. Activeer het werkblad dat u wilt gebruiken.

2. Klik vervolgens met de rechtermuisknop op de bladtab en selecteer Bekijk code zie screenshot vanuit het contextmenu:

doc toestaan ​​datum 5

3. In het weergegeven Microsoft Visual Basic voor toepassingen -venster, kopieer en plak de onderstaande code in het Module, zie screenshot:

VBA-code: laat alleen datumnotatie toe 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

doc toestaan ​​datum 6

4. Sla vervolgens de advertentie op en sluit de code, nu, wanneer u de waarde invoert die geen datumnotatie is in het bereik B2: B12, verschijnt er een promptvenster om u eraan te herinneren en wordt de celwaarde tegelijkertijd gewist, zie screenshot:

doc toestaan ​​datum 7

Beste Office-productiviteitstools

🤖 Kutools AI-assistent: Een revolutie teweegbrengen in de data-analyse op basis van: Intelligente uitvoering   |  Genereer code  |  Aangepaste formules maken  |  Analyseer gegevens en genereer grafieken  |  Roep Kutools-functies aan...
Populaire functies: Zoek, markeer of identificeer duplicaten   |  Verwijder lege rijen   |  Combineer kolommen of cellen zonder gegevens te verliezen   |   Ronde zonder formule ...
Super opzoeken: Meerdere criteria VLookup  |   VLookup met meerdere waarden  |   VOpzoeken over meerdere bladen   |   Fuzzy opzoeken ....
Geavanceerde vervolgkeuzelijst: Maak snel een vervolgkeuzelijst   |  Afhankelijke vervolgkeuzelijst   |  Multi-select vervolgkeuzelijst ....
Kolom Beheerder: Voeg een specifiek aantal kolommen toe  |  Kolommen verplaatsen  |  Schakel de zichtbaarheidsstatus van verborgen kolommen in  |  Vergelijk bereiken en kolommen ...
Uitgelichte functies: Raster focus   |  Ontwerpweergave   |   Grote formulebalk   |  Werkmap- en bladbeheer   |  resource Library (Auto-tekst)   |  Datumkiezer   |  Combineer werkbladen   |  Cellen coderen/decoderen   |  Stuur e-mails per lijst   |  Super filter   |   Speciaal filter (filter vet/cursief/doorhalen...) ...
Top 15 gereedschapsets:  12 Tekst Tools (toe te voegen tekst, Tekens verwijderen, ...)   |   50+ tabel Types (Gantt Chart, ...)   |   40+ Praktisch Formules (Bereken leeftijd op basis van verjaardag, ...)   |   19 Invoeging Tools (QR-code invoegen, Afbeelding invoegen vanaf pad, ...)   |   12 Camper ombouw Tools (Getallen naar woorden, Currency Conversion, ...)   |   7 Samenvoegen en splitsen Tools (Geavanceerd Combineer rijen, Gespleten cellen, ...)   |   ... en meer

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...

Omschrijving

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!

 

Comments (11)
No ratings yet. Be the first to rate!
CATALINA
CATALINA
This comment was minimized by the moderator on the site
Buenos dias

Estoy utilizando la formula en la validación de datos pero no me deja ingresar ningún formato de fecha, me puede explicar por favor

Muchas gracias
Reply
0
0
Ramesh Tiwari
Ramesh Tiwari
This comment was minimized by the moderator on the site
Hi I want to restrict the Date Format in DD.MM.YYYY in excel
May please suggest
Reply
0
0
skyyang
skyyang     Ramesh Tiwari
This comment was minimized by the moderator on the site
Hello, Ramesh
To restrict the Date Format in DD.MM.YYYY, you can apply the below code:
Note: Please change the cell reference B2:B12 to your own list of cell.
Private Sub Worksheet_Change(ByVal Target As Range)
'updateby Extendoffice
    On Error Resume Next
    
    Dim Bool As Boolean
    Dim Rg As Range
    Dim xRegEx As Object
    
    Bool = False

    Set Rg = Application.Intersect(Target, ActiveSheet.Range("B2:B12"))
    If Rg Is Nothing Then Exit Sub

    Set xRegEx = CreateObject("VBSCRIPT.REGEXP")
    With xRegEx
        .Pattern = "^[0-3]\d\.[0-1][0-2]\.\d{4}$"
        .Global = True
        .IgnoreCase = True
    End With
    
    Application.EnableEvents = False
    For Each c In Target
        If c.Value <> "" Then
            If Not xRegEx.test(c.Text) Then
                c.ClearContents
                Bool = True
            End If
        End If
    Next c
    Application.EnableEvents = True
    If Bool Then
        MsgBox "Error date format."
    End If
End Sub


Please have a try, hope it can help you!
Reply
Report
0
0
Bart
Bart
This comment was minimized by the moderator on the site
Hello,Sorry for refreshing, the code works very nice, thank you. I just want to add one more check if its possible.Is it possible to check cell on the left if it contain certain value. Basically what I need is: if cell on the left contain N then that cell in range have to be input as a date.If cell on the left is Y then that cell needs to stay blank.
Reply
0
0
Roberto Luongo
Roberto Luongo
This comment was minimized by the moderator on the site
How can I oblige to enter a time? (hh:mm)Private Sub Worksheet_Change(ByVal Target As Range)
'updateby Extendoffice 20150530
Set w = ActiveSheet.Range("B2:B12")
For Each c In w
If c.Value <> "" And Not IsDate(c) Then <----------------------------And Not isTime(c) doesn't work!
c.ClearContents
MsgBox "Only a date format is permitted in this cell."
End If
Next c
End Sub
Reply
0
0
skyyang
skyyang     Roberto Luongo
This comment was minimized by the moderator on the site
Hello, Roberto,

To only allow time format to be entered, you should apply the below code:



Private Sub Worksheet_Change(ByVal Target As Range)

'updateby Extendoffice

Dim xArr As Variant

Dim xF As Integer

Dim xB As Boolean

Dim xWRg, xCRg As Range

Set xWRg = ActiveSheet.Range("B2:B20")

For Each xCRg In xWRg

xArr = Split(xCRg.Value, ":")

xB = False

If UBound(xArr) <= 2 Then

For xF = LBound(xArr) To UBound(xArr)

If IsNumeric(xArr(xF)) Then

If xF = 0 Then

If (xArr(xF) > 0) And (xArr(xF) < 24) Then

Else

xB = True

GoTo BTime

End If

Else

If (xArr(xF) > 0) And (xArr(xF) < 60) Then

Else

xB = True

GoTo BTime

End If

End If

Else

xB = True

GoTo BTime

End If

Next

Else

MsgBox "Only a time format is permitted in this cell."

xCRg.ClearContents

End If

BTime:

If xB Then

MsgBox "Only a time format is permitted in this cell."

xCRg.ClearContents

End If

Next xCRg

End Sub



Please try it, thank you!
Reply
Report
0
0
Kevin
Kevin
This comment was minimized by the moderator on the site
Thank you so much, for the VBA code to be applied to multiple columns can you please provide the formula?.. I tried but ended up getting a 405 error!
Reply
0
0
skyyang
skyyang     Kevin
This comment was minimized by the moderator on the site
Hello, Kevin,
To make the code applied for multiple ranges, you just need to add the cell references into the code as below:

Private Sub Worksheet_Change(ByVal Target As Range)
Set w = ActiveSheet.Range("B2:B12,A1:A10,C5:C20")
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

Please try, hope it can help you!
Reply
Report
0
0
Kevin
Kevin     skyyang
This comment was minimized by the moderator on the site
Thanks a lot @skyyang, really appreciate your help :)
Reply
0
0
Ashok
Ashok
This comment was minimized by the moderator on the site
how to add a date validation for date format "DD-mmm-yyy" (15-Dec-2018) like this
Reply
0
0
sagar
sagar
This comment was minimized by the moderator on the site
which date format is this function allowed. It is not working for some dates
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations