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

Hur uppdaterar eller infogar (aktuellt) datum och tid med en kommandoknapp i Excel?

Normalt tenderar många Excel-användare att infoga tidsstämpel med formeln = NOW (). Med den här formeln uppdateras den infogade tidsstämpeln automatiskt varje gång du öppnar arbetsboken. För att manuellt uppdatera datum och tid i ett kalkylblad när som helst, hur ska man uppnå det? Den här artikeln visar hur du uppdaterar aktuellt datum och tid genom att klicka på en kommandoknapp i Excel.

Uppdatera datum och tid med en kommandoknapp med VBA-kod


Uppdatera datum och tid med en kommandoknapp med VBA-kod

Gör så här för att uppdatera datum och tid med en kommandoknapp i Excel.

1. Sätt in en kommandoknapp genom att klicka Utvecklare > Insert > Kommandoknapp (ActiveX-kontroll). Se skärmdump:

2. Högerklicka på den infogade kommandoknappen och klicka sedan på Visa kod från högerklickmenyn.

3. I pop-up Microsoft Visual Basic för applikationer fönstret, ersätt den ursprungliga koden med nedanstående VBA-kod.

VBA-kod: Uppdatera datum och tid med en kommandoknapp i Excel

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

Anmärkningar: I koden är CommandButton1 namnet på den infogade kommandoknappen. Och A2 är cellen som uppdateringsdatum och tid kommer att visas. Ändra dem efter behov.

4. Stäng av designläget under fliken Developer. Klicka på kommandoknappen för att infoga aktuellt datum och tid i cell A2.

Och varje gång du klickar på kommandoknappen kommer datum och tid i cell A2 att uppdateras omedelbart.


Relaterade artiklar:


De bästa Office-produktivitetsverktygen

Kutools för Excel löser de flesta av dina problem och ökar din produktivitet med 80%

  • återanvändning: Sätt snabbt i komplexa formler, diagram och allt som du har använt tidigare; Kryptera celler med lösenord; Skapa e-postlista och skicka e-post ...
  • Super Formula Bar (enkelt redigera flera rader med text och formel); Läslayout (enkelt läsa och redigera ett stort antal celler); Klistra in i filtrerat intervall...
  • Sammanfoga celler / rader / kolumner utan att förlora data; Delat cellinnehåll; Kombinera duplicerade rader / kolumner... Förhindra duplicerade celler; Jämför intervall...
  • Välj Duplicera eller Unikt Rader; Välj tomma rader (alla celler är tomma); Super Find och Fuzzy Find i många arbetsböcker; Slumpmässigt val ...
  • Exakt kopia Flera celler utan att ändra formelreferens; Skapa referenser automatiskt till flera ark; Sätt in kulor, Kryssrutor och mer ...
  • Extrahera text, Lägg till text, ta bort efter position, Ta bort mellanslag; Skapa och skriva ut personsökningstalsatser; Konvertera mellan celler innehåll och kommentarer...
  • Superfilter (spara och tillämpa filterscheman på andra ark); Avancerad sortering efter månad / vecka / dag, frekvens och mer; Specialfilter av fet, kursiv ...
  • Kombinera arbetsböcker och arbetsblad; Sammanfoga tabeller baserat på nyckelkolumner; Dela data i flera ark; Batchkonvertera xls, xlsx och PDF...
  • Mer än 300 kraftfulla funktioner. Stöder Office / Excel 2007-2021 och 365. Stöder alla språk. Enkel implementering i ditt företag eller organisation. Fullständiga funktioner 30 dagars gratis provperiod. 60 dagars pengarna tillbaka-garanti.
kte-flik 201905

Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
officetab botten
Sortera kommentarer efter
Kommentarer (7)
Inga betyg än. Bli först med att betygsätta!
Denna kommentar minimerades av moderatoren på webbplatsen
Hej på er.. det här är riktigt bra grundinformation..


En fråga - hur ändrar man koden för att sätta datumstämpeln i NÄSTA rad nedan, varje gång knappen trycks ned? (behåller de uppgifter som tidigare skrivits ovan?)


Tack så mycket!
Denna kommentar minimerades av moderatoren på webbplatsen
Hej,
VBA-koden nedan kommer att fungera på den valda cellen. När du vill infoga tidsstämpel i en cell, välj bara den och tryck på knappen.

Privat underkommando-knappen1_Click ()
Dim xRg As Range
On Error Resume Next
Ställ in xRg = Urval
xRg.Value = Nu()
End Sub
Denna kommentar minimerades av moderatoren på webbplatsen
Grymt bra! Tack för denna handledning.


Men hur infogar jag ENDAST datumet i formatet DD/MM/ÅÅÅÅ?
Denna kommentar minimerades av moderatoren på webbplatsen
Hej,
Du kan formatera utdatacellen som formatering med kort datum för att lösa problemet.
Denna kommentar minimerades av moderatoren på webbplatsen
Jag har en fråga. Det finns en arbetsbok som vi håller på en delad enhet för hela teamet att komma åt. Jag vill lägga till det här makrot så att när som helst ändringar görs kan vi helt enkelt trycka på knappen och tid och datum fylls i automatiskt med ett klick. Nu här är frågan, från den här arbetsboken dras data till andra arbetsböcker om jag sparar en ny fil som "Makroaktiverad" och tar bort den gamla "Icke-makro"-arbetsboken, kommer data att fortsätta hämta från den här nya arbetsboken eller kommer jag behöva fixa alla andra arbetsböcker.
Denna kommentar minimerades av moderatoren på webbplatsen
Hej Michelle,
Efter att ha sparat arbetsboken som en Macro-Enabled Excel-arbetsbok fungerar koden fortfarande bra.
Denna kommentar minimerades av moderatoren på webbplatsen
Hur uppdaterar jag koden för att sätta tid/datum-stämpeln i cellen NEDVID knappen så att den gäller för varje rad därpå
Det finns inga kommentarer här ännu
Lämna dina kommentarer
Postar som gäst
×
Betygsätt detta inlägg:
0   Tecken
Föreslagna platser

Följ oss

Copyright © 2009 - www.extendoffice.com. | Alla rättigheter förbehållna. Drivs av ExtendOffice. | | Sitemap
Microsoft och Office-logotypen är varumärken eller registrerade varumärken som tillhör Microsoft Corporation i USA och / eller andra länder.
Skyddad av Sectigo SSL