Hvordan indsættes datostempel i en celle, hvis der er markeret et afkrydsningsfelt i Excel?
Normalt indtaster du et datostempel ved at bruge genvejstaster i Excel. Hvad med at indsætte datostempel i en celle ved et afkrydsningsfelt i Excel? Når du afkrydser afkrydsningsfeltet, indsættes tidsstemplet automatisk i en specificeret celle. Denne artikel hjælper dig med at løse det.
Indsæt datostempel i en celle, hvis afkrydsningsfeltet med VBA-kode er markeret
Indsæt datostempel i en celle, hvis afkrydsningsfeltet med VBA-kode er markeret
Dette afsnit introducerer et VBA-script, der hjælper dig med at indsætte et datostempel i en celle automatisk, hvis afkrydsningsfeltet i Excel er markeret. Gør venligst som følger.
1. Når du har indsat et afkrydsningsfelt, skal du trykke på andre + F11 taster samtidigt for at åbne Microsoft Visual Basic til applikationer vindue.
2. i Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Moduler. Kopier og indsæt derefter nedenstående VBA-kode i modulvinduet.
VBA-kode: Indsæt datostempel i en celle, hvis afkrydsningsfeltet er markeret
Sub CheckBox_Date_Stamp()
Dim xChk As CheckBox
Set xChk = ActiveSheet.CheckBoxes(Application.Caller)
With xChk.TopLeftCell.Offset(, 1)
If xChk.Value = xlOff Then
.Value = ""
Else
.Value = Date
End If
End With
End Sub
3. Trykke andre + Q taster for at lukke Microsoft Visual Basic til applikationer vindue.
4. Højreklik på afkrydsningsfeltet, og vælg Tildel Micro fra højreklikmenuen. Se skærmbillede:
5. i Tildel makro dialogboksen, vælg CheckBox_Date_Stamp i Makronavn og klik derefter på OK knap. Se skærmbillede:
Når du afkrydser afkrydsningsfeltet, vil datostemplet automatisk blive indsat i den tilstødende celle.
Relaterede artikler:
- Hvordan ændres en bestemt celleværdi eller farve, når afkrydsningsfeltet er markeret i Excel?
- Hvordan fremhæves celle eller række med afkrydsningsfelt i Excel?
- Hvordan laver man afkrydsningsfeltet baseret på celleværdi i Excel?
- Sådan filtreres data baseret på afkrydsningsfelt i Excel?
- Hvordan skjuler jeg afkrydsningsfeltet, når rækken er skjult i Excel?
- Hvordan oprettes en rulleliste med flere afkrydsningsfelter i Excel?
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!