طلب مساعدة طريقة عمل مفكرة مكتبية

[abdellahgh]

السلام عليكم ورخمة الله وبركاته إخواني الكرام

أطلب منكم طريقة عمل مفكرة مكتبية صالحة لعدة سنوات أو مفكرة جاهزة مثل النموذج المرفق

وجزاكم الله خيرا

النموذج.xls

[Ali Mohamed Ali]

وعليكم السلام

تفضل هذا أفضل بالتأكيد

 

Calendar.xlsm

[abdellahgh]

شكرا جزيلا جزاك الله خيرا

[سليم حاصبيا]

جرب هذا الماكرو

Option Explicit

Sub Calendar()
Dim I As Byte
Dim x As Double
Dim y As Byte
Dim m As Byte: m = 2
Application.ScreenUpdating = False
Range("my_rg").ClearContents
 For I = 1 To 12
  x = DateSerial([p2], I, 1)
  y = Day(Application.EoMonth(x, 0))
  Cells(7, m) = x: Cells(7, m).AutoFill Destination:=Range(Cells(7, m), Cells(y + 6, m)), Type:=xlFillDefault
  m = m + 3
 Next
 Application.ScreenUpdating = True
End Sub

الملف مرفق

My_Calendar.xlsm

[abdellahgh]

السلام عليكم ورخمة الله وبركاته إخواني الكرام

أطلب منكم طريقة عمل مفكرة مكتبية صالحة لعدة سنوات أو مفكرة جاهزة مثل النموذج المرفق

وجزاكم الله خيرا

النموذج.xls

[Ali Mohamed Ali]

المشاركة مكررة يجب حذفها

فقد تم الرد والإجابة على هذا الرابط

https://www.officena.net/ib/topic/87966-طلب-مساعدة-طريقة-عمل-مفكرة-مكتبية/