نجوم المشاركات

السلام عليكم من اجمل المنتديات التي رأيتها بارك الله في الجميع عندي ملف اكسيل لطباعة الشواهد التقديرية بدأت العمل عليه ولم استطع اتمام الفكرة كوني مبتدأ في تعلم برمجة الإكسيل من استطاع منكم المساعدة في اتمام العمل فجزاه الله خيرا في هذا الشهر الفضيل الفكرة هي انني ضمنت الملف مجموعة من الشهادات التقديرية كما في الملفات المرفقة وقمت بتصميم يوزفورم بحيث يتم ادخال بعض المتغيرات كالمادة واسم الأستاذ والأسدس والموسم الدراسي واسم المؤسسة واما باقي المعلومات يتم استيرادها من الجدول الموجود في بيانات التلاميذ، لكن الفكرة هي قائمة على اساس انه يمكنني ان اتحكم في طباعة الشهادة التقديرية بحيث هناك انواع متعددة للشهادة الموجودة في اليوزفورم يكمنني اختيار الشهادة التي اريد من خلال الضغط على التالي والسابق المطلوب : 1- ملء البيانات 2- يكون هناك اختيار مثلا اذا اردت ان اقوم بطباعة الشهادة لأول تلميذ في الجدول يمكنني ذلك 3- واذا اردت ان اقوم بطباعة الشهادة لجميع التلاميذ الموجودون في الجدول يمكنني ذلك، 4-وكذلك اريد ان تتم طباعة الشهادة بشكل أفقي A4 كما بحيث لا تكون هناك هوامش زائدة بعد الطباعة وشكرا لكم جميعا رابط تحميل الملف shahadat.1.2.0.xlsm

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

لا يوجد نموذج هكذا وانما هو نموذج لادخال الرتب والمواد ( ويمكن التعديل عليه لاحقا ورؤية البيانات ظاهرة) فقط انا نسيت عمل نموذج لادخال المعلمين الجدول الاسبوعي هذا حسب الغرفة يمكننا عرض دروس المعلم خلال اسبوع على كل الغرف التي يدرسها

Private Sub TextBox7_Change() If IsDate(Me.TextBox7) And IsNumeric(Me.TextBox4) Then Me.TextBox8 = Format(CDate(Me.TextBox7) + CDbl(Me.TextBox4) - 1, "yyyy/mm/dd") Else Me.TextBox8 = "" End If End Sub تنسيق التاريخ و اظافة و تعديل.xlsb

مرة ثانية لا تضغط تم حل الاجابة قبل ان تتاكد من انك انهيت ما تريد او افتح موضوع جديد تحياتي ShowAllpic.zip

وعليكم السلام ورحمة الله وبركاته نموذج 41_ office (1).xlsx