Jak získat aktuální časové pásmo a zobrazit v buňce v aplikaci Excel?

Víte, jak zjistit, na jaké časové pásmo je ve vašem počítači nastaven systém? Zde vám ukážu snadný způsob, jak to v aplikaci Excel získat.

Získejte aktuální časové pásmo a zobrazte jej v buňce pomocí funkce definované uživatelem

Získejte aktuální časové pásmo a zobrazte jej v buňce pomocí funkce definované uživatelem

Následující uživatelsky definovaná funkce vám pomůže zobrazit aktuální časové pásmo systému přímo v potřebných buňkách v aplikaci Excel. Postupujte prosím následovně.

1. zmáčkni Další + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modul. Poté zkopírujte níže uvedený kód VBA do okna modulu.

Kód VBA: Získejte aktuální časové pásmo v aplikaci 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. zmáčkni Další + Q klávesy pro opuštění Microsoft Visual Basic pro aplikace okno.

4. Vyberte buňku, kterou potřebujete k zobrazení časového pásma, zadejte tento vzorec: =GetTimeZoneAtPresent() a stiskněte tlačítko vstoupit klíč k získání podrobností o časovém pásmu. Viz screenshot: