Vba: كيفية الحصول على اسم الشهر من التاريخ

يمكنك استخدام الدالة MonthName في VBA للحصول على اسم الشهر من تاريخ في Excel.

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

 SubGetMonthName ()

Dim i As Integer

For i = 2 To 11
    Range(" C " & i) = MonthName(Month(Range(" A " & i)))
Next i

End Sub

يبحث هذا الماكرو المحدد عن اسم الشهر لكل تاريخ في النطاق A2:A11 ويعرض هذه الأسماء في الخلايا المقابلة في النطاق C2:C11 .

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

مثال: كيفية الحصول على اسم الشهر من التاريخ باستخدام VBA

لنفترض أن لدينا مجموعة البيانات التالية في Excel والتي تحتوي على معلومات حول المبيعات التي أجرتها شركة ما في تواريخ مختلفة:

لنفترض أننا نريد الحصول على اسم الشهر لكل خلية في عمود التاريخ .

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

 SubGetMonthName ()

Dim i As Integer

For i = 2 To 11
    Range(" C " & i)= MonthName(Month(Range(" A " & i)))
Next i

End Sub

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

لاحظ أن العمود C يحتوي على اسم الشهر لكل تاريخ مطابق في العمود A.

إذا كنت تريد إرجاع اسم الشهر المختصر بدلاً من ذلك، فيمكنك استخدام وسيطة True اختيارية في الدالة MonthName كما يلي:

 SubGetMonthName ()

Dim i As Integer

For i = 2 To 11
    Range(" C " & i)= MonthName(Month(Range(" A " & i)), True )
Next i

End Sub

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

يحتوي العمود C الآن على اسم الشهر المختصر لكل تاريخ مطابق في العمود A.

مصادر إضافية

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

كيفية مقارنة التواريخ في VBA
كيفية تحويل السلسلة إلى تاريخ في VBA
كيفية حساب الأيام بين تاريخين في VBA