كيفية الحصول على المنطقة الزمنية الحالية وعرضها في خلية في 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 لديك باستخدام أدوات تعمل بالذكاء الاصطناعي. قم بالتنزيل الآن وعش تجربة الكفاءة كما لم يحدث من قبل!