اختيار الورقة حسب الشهر

[أبو عبد النور]

السلام عليكم،

لدي ملف يحوي 12 ورقة بما يناسب 12 شهراً.

اريد الحصول على كود يمكنني من اختيار اي ورقة وذلك حسب الشهر الحالي.

الكود بصفة عامة :

Sheets("Month").Select

شكراً.

[علي السحيب]

قمت بتصميم كودين لتأدية نفس الغرض:

الكود الأول بإستخدام التعليمة IF:

Private Sub Workbook_Open()
Dim CM
CM = Month(Date)
If CM = 1 Then Sheets("Jan").Select
If CM = 2 Then Sheets("Feb").Select
If CM = 3 Then Sheets("Mar").Select
If CM = 4 Then Sheets("Apr").Select
If CM = 5 Then Sheets("May").Select
If CM = 6 Then Sheets("Jun").Select
If CM = 7 Then Sheets("Jul").Select
If CM = 8 Then Sheets("Aug").Select
If CM = 9 Then Sheets("Sep").Select
If CM = 10 Then Sheets("Oct").Select
If CM = 11 Then Sheets("Nov").Select
If CM = 12 Then Sheets("Dec").Select
End Sub

الطريقة الثانية بإستخدام التعليمة Select Case:

Private Sub Workbook_Open()
Dim CM
CM = Month(Date)
Select Case CM
Case Is = 1
Sheets("Jan").Select
Case Is = 2
Sheets("Feb").Select
Case Is = 3
Sheets("Mar").Select
Case Is = 4
Sheets("Apr").Select
Case Is = 5
Sheets("May").Select
Case Is = 6
Sheets("Jun").Select
Case Is = 7
Sheets("Jul").Select
Case Is = 8
Sheets("Aug").Select
Case Is = 9
Sheets("Sep").Select
Case Is = 10
Sheets("Oct").Select
Case Is = 11
Sheets("Nov").Select
Case Is = 12
Sheets("Dec").Select
End Select
End Sub

Select_The_Current_Month__s_Sheet.rar

[الجزيرة]

شكرا لكم جميعاً

[أبو عبد النور]

شكرا للاخ علي السحيب على المساعدة.

مادا يلزمني من ماكرو لتنفيد هده العملية ?

شكرا.

[triste]

قمت بإستيراد الكود - بعاليه - لكتاب العمل ، و لكن لم أجد أى ماكرو يعمل من خلاله الكود ؟!!