Hur tillåter man endast datumformat i specifika celler i Excel?

Att begränsa specifika celler till att endast tillåta datumformat i Excel kan vara användbart för att säkerställa datakonsistens. Den här guiden introducerar två metoder: att använda datavalideringsfunktionen eller en enkel VBA-kod för att framtvinga inmatning av endast datum i valda celler.

Tillåt endast datumformat i specifika celler med funktionen Data Validation

Tillåt endast datumformat i specifika celler med VBA-kod

Tillåt endast datumformat i specifika celler med funktionen Data Validation

I Excel är Datagransknings är en kraftfull funktion som kan hjälpa dig att skapa en rullgardinslista, för att förhindra dubbletter av poster, etc. Den kan också hjälpa dig att förhindra att du anger andra dataformat än ett datum i specifika celler. Vänligen gör med följande steg:

1. Klicka Data > Datagransknings > Datagransknings, se skärmdump:

2. I Datagransknings dialogrutan, klicka Inställningar fliken och välj sedan Custom från Tillåt rullgardinsmeny och ange sedan denna formel: = AND (ISNUMBER (B2), VÄNSTER (CELL ("format", B2), 1) = "D") i Formel textruta, se skärmdump:

Anmärkningar: I ovanstående formel, B2 är den första cellen i kolumnen som du vill begränsa dataformatet.

3. Klicka sedan på Felavisering fliken i dialogrutan och utför följande steg:

(1.) Kontrollera Visa felvarning efter att ogiltiga data har angetts alternativ;

(2.) Under Stil rullgardinsmeny, välj Sluta alternativ;

(3.) Skriv in Titel och Felmeddelande som du vill visa i snabbrutan.

4. När du har gjort inställningarna klickar du på OK och nu, när du anger data som inte är ett giltigt datumformat, visas en uppmaningsruta för att meddela dig när följande skärmdump visas:

Tillåt endast datumformat i specifika celler med VBA-kod

Den andra metoden introducerar en VBA-kod för att utföra denna uppgift.

1. Aktivera kalkylbladet som du vill använda.

2. Högerklicka sedan på arkfliken och välj Visa kod från snabbmenyn, se skärmdump:

3. I det visade Microsoft Visual Basic för applikationer fönster, kopiera och klistra in koden nedan i Modulerna, se skärmdump:

VBA-kod: Tillåt endast datumformat in i specifika celler:

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. Spara och stäng koden. Nu, när du anger ett värde som inte är i datumformat i intervallet B2:B12, kommer en promptruta att dyka upp för att påminna dig, och cellvärdet rensas samtidigt, se skärmdump: