كيف يمكنني الحصول على المنطقة الزمنية الحالية وعرضها في خلية في Excel؟
عند العمل مع جداول بيانات Excel، خاصة في البيئات التعاونية أو الدولية، يُعدّ معرفة المنطقة الزمنية المُعدَّة على نظامك أمرًا بالغ الأهمية. فبعرض المنطقة الزمنية الحالية للنظام مباشرةً داخل خلية Excel، يمكنك ضمان دقة العمليات الحسابية والتقارير ومقارنات البيانات المرتبطة بالوقت—خاصةً عند مشاركة الملفات بين مستخدمين يقعون في مناطق زمنية مختلفة. وللأسف، لا يوفّر Excel دالةً مدمجةً لاستخراج معلومات المنطقة الزمنية للنظام مباشرةً داخل خلية.
الحصول على المنطقة الزمنية الحالية وعرضها في خلية باستخدام دالة معرّفة من قبل المستخدم
الحصول على المنطقة الزمنية الحالية وعرضها في خلية باستخدام دالة معرّفة من قبل المستخدم
لاستخراج المنطقة الزمنية الحالية لنظامك وعرضها مباشرةً في خلية Excel، يمكنك استخدام دالة مُعرَّفة من قِبل المستخدم (UDF) مكتوبة بلغة VBA. تُعد هذه الطريقة حلاً عمليًا وفعالًا، خاصةً عند احتياجك المتكرر إلى هذه المعلومة داخل مصنفك. فيما يلي خطوات تنفيذ ذلك:
ملاحظة:تعمل هذه الطريقة بأفضل شكلٍ ممكن إذا كانت ماكروهات Excel مفعّلة في بيئة العمل الخاصة بك، وكان لديك الصلاحية لتشغيل كود VBA. كما تقوم هذه الطريقة بقراءة الإعدادات الإقليمية مباشرةً من نظام Windows المُعدّ على جهاز الكمبيوتر الخاص بك.
1. اضغط مفاتيحAlt + F11 في آنٍ واحد. سيؤدي ذلك إلى فتح نافذة محررMicrosoft Visual Basic for Applications (VBA).
2. في محرر VBA، حدد لوحة المشروع على اليسار، ثم انقرإدراج > وحدة نمطية. سيؤدي ذلك إلى إضافة وحدة نمطية جديدة إلى مصنفك، حيث يمكنك إدخال الكود المخصص. قم بنسخ ولصق كود 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 لإغلاق محرر VBA والعودة إلى Excel.
4. اختر أي خلية ترغب في عرض المنطقة الزمنية فيها، وأدخل الصيغة التالية:=GetTimeZoneAtPresent()، ثم اضغطEnter. ستظهر المنطقة الزمنية الحالية المُعدَّة على نظامك فورًا في الخلية المحددة.
تُعد هذه الطريقة فعّالة بشكل خاص في قوالب التقارير الآلية أو لوحات المعلومات التي يُشارَكها بين زملاء في مواقع جغرافية مختلفة، حيث يُعد وضوح المنطقة الزمنية أمرًا بالغ الأهمية. ومع ذلك، تذكّر أن الدوال المعرّفة من قبل المستخدم (UDFs) تعمل فقط عند حفظ المصنف كملف يدعم الماكرو (.xlsm). وإذا نقلت الملف أو أرسلته إلى شخص لديه الماكرو معطّلة، فقد لا تُحدَّث النتيجة أو تُعرَض.
راجع لقطة الشاشة للتوضيح:
إذا لم تظهر النتيجة أو ظهر خطأ، فتحقق من أن:
- تتيح لك إعدادات ماكرو تشغيل كود VBA.
- تم نسخ الكود بالكامل دون أي تعديل.
- أنت لست في Excel Online أو أي بيئة مقيدة (حيث تقتصر حلول VBA على Excel لسطح المكتب).
لتحديث أو تجديد معلومات المنطقة الزمنية، اضغطF9 لإعادة حساب الورقة، أو أعد إدخال الصيغة إذا تغيّرت المنطقة الزمنية للنظام أثناء جلسة Excel الخاصة بك.
تلميح:تعكس هذه النتيجة إعدادات نظام التشغيل على جهاز الكمبيوتر الخاص بك. وإذا قمت بمشاركة الملف، فسيتمكن كل مستخدم من رؤية منطقته الزمنية الخاصة به عند إعادة حساب الصيغة في بيئة Excel المحلية لديه.
افتح سحر إكسل مع KUTOOLS AI
- التنفيذ الذكي: نفِّذ عمليات الخلايا، وحلِّل البيانات، وأنشئ المخططات البيانية — كل ذلك بأوامر بسيطة!
- الصيغ المخصصة: أنشئ صيغًا مخصصة لتبسيط سير عملك.
- برمجة VBA: اكتب وأَنفِذ أكواد VBA بسلاسة تامة.
- تفسير الصيغ: افهم الصيغ المعقدة بسهولة!
- ترجمة النصوص: اكسر الحواجز اللغوية في جداولك الإلكترونية!
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل