如何在 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 鍵以獲取時區詳細信息。參見截圖：

使用 Kutools AI 解鎖 Excel 的魔法

• 智能執行：執行單元格操作、分析數據並創建圖表——所有這些都由簡單的指令驅動。
• 自訂公式：生成量身定制的公式，簡化您的工作流程。
• VBA 編碼：輕鬆編寫和實現 VBA 代碼。
• 公式解釋：輕鬆理解複雜的公式。
• 文本翻譯：打破電子表格中的語言障礙。

通過人工智能工具增強您的 Excel 能力。立即下載，體驗前所未有的效率！