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

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

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

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

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

1. Нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

2. В окне Microsoft Visual Basic for Applications нажмите Вставить > Модуль. Затем скопируйте приведенный ниже код 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. Нажмите клавиши Alt + Q, чтобы закрыть окно Microsoft Visual Basic for Applications.

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

Раскройте магию Excel с Kutools AI

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

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