كيفية تنسيق الوقت في vba (مع أمثلة)

يمكنك استخدام وظيفة التنسيق في VBA مع الوسائط التالية لتنسيق الأوقات في Excel بطريقة معينة:

• h : الساعات بدون أصفار
• hh : الساعات ذات الأصفار
• n : الدقائق بدون أصفار
• nn : الدقائق التي تحتوي على أصفار
• s : الثواني بدون أصفار
• ss : الثواني ذات الأصفار
• AM/PM : عرض AM/PM

يوضح المثال التالي كيفية تنسيق الأوقات باستخدام VBA عمليًا.

مثال: تنسيق الأوقات باستخدام VBA

لنفترض أن لدينا عمود التاريخ/الوقت التالي في Excel:

يمكننا إنشاء الماكرو التالي لتنسيق الأوقات في العمود A على وجه التحديد وعرض الأوقات المنسقة في الأعمدة من B إلى E:

 SubFormatTime ()

Dim i As Integer

For i = 2 To 8
  Range(" B " & i) = Format(Range(" A " & i), " h ")
  Range(" C " & i) = Format(Range(" A " & i), " h:nn ")
  Range(" D " & i) = Format(Range(" A " & i), " h:nn:ss ")
  Range(" E " & i) = Format(Range(" A " & i), " h:nn:ss AM/PM ")
Next i

End Sub

عندما نقوم بتشغيل هذا الماكرو، نحصل على الإخراج التالي:

يتم الآن عرض الأعمدة من B إلى E في كل مرة في العمود A المنسق بطريقة معينة.

لاحظ أنه يمكنك أيضًا استخدام تنسيقات الاختصارات “الوقت القصير ” و “الوقت المتوسط ” و “الوقت الطويل” :

 SubFormatTime ()

Dim i As Integer

For i = 2 To 8
  Range(" B " & i) = Format(Range(" A " & i), " Short Time ")
  Range(" C " & i) = Format(Range(" A " & i), " Medium Time ")
  Range(" D " & i) = Format(Range(" A " & i), " Long Time ")
Next i

End Sub

عندما نقوم بتشغيل هذا الماكرو، نحصل على الإخراج التالي:

يتم الآن عرض الأعمدة من B إلى D في كل مرة في العمود A المنسق بطريقة معينة.

مصادر إضافية

تشرح البرامج التعليمية التالية كيفية تنفيذ المهام الشائعة الأخرى في VBA:

VBA: كيفية استخدام mm/dd/yyyy كتنسيق للتاريخ
فبا: كيفية تنسيق الخلايا كنسبة مئوية
فبا: كيفية تطبيق التنسيق الشرطي على الخلايا