Note: The other languages of the website are Google-translated. Back to English

Hvordan opdateres eller indsættes (aktuel) dato og tid med en kommandoknap i Excel?

Normalt har mange Excel-brugere en tendens til at indsætte tidsstempel med formlen = NU (). Med denne formel opdateres det indsatte tidsstempel automatisk hver gang du åbner projektmappen. For manuelt at opdatere dato og tid i et regneark til enhver tid, hvordan opnås det? Denne artikel viser metoden til opdatering af den aktuelle dato og tid ved at klikke på en kommandoknap i Excel.

Opdater dato og klokkeslæt med en kommandoknap med VBA-kode


Opdater dato og klokkeslæt med en kommandoknap med VBA-kode

Gør som følger for at opdatere dato og tid ved hjælp af en kommandoknap i Excel.

1. Indsæt en kommandoknap ved at klikke på Udvikler > indsatte > Kommando-knap (ActiveX-kontrol). Se skærmbillede:

2. Højreklik på den indsatte kommandoknap, og klik derefter på Vis kode fra højreklikmenuen.

3. I popping up Microsoft Visual Basic til applikationer vindue, skal du udskifte den originale kode med nedenstående VBA-kode.

VBA-kode: Opdater dato og tid med en kommandoknap i Excel

Private Sub CommandButton1_Click()
    Range("A2").Value = Now()
End Sub

Bemærk: I koden er CommandButton1 navnet på din indsatte Command Button. Og A2 er den celle, hvor opdateringsdato og -tid vises. Skift dem, som du har brug for.

4. Sluk for Designtilstand under fanen Udvikler. Klik på kommandoknappen, så indsættes den aktuelle dato og tid i celle A2.

Og hver gang du klikker på kommandoknappen, opdateres dato og klokkeslæt i celle A2 med det samme.


Relaterede artikler:


De bedste Office-produktivitetsværktøjer

Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%

  • Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
  • Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
  • Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
  • Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
  • Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
  • Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
  • Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
  • Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
  • Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2021 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60 dages pengene tilbage garanti.
kte-fane 201905

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!
officetab bund
Sorter kommentarer efter
Kommentarer (7)
Ingen vurderinger endnu. Vær den første til at bedømme!
Denne kommentar blev minimeret af moderatoren på webstedet
Hej med jer.. det er rigtig god basis info..


Et spørgsmål - hvordan ændrer du koden for at sætte datostemplet i NÆSTE række nedenfor, hver gang der trykkes på knappen? (beholder de data, der tidligere er skrevet ovenfor?)


Tak så meget!
Denne kommentar blev minimeret af moderatoren på webstedet
Hej,
Nedenstående VBA-kode fungerer på den valgte celle. Når du vil indsætte tidsstemplet i en celle, skal du blot vælge det og trykke på knappen.

Privat Sub CommandButton1_Click ()
Dim xRg As Range
On Error Resume Next
Indstil xRg = Valg
xRg.Value = Nu()
End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Fantastisk! Tak for denne vejledning.


Men hvordan indsætter jeg KUN datoen i formatet DD/MM/ÅÅÅÅ?
Denne kommentar blev minimeret af moderatoren på webstedet
Hej,
Du kan formatere outputcellen som Short Date-formatering for at løse problemet.
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg har et spørgsmål. Der er en projektmappe, som vi opbevarer på et deledrev, som hele teamet kan få adgang til. Jeg vil tilføje denne makro til den, så når som helst der foretages ændringer, kan vi blot trykke på knappen, og tidspunktet og datoen udfyldes automatisk med et klik. Her er spørgsmålet, fra denne projektmappe trækkes data til andre projektmapper, hvis jeg gemmer en ny fil som "Makro-aktiveret" og sletter den gamle "Ikke-Makro"-projektmappe, vil dataene fortsætte med at trække fra denne nye projektmappe eller skal jeg rette alle de andre projektmapper.
Denne kommentar blev minimeret af moderatoren på webstedet
Hej michelle
Efter at have gemt projektmappen som en Macro-Enabled Excel-projektmappe, fungerer koden stadig fint.
Denne kommentar blev minimeret af moderatoren på webstedet
Hvordan opdaterer jeg koden for at sætte klokkeslæt/dato-stemplet i cellen VED siden af ​​knappen, så det gælder for hver række derpå
Der er endnu ingen kommentarer her

Følg os

Copyright © 2009 - www.extendoffice.com. | Alle rettigheder forbeholdes. Drevet af ExtendOffice. | | Sitemap
Microsoft og Office-logoet er varemærker eller registrerede varemærker tilhørende Microsoft Corporation i USA og / eller andre lande.
Beskyttet af Sectigo SSL