Hvordan tillader kun datoformat i bestemte celler?
Hvordan kunne du begrænse en liste over celler til kun at tillade indtastning af datoformat i Excel-regneark? I denne artikel vil jeg tale om nogle interessante tricks til at håndtere dette job.
Tillad kun datoformat i specifikke celler med datavalideringsfunktion
Tillad kun datoformat i specifikke celler med VBA-kode
Tillad kun datoformat i specifikke celler med datavalideringsfunktion
I Excel er Datavalidering er en kraftfuld funktion, der kan hjælpe dig med at oprette rulleliste, forhindre duplikater, osv. Det kan også hjælpe dig med at forhindre indtastning af andet dataformat, men kun datoformat i bestemte celler. Gør følgende:
1. Klik data > Datavalidering > Datavalidering, se skærmbillede:
2. I Datavalidering dialogboksen, klik Indstillinger fanen, og vælg derefter Tilpasset fra Tillad rulleliste, og indtast derefter denne formel: = AND (ISNUMBER (B2), VENSTRE (CELL ("format", B2), 1) = "D") ind i Formula tekstboks, se skærmbillede:
Bemærk: I ovenstående formel B2 er den første celle i kolonnen, som du vil begrænse dataformatet.
3. Fortsæt derefter med at klikke Fejladvarsel fanen i dialogboksen, skal du udføre følgende handlinger:
(1.) Kontroller Vis fejladvarsel efter indtastning af ugyldige data mulighed;
(2.) Under stil drop down, vælg venligst Stands mulighed;
(3.) Indtast Titel , Fejlmeddelelse som du vil have vist i promptboksen.
4. Når du er færdig med indstillingerne, skal du klikke på OK knap, og nu, når du indtaster de data, der ikke er ægte datoformat, vil der vises en hurtigboks for at minde dig om følgende skærmbillede vist:
Tillad kun datoformat i specifikke celler med VBA-kode
Den anden metode, jeg vil introducere en VBA-kode til dig.
1. Aktivér det regneark, du vil bruge.
2. Højreklik derefter på arkfanen, og vælg Vis kode fra kontekstmenuen, se skærmbillede:
3. I det viste Microsoft Visual Basic til applikationer vindue, kopier og indsæt nedenstående kode i Moduler, se skærmbillede:
VBA-kode: Tillad kun datoformat at indtaste i bestemte 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. Gem derefter annonce, luk koden, nu når du indtaster den værdi, der ikke er datoformat i område B2: B12, vises et promptfelt for at minde dig om, og celleværdien ryddes på samme tid, se skærmbillede:
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!