mhrrd

التعديلات الاخيرة ممكن تضغوها في ملف

بالفعل أخي الكريم تم إضافة صفحتان لعمل سجل الأجور المتغيرة وطباعته ورفع الأجور المتغيرة ممن يستحق تلقائيا وتم إضافة صفحة لحساب مكافأة الامتحانات بطرقة شيقة بحيث إذا كنت قبل شهر 7 يظهر لك ما ستصرفه في شهر 7 وإذا كنت في شهر يوليو أو بعده يظهر لك مكافأتك في العام القادم شكرا لكم لتعاونكم وبانتظار اقتراحات أخرى حتى يكون صالحا لكل مكان في مصر كل عام وانت طيب هذا العمل من الاعمال التي تستحق التطوير جعله الله لك وقاء من النار كيف يمكن طباعة ورقة مفردات مرتب فارغة بدون اي اسم ؟ تعديل في معادله لو تكرمتم

دعوه حلوة يارب استجب الدعاء

ن كلمات الأستاذ مجاهد .. بيض الله وجهه وان كان هناك طلب لى فى هذا المنتدى فهو ان تشرح لنا كيف قمت بعمل هذين البرنامج ولكن عفوا ليس مجرد اى شرح بل نريد موضوعا مستقلا تشرح فيه كل ( حرف ) وليس كل كلمة بالتفصيل ليس الممل ولكن شديد الملل لدرجة ان ييأس الملل نفسة من الملل الذى ستستخدمه فى الشرح نريد شرحا لكيفية عمل ( عمل وليس وضع او كتابه او نقل ) كل زر وكل نموذج وكل تقرير وكل استعلام وكل امر ماكرو وكل وحدة نمطية وكل حرف فى الوحدة النمطية كيف كتب ولماذا كتب و كل كبيرة وصغيرة فيه عسى ان يجعله الله سببا فى تعلم الكثيرين لما هو الاكسس وتصبح ( وان كنت انت بالفعل كذلك ) خيرنا ( من تعلم العلم وعلمه ) اى انك باختصار تشرح الاكسس من خلال مثال عملى على البرنامج وليس ان تشرح البرنامج من خلال الاكسس اعتقد ان مدرس اول للرياضيات كما اعتقد سيادتكم على فهم جيد بالفارق واعدك باذن الله تعالى ان اكون متابعا شرسا ودقيقا ومتلقيا جيدا لكل حرف مما ستكتبه ومحاولا فهم ما ستقوله ولا اعتقد اننى أتقول على الله تعالى لو زعمت ان الله عز وجل لو اخلصت له النيه فى هذا العمل فلك بكل حرف حسنة الى سبعمائة ضعف والله يضاعف لمن يشاء وكما يقول رسولنا صلى الله عليه وسلم ( اذا مات ابن ادم انقطع عمله الا من ثلاث صدقة جارية او علم ينتفع به او ولد صالح يدعو له ) ولا اعتقد ان احدنا ضمن الصدقة او دعاء الولد حتى يفرط فى العلم الذى يمكن ان ينتفع به اذا جائته الفرصة لذلك ان يعلم غيره مما علمه الله لا اعلم لك عذرا او حجة بعد ذلك الا ما علم ربى وجهلته انا وبخاصة قد جائتك اعظم الفرص لذلك وشهر رمضان ( كل عام وانتم بخير وكل اخواننا فى كل مكان باتم صحة وانعم حال ) والحسنات فيه تضاعف فى علم ربى كما لم ولن نعلم الا باذنه فهنيئا لك بها ان بدات في حصد مليارات الحسنات الا ان يشاء الله بهذه الطريقة فهيا بنا الى العمل والبدء جزاك الله خيرا وان كنت استاذنك ان اتغيب لمدة 15 يوما فقط لظروف خاصة ولكنى على امل عندما اعود ان اجده موجودا منيرا كالقمر فى ساحة الاكسس ينهل منه كل طالب علم ويحصد صاحبه الاجر من الله وحده ومن دعاء الفقراء ما قدر لهم الله ان يدعو به لصاحب الشرح وفى النهاية لكل منى كل تقدير واحترام منى ومن اخواننا فى المنتدى والسلام عليكم ورحمه الله وبركاته الله يبارك لكم اشرحوا لنا هذه الاعمال العطيمة

الف مبروك

استاذ مجاهد ربنا يكتب لك الخير في كفة حسناتك ==== انا مبتدئ في الاكسيس وأريد ان اتعلم شيئا فيه وادعو الله ان اكون طالبا في بحر علمك هل يمكن ان تشرح لنا كيف تم انشاء هذا البرنامج العظيم وكيفية التغيير فيه ليتلاءم مع المراحل التعليميه الاخرى ستكون دروس غايه في الروعه منكم

