منير برهم

هل يمكن عمل ذلك بالمعادلات بدل الكود بحيث عند اختيار الشهر من قائمة مثل سبتمبر يكون هناك قائمة أخري يوجد فيها الفصول مثل ثامن1عند اختياره يأتي أسماء رسوب الفصل ثامن1 حتى ترحل بياناته في النموذج

بسم الله الرَّحْمَنِ الرَّحِيمِ‎

أخي الكريم هل يمكن عمل ذلك بالمعادلات بدل الكود بحيث عند اختيار الشهر من قائمة مثل سبتمبر يكون هناك قائمة أخري يوجد فيها الفصول مثل ثامن1عند اختياره يأتي أسماء رسوب الفصل ثامن1 حتى ترحل بياناته في النموذج

اخي الكريم الـعيدروس درجة الرسوب اقل من 10 انا اريدعند انتقاءالصف من القائمة يظهر شهادات جميع رسوب ثامن1 ثم بالمثل ثامن2.................الخ حسب الشهر الذي يتم اختياره معذرة لم استطع وضع الكود ارجو ان يكون واضح

السلام عليكم و رحمة الله وبركاته اخواني الكرام ارجو من اصحاب الخبرة اكمال ....... وجزاكم الله خيرا mnn.rar

علما باني ضفت نفس الفورم في 30 ورقة عمل في المصنف الواحد مع تغير بالأرقام كما هو مبين

Private Sub CommandButton1_Click() ' Dim M1, N1, i, x As Integer FromS = TextBox1.Value ToS = TextBox2.Value If FromS > ToS Then MsgBox "تأكد من الإدخالات" Else Page_p = ToS - FromS + 1 end_p = 0 For end_p = 1 To Page_p Range("SejelNo1") = FromS Range("SejelNo2") = FromS Range("SejelNo3") = FromS Range("SejelNo4") = FromS Range("SejelNo5") = FromS Range("SejelNo6") = FromS Range("SejelNo7") = FromS Range("SejelNo8") = FromS Range("SejelNo9") = FromS Range("SejelNo10") = FromS Range("SejelNo11") = FromS Range("SejelNo12") = FromS Range("SejelNo13") = FromS Range("SejelNo14") = FromS Range("SejelNo15") = FromS Range("SejelNo16") = FromS Range("SejelNo17") = FromS Range("SejelNo18") = FromS Range("SejelNo19") = FromS Range("SejelNo20") = FromS Range("SejelNo21") = FromS Range("SejelNo22") = FromS Range("SejelNo23") = FromS Range("SejelNo24") = FromS Range("SejelNo25") = FromS Range("SejelNo26") = FromS Range("SejelNo27") = FromS Range("SejelNo28") = FromS Range("SejelNo29") = FromS Range("SejelNo30") = FromS Range("SejelNo31") = FromS Range("SejelNo32") = FromS Range("SejelNo33") = FromS Range("SejelNo34") = FromS Range("SejelNo35") = FromS Range("SejelNo36") = FromS Range("SejelNo37") = FromS Range("SejelNo38") = FromS Range("SejelNo39") = FromS Range("SejelNo40") = FromS Range("SejelNo41") = FromS Range("SejelNo42") = FromS Range("SejelNo43") = FromS Range("SejelNo44") = FromS Range("SejelNo45") = FromS Range("SejelNo46") = FromS Range("SejelNo47") = FromS Range("SejelNo48") = FromS Range("SejelNo49") = FromS Range("SejelNo50") = FromS Range("SejelNo51") = FromS Range("SejelNo52") = FromS Range("SejelNo53") = FromS Range("SejelNo54") = FromS Range("SejelNo55") = FromS Range("SejelNo56") = FromS Range("SejelNo57") = FromS Range("SejelNo58") = FromS Range("SejelNo59") = FromS Range("SejelNo60") = FromS Range("SejelNo61") = FromS Range("SejelNo62") = FromS Range("SejelNo63") = FromS Range("SejelNo64") = FromS Range("SejelNo65") = FromS Range("SejelNo66") = FromS Range("SejelNo67") = FromS Range("SejelNo68") = FromS Range("SejelNo69") = FromS Range("SejelNo70") = FromS Range("SejelNo71") = FromS Range("SejelNo72") = FromS Range("SejelNo73") = FromS Range("SejelNo74") = FromS Range("SejelNo75") = FromS Range("SejelNo76") = FromS Range("SejelNo77") = FromS Range("SejelNo78") = FromS Range("SejelNo79") = FromS Range("SejelNo80") = FromS Range("SejelNo81") = FromS Range("SejelNo82") = FromS Range("SejelNo83") = FromS Range("SejelNo84") = FromS Range("SejelNo85") = FromS Range("SejelNo86") = FromS Range("SejelNo87") = FromS Range("SejelNo88") = FromS Range("SejelNo89") = FromS Range("SejelNo90") = FromS Range("SejelNo91") = FromS Range("SejelNo92") = FromS Range("SejelNo93") = FromS Range("SejelNo94") = FromS Range("SejelNo95") = FromS Range("SejelNo96") = FromS Range("SejelNo97") = FromS Range("SejelNo98") = FromS Range("SejelNo99") = FromS Range("SejelNo100") = FromS Range("SejelNo101") = FromS Range("SejelNo102") = FromS Range("SejelNo103") = FromS Range("SejelNo104") = FromS Range("SejelNo105") = FromS Range("SejelNo106") = FromS Range("SejelNo107") = FromS Range("SejelNo108") = FromS Range("SejelNo109") = FromS Range("SejelNo110") = FromS Range("SejelNo111") = FromS Range("SejelNo112") = FromS ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True FromS = FromS + 1 Next TextBox1 = "" TextBox2 = "" MsgBox "تمت طباعة النماذج /" End If Private Sub CommandButton2_Click() UserForm5.Hide End Sub Private Sub Label1_Click() End Sub Private Sub Label2_Click() End Sub Private Sub Label3_Click() End Sub Private Sub TextBox1_Change() End Sub Private Sub UserForm_Click() End Sub

شكرا اخي الكريم علي اهتمامك بصراحة اريد عند تغير الشعبة في مصنف nn يتم ترحيل البيانات تلقائيا من مصنف الفصل الاول الي مصنف nn وشكرا

ارجو تكملة هذا العمل سجل33.rar

الرجاء مساعتي في عمل قاعدة بيانات بالكسيل بواجهة فلاش

كيف نحسب الانحراف المعياري للاستبانة والمتوسط

up

ارجو مساعدتي في حساب المتوسط - الانحراف والنسبة وعمل بياني Book2.rar

السلام عليكم ورحمة الله وبركاته الرجاء اريد عدد تكرار كل صف في الجدول وتظليل للصف التي يتعارض بشكل راسي بلون محدد WER.rar

اريد طباعة جميع النماذج باضافة مايكرو

ارجو اكمال العمل كما في المرفق AWQ.rar

السلام عليكم ورحمة الله وبركاته ارجو مساعدتي في الحصول علي زر عند الضغط يظهر الرقم كما موضح في المرفق Book2.rar

رابط الرسالة التي تظر عند فتح ملف بروروينت http://www2.0zz0.com/2011/01/21/00/379068120.gif

http://www2.0zz0.com/2011/01/21/00/379068120.gif' alt='379068120.gif'>

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

ارجو من خبراء الاكسل افادتي في عمل برنامج ملاحظة من معلمين بحيث يوزع بشكل عادل مع عدم التكرار توزيع11.rar

ارجو المساعدة

بارك الله فيك وفي علمك واهلك معلش غلبتك كيف اطبع جميع الاسماء مرة واحدة

الشهادة بالاسماء شهادات.rar