ناصر سعيد

رابط اخر هديه لمحبي التعلم .. بخصوص كشوف الرصد للابتدائـي والاعدادي https://up.top4top.net/downloadf-719jx7yb1-rar.html

وضعت في هذا المرفق كودكم الرائع بشرح الكود وصفحه الشهادات وارجو تفعيل الكود بهذا المرفق .. كرما منكم شهادات استاذ زيزو2.rar

الاساتذه المحترمون عند قراءتك لاي موضوع يجب ان تشكر صاحب الموضوع وتشكر كل من كانت له بصمه في الموضوع ثم تطلب طلبك مع اعتبار انك مش عارف تفتحه لشيء في جهازك مثلا لان هذ ا العمل اخذ من صاحبه وقتا وجهدا ... فاقل شيء كلمه شكر ثم الطلب جزاكم الله خيرا

اولا وقبل اي شيء ادعو لك الله ان يغفر لي ولك وان يمدك بالصحه والعافيه ... وبعد : في البرنامج كيف تتم عمليه الرصد ؟ في الكود السابق لم ار صفحه المصدر التي ستاخذ منها بيانات الدرجات والاسم وغير ذلك ... فاين هذه الصفحه ؟ هذا ملف به الكود السابق ارجو تفعيله 1شهادات استاذ زيزو.rar

اللغه الفرنسيه اصبحت نشاط اختياري على مستوى الجمهوريه كشوف رصد الدرجات التجميعيه http://www.mediafire.com/…/%D9%83%D8%B4%D9%88%D9%81_%D8%A7%…

اللغه الفرنسيه ..اصبحت نشاط اختيارى للجمهوريه كلها

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

جزاك الله كل خير استاذ زيزو Sub RangLY() ' كود شهادات آخر العام لجميع الشعب Dim ws As Worksheet, sh As Worksheet Dim Arr As Variant Dim x, y, z, r, s As Long Set ws = Sheets("شهادة آخر العام") Set sh = Sheets(ws.Range("X2").Value) Application.ScreenUpdating = False Call SubjectsNames3 Call RemovShp Arr = Array(10, 14, 18, 22, 26, 30, 34, 38, 42, 46, 50, 59, 60, 64, 68) y = 9 + (ws.Range("T1").Value - 1) * 3 + 1 z = 9 + ws.Range("T1").Value * 3 s = 11 For r = y To z For x = LBound(Arr) To UBound(Arr) ws.Cells(s, x + 6) = sh.Cells(r, Arr(x)) ws.Cells(s - 5, 19) = sh.Cells(r, 4) ws.Cells(s - 4, 6) = sh.Cells(r, 3) ws.Cells(s - 4, 19) = sh.Cells(r, 2) ws.Cells(s - 5, 14) = ws.Cells(2, 24) ws.Cells(s + 1, 6) = sh.Cells(r, 69) & " : " & sh.Cells(r, 70) Next s = s + 11 Next Call Crl_Shp Application.ScreenUpdating = True End Sub ارجو شرح هذا الكود ... جزاكم الله كل خير

======== حقا انه كنز يحتوي على العديد من الاكواد غير العاديه ... جعل الله هذا العمل في كفه حسناتك ========================== أخي الغالي إن شاء الله سيعدك الله .. وما علينا إلا أن نزرع أما الحصاد فبالتأكيد له أوانه .. افعل ما يجب عليك فعله فلربما يأتي اليوم الذي يحتاج إليه - ( أناس اليوم واناس آخرون ) - ما نقدمه .. فيتركوا لنا دعوة بظهر الغيب .. وما أجملها من دعوة من شخص لا تعرفه في زمان لا تعرفه في وقت وأجل لا تعرفه ، ومن يدري لعلها تخفف عنا تقبلوا وافر تقديري واحترامي جمل نادره .. ربنا يحفظك

ربنا يحفظك ويصونك اخي الكريم استاذ زيزو العحوز

جميع سجلات الكنترول Word https://up.top4top.net/downloadf-704vruqm1-rar.html ============================= تفضل اخي الكريم كنترول شيت المرحله الاعدادية .. تم عمل جميع التعديلات وتصحيح الاخطاء..نرجوا اعادة تحميل البرنامج تم تجديد الرابط بتاريخ 2017/12/18 ..العمل كله خالصا لوجه الله http://www.mediafire.com/…/%D8%A7%D8%B9%D8%AF%D8%A7%D8%AF%D…

اريد ان اجمع افضل اعمال الاستاذ ياسر خليل وخاصه في الاستدعاءات والترحيل بالمصفوفات واضعها تحت الاضواء بطريقتي المطلوب جزاكم الله خيرا وضع روابط بافضل اكواده في الاستدعاءات والترحيل بالمصفوفات أخي الغالي لا تحزن ..إن فرج الله قريب .. وما علينا إلا أن نزرع أما الحصاد فبالتأكيد له أوانه .. افعل ما يجب عليك فعله فلربما يأتي اليوم الذي يحتاج إليه أناس آخرون ما نقدمه .. فيتركوا لنا دعوة بظهر الغيب .. وما أجملها من دعوة من شخص لا تعرفه في زمان لا تعرفه في وقت وأجل لا تعرفه ، ومن يدري لعلها تخفف عنا تقبلوا وافر تقديري واحترامي جمل نادره .. ربنا يحفظك

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

ربنا يحفظ الاستاذ عبد الله باقشير ويحفظك لانك اعدت اخراج الكنز

ستجد طلبك ان شاء الله هنا

نبتغي وجه الله ونريد نشر العلم النافع .. . ادعو الله ان يكون في كفة الحسنات للجميع لكل من له بصمه في الخير وشكرا لك استاذ احمد الحاوي

برنامج قوائم الفصول للمرحله الابتدائيه للمحترم عبد الباري البنا من روائع المحترم الاستاذ الخلوق عبد الباري البنا برنامج قوائم الفصول للمرحله الابتدائيه https://up.top4top.net/downloadf-710u2ny71-rar.html اللهم اني اسالك بحق اسمك الاعظم ان تبارك في المحترم عبد الباري البنا وامثاله https://up.top4top.net/downloadf-710u2ny71-rar.html

بسم الله الرحمن الرحيم من اروع الكنترولات الخاصه بالمدارس نظرا لانه يعتمد على الاكواد القويه السريعه ستجد فيه جميع احتياجاتك من المخرجات لاعمال الكنترول حفظ الله الاستاذ المحترم / عبد الباري البنا كنترول شيت المرحله الابتدائية . بتاريخ 2017/12/10 . تم اجراء التعديلات النهائية كلمه السر 1111 https://up.top4top.net/downloadf-70974rgt1-rar.html ===================== ملف تفعيل الماكرو يدويا للمحترم عبد الباري البنا https://up.top4top.net/downloadf-711gpkup1-rar.html ===== شرح الجزء الاول من البرنامج الرائع https://up.top4top.net/downloadf-711vrswc1-rar.html ===== شرح الجزء الثاني من البرنامج الرائع https://up.top4top.net/downloadf-711ps79t1-rar.html ===== البرنامج الخاص بالمحترم عبد الباري البنا جزاه الله عنا كل خير https://up.top4top.net/downloadf-711j94ex1-rar.html ===== رابط آخر للشيت الورقـي الخاص بالابتدائـي والاعدادي https://up.top4top.net/downloadf-711lyjxn1-rar.html ========== البرنامج منشور على صفحات الفيس للجميع

اقسم بالله لم استطع تحميله من هذا الرابط السيء وانا اثق ان الاستاذ المحترم ياسر قدم هذا العمل ويبتغي وجه الله ارجو تغيير الرابط

Sub طباعة() 'هذا الكود خاص بالمحترم بن عليه '(K1) هذه الحليه هي خليه عدد الصفات التي ستطبه 'وهذه هي معادله عدد الصفحات '=ROUNDUP(MAX('مناداة 1'!$A:$A)/10;0) For I = 1 To [K1] If I <= [K1] Then [G1] = I ActiveWindow.SelectedSheets.PrintOut Copies:=1 End If Next [G1] = 1 End Sub جزاك الله كل خير وبارك فيك استاذ بن عليه

