現在のタイムゾーンを取得して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() を押して 入力します タイムゾーンの詳細を取得するためのキー。 スクリーンショットを参照してください：