Note: The other languages of the website are Google-translated. Back to English

كيفية الحصول على المنطقة الزمنية الحالية وعرضها في الخلية في إكسيل؟

هل تعرف كيفية معرفة المنطقة الزمنية التي يتم تعيين النظام عليها في جهاز الكمبيوتر الخاص بك؟ هنا سأريك طريقة سهلة للحصول عليها في Excel.

احصل على المنطقة الزمنية الحالية وعرضها في الخلية بوظيفة محددة من قبل المستخدم


احصل على المنطقة الزمنية الحالية وعرضها في الخلية بوظيفة محددة من قبل المستخدم

ستساعدك الوظيفة التالية المعرفة من قبل المستخدم على عرض المنطقة الزمنية الحالية للنظام مباشرة في الخلايا المطلوبة في Excel. الرجاء القيام بما يلي.

1. اضغط على قديم + F11 مفاتيح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة. ثم انسخ رمز VBA أدناه في نافذة الوحدة النمطية.

كود فبا: احصل على المنطقة الزمنية الحالية في إكسيل

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 مفاتيح للخروج من ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

4. حدد خلية تريدها لعرض المنطقة الزمنية ، اكتب هذه الصيغة: =GetTimeZoneAtPresent() واضغط على أدخل مفتاح للحصول على تفاصيل المنطقة الزمنية. انظر لقطة الشاشة:


أفضل أدوات إنتاجية المكتب

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

  • إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
  • حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
  • نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
  • اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
  • أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.
علامة تبويب kte 201905

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (4)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هذا عمل ببراعة. أنا أكتب بيان IF من هذا بالرغم من ذلك. هل لديك قائمة بالقيم التي يمكن أن تعرضها هذه الصيغة؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هذا الماكرو لا يأخذ التوقيت الصيفي في الاعتبار. أنا في قارة أوروبا والوقت الحالي هنا هو UTC + 2 ، أي قبل ساعة واحدة من لندن بالإضافة إلى ساعة واحدة في الصيف. تقول الوظيفة "(UTC + 1: 01) بلغراد ، براتيسلافا ، بودابست ، ليوبليانا ، براغ" والتي ستكون صحيحة خلال الشتاء ولكن ليس خلال الصيف
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيف أقوم بإضافة تسمية إلى الإخراج؟ لذلك تقول شيئًا مثل "TZ الحالي: (UTC-05: 00) التوقيت الشرقي (الولايات المتحدة وكندا)" وليس فقط "(UTC-05: 00) التوقيت الشرقي (الولايات المتحدة وكندا)"
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ZMGIT ،
يمكن أن يقدم لك رمز VBA التالي خدمة. يرجى محاولة إعطائها.

الدالة GetTimeZoneAtPresent () كسلسلة
'تم التحديث بواسطة Extendoffice 20220402
خافت xObjIs ، xObjI
عند حدوث خطأ ، انتقل إلى ER
قم بتعيين xObjIs = GetObject ("winmgmts: \\. \ root \ cimv2"). ExecQuery ("حدد * من Win32_TimeZone")
إذا كان xObjIs.Count = 1 ثم
لكل xObjI في xObjIs
إذا كان Len (xObjI.Caption)> 1 ثم
GetTimeZoneAtPresent = "TZ الحالي:" & xObjI.Caption
وظيفة الخروج
آخر
GetTimeZoneAtPresent = "Null"
وظيفة الخروج
إنهاء حالة
التالى
إنهاء حالة
ER:
GetTimeZoneAtPresent = "فشل"
نهاية وظيفة
لا توجد تعليقات منشورة هنا حتى الآن

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL