كيفية استخدام وظيفة timevalue في vba (مع مثال)

يمكنك استخدام الدالة TimeValue في VBA لإرجاع القيمة الزمنية لسلسلة معينة.

إليك طريقة شائعة لاستخدام هذه الوظيفة عمليًا:

 Sub GetTimeValue()
    
Dim i As Integer

For i = 2 To 7
    Range(" B " & i) = TimeValue(Range(" A " & i))
Next i
    
End Sub

سيقوم هذا الماكرو المحدد باستخراج القيمة الزمنية للتواريخ والأوقات في النطاق A2:A7 وإرجاع قيمة الوقت تلك في النطاق المقابل من B2:B7 .

يوضح المثال التالي كيفية استخدام بناء الجملة هذا عمليًا.

مثال: كيفية استخدام الدالة TimeValue في VBA

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

لنفترض أننا نريد استخراج الوقت من كل تاريخ في العمود A وعرضه في العمود B.

يمكننا إنشاء الماكرو التالي للقيام بذلك:

 Sub GetTimeValue()
    
Dim i As Integer

For i = 2 To 7
    Range(" B " & i) = TimeValue(Range(" A " & i))
Next i
    
End Sub

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

يعرض العمود B قيمة الوقت لكل تاريخ/وقت في العمود A.

على سبيل المثال:

• ترجع الدالة TimeValue 10:15:34 اعتبارًا من 01/01/2023 10:15:34
• ترجع الدالة TimeValue الساعة 12:34:18 مساءً اعتبارًا من 03/01/2023 الساعة 12:34:18 مساءً
• ترجع الدالة TimeValue 8:23:00 اعتبارًا من 01/05/2023 8:23:00

وما إلى ذلك وهلم جرا.

ملاحظة : يمكنك العثور على الوثائق الكاملة لوظيفة TimeValue في VBA هنا .

مصادر إضافية

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

كيفية مقارنة التواريخ في VBA
كيفية إدراج طابع زمني باستخدام VBA
كيفية تنسيق الوقت في VBA