ربنا يحفظك ويصونك الاستاذ الخلوق بن عليه وللاستاذ الكبير الخالي تحيه اعزاز واين انت واين فيض علمك جزاكم الله كل خير ربنا يحفظك ويصونك الاستاذ الخلوق بن عليه وللاستاذ الكبير الخالدي تحيه اعزاز واين انت واين فيض علمك جزاكم الله كل خير

=SUMPRODUCT(($F$4:$F$8)*($B$4:$B$8="ذكر"))/COUNTIF($B$4:$B$8;"ذكر") ربنا يبارك فيك الاستاذ المحترم ملك المعادلات بن عليه

بسم الله الرحمن الرحيم احبابي في الله ادعو الله ان تكونو بخير يارب هذا ملف به كود ممتاز يصلح لرجال التربيه والتعليم وخاصه رجال الكنترول شيت رائع وبه كود الحاله ( ناجح او له دور تان ) ما اسهله وما اروعه ===== Sub استخراج_حالة_الطالب() 'تم هذا الكود بواسطه المحترم ياسر العربي 'فائده هذا الكود هو استخراج حاله الطالب من 'ناجح او دور تان وكذلك استخراج مواد الدور لتاني 'تم في 28/8/2016 'حسب معطيات المحترم ابو احمد محمدي عبد السميع Dim ARR Dim ARRY Dim ARRYS '___________________________________________ Dim R As Long Dim X As Long Dim XX As Byte Dim ALL_LESS As String Dim Main As Worksheet Dim Info As Worksheet Set Main = Sheets("رصد الترم الثانى") Set Info = Sheets("بيانات المدرسة") '___________________________________________ Const STATUS As Byte = 133 'عمود الحالة ناجح او دور ثان Const NOTES As Byte = 134 ' عمود الملاحظات عمود المواد او منقول للصف ا لاخر Const GENDER As Byte = 141 ' عمود الجنس ذكر او أنثى Const TOTAL As Byte = 98 Const LESS_ROW As Byte = 6 'صف الدرجة الصغرى Const NAM_ROW As Byte = 2 'صف اسماء المواد Const NAME_FIRST As Byte = 6 ' (اول صف لاسماء الطلاب -1) Const Absent As Byte = 12 'عدد المواد لحساب الغياب Dim NAME_LAST As Long: NAME_LAST = Info.Range("B10").Value + NAME_FIRST ' عدد الطلاب '====== '_____________________________________________________ 'اعمدة اختبار الترم التاني 'رقم عمود المجموع يكتب هنا ARR = Array(10, 21, 32, 43, 135, 65, 72, 79, 86, 93, 105, 98) 'اعمدة الدرجة النهائية 'ايضارقم عمود المجموع يكتب هنا ARRY = Array(14, 25, 36, 47, 60, 68, 75, 82, 89, 96, 109, 98) 'اعمدة اسماء كل المواد 'ايضارقم عمود المجموع يكتب هنا ARRYS = Array(5, 16, 27, 38, 49, 63, 70, 77, 84, 91, 100, 98) '================= With Main 'اسم شيت البيانات Application.ScreenUpdating = False 'الغاء تحديث الشاشة Application.Calculation = xlManual ' ايقاف الحساب التلقائي For R = NAME_FIRST To NAME_LAST ' حلقة تكرارية تبدأ بأول اسم طالب الى اخر اسم For X = 0 To UBound(ARR) ' حلقة تكرارية تبدأ من الصفر الى اقصى مصفوفة اعمدة اختبار الفصل الدارسي الثاني On Error Resume Next '____________________________________________________ 'يتم حساب عدد ا لمواد المتغيب بها الطالب او درجتها صفر ويتم وضع عدد المواد في المتغير اكس اكس 'اذا وصل عدد المواد الى 11 اصبح الطالب متغيب If .Cells(R, ARRY(X)) = 0 Or .Cells(R, ARRY(X)) = "غ" Then XX = XX + 1 End If '___________________________________________________ If ARR(X) = TOTAL Then 'لايوجد اختلاف بين هذا الكود وبين الكود الموجود بالاسفل If .Cells(R, ARR(X)) < .Cells(LESS_ROW, ARR(X)) Then ALL_LESS = ALL_LESS & .Cells(NAM_ROW, ARRYS(X)) & " لنصف الدرجة " & " - ": GoTo 86 GoTo 86 Else GoTo 86 End If End If '____________________________________________________ 'هنا يتم مقارنة المواد بالدرجة الصغرى الخاصة الفصل الدارسي الثاني في اول الكود او اذا كانت غياب يتم اضافة اسم المادة من صف المواد الى المتغير 'ALL_LESS 'او مقارنة الدرجة النهائية لكل مادة بالدرجة الصغرى لها او اذا كانت غياب اذا تحقق الشرط فيتم اضافة المادة الى المتغير 'ALL_LESS '______________________________________________________ If .Cells(R, ARR(X)) < .Cells(LESS_ROW, ARR(X)) Or .Cells(R, ARR(X)) = "غ" Then ALL_LESS = ALL_LESS & .Cells(NAM_ROW, ARRYS(X)) & " لثلث الدرجة " & " - ": GoTo 86 End If If .Cells(R, ARRY(X)) < .Cells(LESS_ROW, ARRY(X)) Or .Cells(R, ARRY(X)) = "غ" Then ALL_LESS = ALL_LESS & .Cells(NAM_ROW, ARRYS(X)) & " - " End If '______________________________________________________ 86 Next X 'الذهاب الى المادة الاخرى لاعادة تطبيق الكود مرة اخرى حتى انتهاء جميع المواد 'اذا كان المتغير اكس اكس بيساوي عدد المواد اذن الطالب متغيب If XX = Absent Then ALL_LESS = "غياب ": XX = 0 '_____________________________________________________ 'هنا بعد اكتمال الكود يتم عمل شرط للمتغير 'ALL_LESS 'اذا كان المتغير فارغ اي لم يتم اضافة اي مواد به اذا الطالب ناجح If ALL_LESS = "" Then If .Cells(R, GENDER) = "ذكر" Then .Cells(R, STATUS) = "ناجح " 'اذا كان نوع الطالب ذكر يتم وضع ناجح If .Cells(R, GENDER) = "أنثى" Then .Cells(R, STATUS) = "ناجحة " 'اذا كانت أنثى يتم وضع ناجحه If .Cells(R, GENDER) = "ذكر" Then .Cells(R, NOTES) = "ومنقول " & Info.Range("B16") 'ويتم وضع في الملاحظات منقول الى ويتم جلب الصف من صفحة الانفو If .Cells(R, GENDER) = "أنثى" Then .Cells(R, NOTES) = "ومنقولة " & Info.Range("B16") 'مثل ماسبق 'اما اذا كان المتغير يحمل اي بيانات لمواد يصبح الطالب له دور ثان ElseIf ALL_LESS <> "" Then If .Cells(R, GENDER) = "ذكر" Then .Cells(R, STATUS) = "له دور ثان في" 'مثل ما سبق بخصوص النوع If .Cells(R, GENDER) = "أنثى" Then .Cells(R, STATUS) = "لها دور ثان في" ' .Cells(R, NOTES) = Left(ALL_LESS, Len(ALL_LESS) - 2) 'هنا يتم وضع قيمة المتغير اي المواد في خلية الملاحظات ALL_LESS = Empty 'تفريغ المتغير لاعادة تعبئة اسم طالب اخر End If '_____________________________________________________ Next R 'الذهاب الى الصف التالي حتى انتهاء عدد الطلاب End With Application.ScreenUpdating = True 'اعادة تحديث الشاشة Application.Calculation = xlAutomatic 'تشغيل الحساب التلقائي End Sub استخراج حالة الطالب ومواد الرسوب نسخه منقحه1.rar

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

يحفظك الله ويرعاك اخي الكريم بن عليه الحل تمام لماذا تتحفظ على هذا الحل ؟