Vai al contenuto principale

Come ottenere il fuso orario corrente e visualizzarlo nella cella in Excel?

Sai come scoprire su quale fuso orario è impostato un sistema nel tuo computer? Qui ti mostrerò un modo semplice per scaricarlo in Excel.

Ottieni il fuso orario corrente e visualizza nella cella con la funzione definita dall'utente


Ottieni il fuso orario corrente e visualizza nella cella con la funzione definita dall'utente

La seguente funzione definita dall'utente ti aiuterà a visualizzare il fuso orario corrente del sistema direttamente nelle celle necessarie in Excel. Si prega di fare quanto segue.

1. premi il altro + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Nel Microsoft Visual Basic, Applications Edition finestra, fare clic inserire > Moduli. Quindi copia sotto il codice VBA nella finestra del modulo.

Codice VBA: ottieni il fuso orario corrente in Excel

Function GetTimeZoneAtPresent() As String
'Updated by Extendoffice 20180814
    Dim xObjIs, xObjI
On Error GoTo ER
    Set xObjIs = GetObject("winmgmts:\\.\root\cimv2").ExecQuery("Select * From Win32_TimeZone")
    If xObjIs.Count = 1 Then
        For Each xObjI In xObjIs
            If Len(xObjI.Caption) > 1 Then
                GetTimeZoneAtPresent = xObjI.Caption
                Exit Function
            Else
                GetTimeZoneAtPresent = "Null"
                Exit Function
            End If
        Next
    End If
ER:
    GetTimeZoneAtPresent = "Failed"
End Function

3. premi il altro + Q tasti per uscire da Microsoft Visual Basic, Applications Edition finestra.

4. Seleziona una cella di cui hai bisogno per visualizzare il fuso orario, digita questa formula: =GetTimeZoneAtPresent() e premere il entrare tasto per ottenere i dettagli del fuso orario. Vedi screenshot:

I migliori strumenti per la produttività in ufficio

🤖 Assistente AI di Kutools: Rivoluziona l'analisi dei dati basandosi su: Esecuzione intelligente   |  Genera codice  |  Crea formule personalizzate  |  Analizzare i dati e generare grafici  |  Richiama le funzioni di Kutools...
Funzioni popolari: Trova, evidenzia o identifica i duplicati   |  Elimina righe vuote   |  Combina colonne o celle senza perdere dati   |   Round senza formula ...
Super ricerca: VLookup a criteri multipli    VLookup a valori multipli  |   VLookup su più fogli   |   Ricerca fuzzy ....
Elenco a discesa avanzato: Crea rapidamente un elenco a discesa   |  Elenco a discesa dipendente   |  Elenco a discesa a selezione multipla ....
Gestore di colonna: Aggiungi un numero specifico di colonne  |  Sposta colonne  |  Attiva/disattiva lo stato di visibilità delle colonne nascoste  |  Confronta intervalli e colonne ...
Funzionalità in primo piano: Messa a fuoco della griglia   |  Vista di progettazione   |   Grande barra delle formule    Gestore di cartelle di lavoro e fogli   |  Resource Library (Testo automatico)   |  Date picker   |  Combina fogli di lavoro   |  Crittografa/decrittografa le celle    Invia e-mail per elenco   |  Super filtro   |   Filtro speciale (filtro grassetto/corsivo/barrato...) ...
I 15 migliori set di strumenti12 Testo Strumenti (aggiungi testo, Rimuovi personaggi, ...)   |   50+ Grafico Tipi (Diagramma di Gantt, ...)   |   40+ Pratico Formule (Calcola l'età in base al compleanno, ...)   |   19 Inserimento Strumenti (Inserisci il codice QR, Inserisci immagine dal percorso, ...)   |   12 Conversione Strumenti (Numeri in parole, Conversione di valuta, ...)   |   7 Unisci e dividi Strumenti (Combina righe avanzate, Celle divise, ...)   |   ... e altro ancora

Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo.  Fai clic qui per ottenere la funzionalità di cui hai più bisogno...

Descrizione


Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro

  • Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
  • Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
How do I add a label to the output? so it says something like "Current TZ: (UTC-05:00) Eastern Time (US & Canada)" and not just "(UTC-05:00) Eastern Time (US & Canada)"
This comment was minimized by the moderator on the site
Hi ZMGIT,
The following VBA code can do you a favor. Please give it a try.

Function GetTimeZoneAtPresent() As String
'Updated by Extendoffice 20220402
Dim xObjIs, xObjI
On Error GoTo ER
Set xObjIs = GetObject("winmgmts:\\.\root\cimv2").ExecQuery("Select * From Win32_TimeZone")
If xObjIs.Count = 1 Then
For Each xObjI In xObjIs
If Len(xObjI.Caption) > 1 Then
GetTimeZoneAtPresent = "Current TZ:" & xObjI.Caption
Exit Function
Else
GetTimeZoneAtPresent = "Null"
Exit Function
End If
Next
End If
ER:
GetTimeZoneAtPresent = "Failed"
End Function
This comment was minimized by the moderator on the site
This macro is not taking daylight savings into account. I am in Continental Europe and the current time here is UTC+2, namely one hour earlier than London plus 1 hour for summer time. The function says "(UTC+01:00) Belgrade, Bratislava, Budapest, Ljubljana, Prague" which would be correct during winter but not during summer
This comment was minimized by the moderator on the site
This worked brilliantly. I'm writing an IF statement off of this though. Do you have a list of the values that this formula could potentially display?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations