abdellahgh قام بنشر ديسمبر 31, 2018 مشاركة قام بنشر ديسمبر 31, 2018 السلام عليكم ورخمة الله وبركاته إخواني الكرام أطلب منكم طريقة عمل مفكرة مكتبية صالحة لعدة سنوات أو مفكرة جاهزة مثل النموذج المرفق وجزاكم الله خيرا النموذج.xls رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر ديسمبر 31, 2018 مشاركة قام بنشر ديسمبر 31, 2018 وعليكم السلام تفضل هذا أفضل بالتأكيد Calendar.xlsm رابط هذا التعليق شارك More sharing options...
abdellahgh قام بنشر ديسمبر 31, 2018 الكاتب مشاركة قام بنشر ديسمبر 31, 2018 شكرا جزيلا جزاك الله خيرا رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر ديسمبر 31, 2018 مشاركة قام بنشر ديسمبر 31, 2018 جرب هذا الماكرو 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 1 رابط هذا التعليق شارك More sharing options...
abdellahgh قام بنشر ديسمبر 31, 2018 الكاتب مشاركة قام بنشر ديسمبر 31, 2018 السلام عليكم ورخمة الله وبركاته إخواني الكرام أطلب منكم طريقة عمل مفكرة مكتبية صالحة لعدة سنوات أو مفكرة جاهزة مثل النموذج المرفق وجزاكم الله خيرا النموذج.xls رابط هذا التعليق شارك More sharing options...
Ali Mohamed Ali قام بنشر ديسمبر 31, 2018 مشاركة قام بنشر ديسمبر 31, 2018 المشاركة مكررة يجب حذفها فقد تم الرد والإجابة على هذا الرابط https://www.officena.net/ib/topic/87966-طلب-مساعدة-طريقة-عمل-مفكرة-مكتبية/ رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.