Как получить текущий часовой пояс и отобразить его в ячейке Excel?

Вы знаете, как узнать, какой часовой пояс установлен на вашем компьютере? Здесь я покажу вам простой способ получить его в Excel.

Получить текущий часовой пояс и отобразить в ячейке с помощью пользовательской функции

Получить текущий часовой пояс и отобразить в ячейке с помощью пользовательской функции

Следующая пользовательская функция поможет вам отобразить текущий часовой пояс системы прямо в необходимых ячейках Excel. Пожалуйста, сделайте следующее.

1. нажмите другой + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. в Microsoft Visual Basic для приложений окна, нажмите Вставить > Модули. Затем скопируйте ниже код VBA в окно модуля.

Код VBA: получить текущий часовой пояс в 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. нажмите другой + Q ключи для выхода из Microsoft Visual Basic для приложений окно.

4. Выберите ячейку, в которой нужно отобразить часовой пояс, введите следующую формулу: =GetTimeZoneAtPresent() и нажмите Enter ключ, чтобы получить детали часового пояса. Смотрите скриншот:

Разблокируйте магию Excel с помощью Kutools AI

• Умное исполнение: выполнение операций с ячейками, анализ данных и создание диаграмм — и все это осуществляется с помощью простых команд.
• Пользовательские формулы: Создавайте индивидуальные формулы для оптимизации рабочих процессов.
• VBA-кодирование: Пишите и внедряйте код VBA без особых усилий.
• Интерпретация формулы: Легкое понимание сложных формул.
• Перевод текста: преодолевайте языковые барьеры в своих таблицах.

Расширьте свои возможности Excel с помощью инструментов на базе искусственного интеллекта. Скачать сейчас и испытайте эффективность, как никогда раньше!