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

Kako posodobiti ali vstaviti (trenutni) datum in čas z ukaznim gumbom v Excelu?

Običajno veliko uporabnikov Excela vstavlja časovni žig s formulo = ZDAJ (). S to formulo se bo vstavljeni časovni žig samodejno posodobil vsakič, ko odprete delovni zvezek. Kako to doseči, če želite kadar koli ročno posodobiti datum in uro na delovnem listu? V tem članku je prikazan način posodabljanja trenutnega datuma in ure s klikom na ukazni gumb v Excelu.

Datum in uro posodobite z ukaznim gumbom s kodo VBA


Datum in uro posodobite z ukaznim gumbom s kodo VBA

Za posodobitev datuma in ure z ukaznim gumbom v Excelu storite naslednje.

1. Vstavite ukazni gumb s klikom Razvojni > Vstavi > Ukazni gumb (nadzor ActiveX). Oglejte si posnetek zaslona:

2. Z desno miškino tipko kliknite vstavljeni ukazni gumb in nato kliknite Ogled kode v meniju z desnim klikom.

3. V pojavnem oknu Microsoft Visual Basic za aplikacije okno, zamenjajte izvirno kodo s spodnjo kodo VBA.

Koda VBA: posodobite datum in uro z ukaznim gumbom v Excelu

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

Opombe: V kodi je CommandButton1 ime vstavljenega ukaznega gumba. In A2 je celica, v kateri se prikažeta datum in čas posodobitve. Prosimo, spremenite jih po potrebi.

4. Na zavihku Developer izklopite Design Mode. Kliknite ukazni gumb, nato se v celico A2 vstavita trenutni datum in čas.

In vsakič, ko kliknete na ukazni gumb, se datum in čas v celici A2 takoj posodobita.


Sorodni članki:


Najboljša orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

  • Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
  • Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
  • Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
  • Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
  • Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
  • Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
  • Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
  • Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
  • Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.
zavihek kte 201905

Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
dno pisarniške mize
Komentarji (7)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni.. to so res dobre osnovne informacije..


Eno vprašanje - kako spremenite kodo, da se datumski žig postavi v naslednjo vrstico spodaj, vsakič, ko pritisnete gumb? (ohraniti podatke, ki so bili prej napisani zgoraj?)


Najlepša hvala!
Ta komentar je moderator na spletnem mestu minimiziral
Hi,
Spodnja koda VBA bo delovala na izbrani celici. Ko želite v celico vstaviti časovni žig, jo samo izberite in pritisnite gumb.

Zasebni podukazni gumb1_Klik()
Dim xRg As Range
On Error Resume Next
Nastavite xRg = Izbira
xRg.Value = Zdaj()
End Sub
Ta komentar je moderator na spletnem mestu minimiziral
Čudovito! Hvala za to vadnico.


Kako pa vstavim SAMO datum v obliki DD/MM/LLLL?
Ta komentar je moderator na spletnem mestu minimiziral
Hi,
Če želite rešiti težavo, lahko izhodno celico formatirate kot oblikovanje kratkega datuma.
Ta komentar je moderator na spletnem mestu minimiziral
Imam vprašanje. Obstaja delovni zvezek, ki ga hranimo v skupni rabi za dostop celotne ekipe. Ta makro mu želim dodati, tako da lahko ob vsaki spremembi preprosto pritisnemo gumb in ura in datum se samodejno izpolnita s klikom. Sedaj pa je vprašanje, iz tega delovnega zvezka se podatki potegnejo v druge delovne zvezke, če novo datoteko shranim kot "Macro-Enabled" in izbrišem stari delovni zvezek "Non-Macro", ali bodo podatki še naprej vlekli iz tega novega delovnega zvezka oz. ali bom moral popraviti vse druge delovne zvezke.
Ta komentar je moderator na spletnem mestu minimiziral
Živjo Michelle,
Ko shranite delovni zvezek kot delovni zvezek Excel z omogočenimi makri, koda še vedno deluje dobro.
Ta komentar je moderator na spletnem mestu minimiziral
Kako posodobim kodo, da vnesem žig časa/datuma v celico zraven gumba, tako da velja za vsako vrstico v njej
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL