Hoe haal ik de huidige tijdzone op en toon deze in een cel in Excel?

Weet je hoe je kunt achterhalen op welke tijdzone je computer is ingesteld? Hier laat ik je een eenvoudige manier zien om dit in Excel te doen.

Haal de huidige tijdzone op en toon deze in een cel met een door de gebruiker gedefinieerde functie

Haal de huidige tijdzone op en toon deze in een cel met een door de gebruiker gedefinieerde functie

De volgende door de gebruiker gedefinieerde functie helpt u om de huidige tijdzone van het systeem direct weer te geven in de benodigde cellen in Excel. Volg de onderstaande stappen.

1. Druk op de toetsen Alt + F11 om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik in het Microsoft Visual Basic for Applications-venster op Invoegen > Module. Kopieer vervolgens de onderstaande VBA-code naar het Module-venster.

VBA-code: Haal de huidige tijdzone op 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. Druk op de toetsen Alt + Q om het Microsoft Visual Basic for Applications-venster te sluiten.

4. Selecteer een cel waarin u de tijdzone wilt weergeven, typ deze formule: =GetTimeZoneAtPresent() en druk op de Enter-toets om de tijdzone-details op te halen. Zie screenshot:

Ontdek de Magie van Excel met Kutools AI

• Slimme Uitvoering: Voer celbewerkingen uit, analyseer gegevens en maak diagrammen – allemaal aangestuurd door eenvoudige commando's.
• Aangepaste Formules: Genereer op maat gemaakte formules om uw workflows te versnellen.
• VBA-codering: Schrijf en implementeer VBA-code moeiteloos.
• Formule-uitleg: Begrijp complexe formules gemakkelijk.
• Tekstvertaling: Overbrug taalbarrières binnen uw spreadsheets.

Verhoog uw Excel-mogelijkheden met AI-aangedreven tools. Download Nu en ervaar een ongekende efficiëntie!