جزاكم الله خيراً علي هذا المجهود الأكثر من رائع

جزاكم الله خيراً علي هذا المجهود الأكثر من رائع

جزاكم الله خيراً علي هذا المجهود الأكثر من رائع

في صفحة اساسيه نجد اسم عبد الله ويعطي مادة الكيمياء وتحت يوم السبت الحصة الاولى 1/2 مثلا والحصة الثانية 1/2 == تم تكرار 1/2 اسم فصل في حصتين متجاورتين هذه هي الحالة التي ذكرها الاخ كات المطلوب تنسيق يميز هذه الحالة يبقى موضوع الفترات تم حله

جزاكم الله خيراً علي هذا المجهود الأكثر من رائع

لاتنسونا

لو تكرمتم هذا مو ملف للاستاذ خبور وبه كود الدوائر الحمراء اريد تظبيطه عل ملفي هذا الفرق عندي 3 شهادات في الصفحة تفضل كود اضافة الشهادات مع الدوائر مع ضبط اعدادات تحضير الشهادات للطباعة شهادة في كل ورقة كود Sub KH_ADD_S() Dim MyRng As Range, MyCell As Range Dim X As Integer, R As Integer, Y As Integer Set MyRng = ورقة1.Range("A12:DL51") Set MyCell = Range("نموذج_الشهادة") KH_Clear Application.ScreenUpdating = False X = 25 MyCell.Copy For R = 1 To MyRng.Rows.Count - 1 Range("B" & X).PasteSpecial xlPasteAll X = X + 22 Next R X = 12 With MyRng For R = 1 To .Rows.Count Range("F" & X) = .Range("H" & R) Range("P" & X) = .Range("B" & R) Range("E" & X + 7) = .Range("DK" & R) Range("J" & X + 7) = .Range("DL" & R) Range("D" & X + 5).RowHeight = 33 For C = 4 To 19 .Cells(R, Cells(1, C)).Copy Cells(X + 5, C).Select ActiveSheet.Paste Selection.PasteSpecial xlPasteValues Next C X = X + 22 Next R With ActiveSheet Y = .UsedRange.Rows.Count .PageSetup.PrintArea = "$B$3:$T$" & Y End With End With Application.CutCopyMode = False Application.ScreenUpdating = True End Sub هذا كود حذف الدوائر والشهادات كود Sub KH_Clear() Dim shp As Shape, Y As Integer Application.ScreenUpdating = False With ActiveSheet .Range("F12:L12,P12:Q12,D17:S17,E19:H19,J19:S20").ClearContents Y = .UsedRange.Rows.Count + 25 .Rows("25:" & Y).Delete .PageSetup.PrintArea = Range("نموذج_الشهادة").Address End With For Each shp In ActiveSheet.Shapes If shp.AutoShapeType = msoShapeOval Then shp.Delete Next shp Activewindow.ScrollRow = 1 End Sub وشكرا الكنترول للصف الأول ث تجديد1.rar الملف المطلوب ادراج فيه الكود.rar

اشكرك اشكرك ولكني بسيط جدا في البرمجة فارجو ان تضع كود الدوائر الحمراء في الشهادات 3 شهادات في الصفحة

بعد عناء يوم كامل وجدت هذا الكود واريد ثضبيطه لثلاث شهادات لو سمحتم غيروا الرقم في الآي 7 ستجدون اسم جديد منين جه

نجحت في اضافة في صفحة بيانات اساسيه الفصول التي لم تدرج في اي حصة ظهرت تحت ياريت الاستاذ خبور يضبطها ويعمل صفحة جديدة للمدرسين الذين لم يدرجوا في الحصة الاولى والتانيه و... مفيد برنامج الجداول المدرسية.rar

محتاج الكود ده يااساتذه

ماعلاقة Much بالدالة Index

اين الملف ؟ وجزى الله خيرا لم شارك

الورق امتوفر ايه فور وكذلك طابعات هذه الاوراق المتوفرة فسيتم طباعة كل يومين في ورقة واحدة وشكراولاداعي لايه تو

يارب استجب لنا الدعاء الطيب للعالم الكبير نتعشم ان نضيف لهذا العمل الفريد الطيب كود الدوائر الحمراء للشهادات

استاذ الخالدي انت استاذ بما تحمله الكلمه من معان نبيله شكر لك

كل الخير عند الله ياعم خبور يكتبها لك في كفة الحسنات

وجدت مرفقا بالمنتدى يحتاج لمعادلة الاستاذ يحيى فأحسست بحاجتي لإجابة السؤال اذا كان ممكن

لماذا لم اجد المرفق ؟ هل ضاع من المنتدى