如何获取当前时区并在Excel中的单元格中显示？

您知道如何找出系统在您的计算机中设置的时区吗？ 在这里，我将向您展示一种简单的方法来在Excel中实现它。

获取当前时区并在具有用户定义功能的单元格中显示
以下用户定义的函数将帮助您直接在Excel中的所需单元格中显示系统的当前时区。 请做如下。

1。 按 其他 + 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。 按 其他 + Q 键退出 Microsoft Visual Basic for Applications 窗口。

4。 选择显示时区所需的单元格，键入以下公式： =GetTimeZoneAtPresent() 然后按 输入 获取时区细节的关键。 查看截图：