ناصر سعيد

الجزء48 توزيع الطلاب على الصفوف(اللجان)vba ساجدة العزاوي ================================ الملف http://www.4shared.com/file/qpHc1_Dab... رابط صفحتنا على فيس بوك https://www.facebook.com/learn.excel07 جروبنا المختص في مواضيع الاكسل و الـ VBA و ينشر فيه دروسنا https://www.facebook.com/groups/learn...

شرح توزيع الطلاب على الصفوف

============================================= Sub ExpiredDate() Dim LastRow As Integer Dim LastRow2 As Integer Dim Datecounter As Integer Dim SnNo As Integer Dim Mtype As String Dim Cname As String Dim Idate As Date Dim PhNo As String Dim Adrs As String Dim Nvisit As Date expd = Worksheets("Main").Range("A1") MyDate = Date Datecounter = 0 i = 0 Worksheets("Notifications").Range("A2:G1001").ClearContents Worksheets("Main").Counterlbl.Caption = 0 LastRow = Worksheets("Machines_card").Range("A2").End(xlDown).Row For irow = 2 To LastRow 'find data.................... With Worksheets("Machines_card") If (.Cells(irow, 7) - MyDate) <= expd And (.Cells(irow, 7) - MyDate) > -1 Then SnNo = .Cells(irow, 1) Mtype = .Cells(irow, 2) Cname = .Cells(irow, 3) Idate = .Cells(irow, 4) PhNo = .Cells(irow, 5) Adrs = .Cells(irow, 6) Nvisit = .Cells(irow, 7) i = i + 1 Datecounter = Datecounter + 1 Worksheets("Main").Counterlbl.Caption = Datecounter 'Moving data................. With Worksheets("Notifications") LastRow2 = Worksheets("Notifications").Cells(.Rows.Count, "A").End(xlUp).Row .Cells(LastRow2 + 1, 1) = SnNo .Cells(LastRow2 + 1, 2) = Mtype .Cells(LastRow2 + 1, 3) = Cname .Cells(LastRow2 + 1, 4) = Idate .Cells(LastRow2 + 1, 5) = PhNo .Cells(LastRow2 + 1, 6) = Adrs .Cells(LastRow2 + 1, 7) = Nvisit End With End If End With Next irow End Sub هذا هو الكود المطلوب التعديل فيه .. جزاكم الله خيرا

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

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

عمل ولاأروع .. جزاك الله خيرا أستاذ سليم

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

اولا جزاك الله كل خير وساجري التجارب على الملف وساوافيك مساء إن شاء الله بطيب الكلام

مامعنى =CHAR(156) واذا اردنا حمايه المعادلات من الحذف ايضا ... ربنا يحفظك عليك حماية الورقة ككل باستثناء الخلايا الخلايا التي بمكن ان تدرج فيها عدد الايام المطلوبة

وماذا افعل عند عمل ملف جديد ؟ اين توجد المعادلات المحميه ؟

استاذ سليم يحفظك ربنا ويصونك سامحني اشرحها لي ومافائده الجدول الصغير الموجود بالصفحه المصدر وماذا افعل عند عمل ملف جديد ؟

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

هذا ملف اهداه لي الاستاذ ياسر خليل ولكني اريد فيه التغيير المطلوب جزاكم الله خيرا ان يكون في صفحه اخرى ثم يكون فيه خليه اعلا الصفحه الاخرى نكتب فيها عدد الايام التي نريد ان تسبق ميعاد الدفع للاشعار Expiry Dates Using Conditional Formatting YasserKhalil.rar

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

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

الاستاذ المحترم محمد الدسوقي كان لك برنامج الكنترول وكان مفتوح الاكواد من سوء حظي ان الموقع حذف برنامجكم ... رجاء ان تمدنا برابط اخر

الاساتذه الكرام الاستاذ ابوعبد الباري والاستاذ زيزو لماذا لاتشاركون وانتم قمم ؟ ....في هذا الرابط

تعديل بالمسح.rar

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

الاستاذ محمد الدسوقي اين انت ؟ لك باع كبير في برنامج الكنترول ولذا نرجو تشريفك هنا ============================== الصف الخامس الابتدائى هنــا برنامج خاص بالمحترم محمد الدسوقي محمد إبراهيم الدسوقى معلم أول ( أ ) حاسب آلى محافظة الغربية ـ إدارة سمنود التعليمية مدرسة أم المؤمنين الابتدائية ـ بالراهبين 01125915740 // 01274757320 @@@@@@@@@@@@@@@@@@@@@@@ E.mail : me.100100@yahoo.com Facebook_Pro. : Mohamed Eldesoky @@@@@@@@@@@@@@@@@@@@@@@

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

ويضاف عليهم 4 انشطه مشتركه للصفوف ال5 وهي رسم والعاب ونشاط 1 و تشاط 2 ودرجاتهم من 100 هذه هي المواد ودرجاتها بالصفوف ال5 بالتعليم الابتدائي الحكومي اما التجريبى واللغات فلا اعرف عنهم شيئا

الصف الاول والصف الثاني والصف التالث درجاته 70 درجه للتقويم و30 درجة للنحريري اما الصف الرابع والصف الخامس درجاتهم 60 درجه تقويم و40 درجه تحريري المواد المقرره اللغه العربيه والرياضيات واللغه الانجليزيه والتربيه الدينيه للصف الاول والتاني والتالت المواد المقرره اللغه العربيه والرياضيات واللغه الانجليزيه والتربيه الدينيه ويزيد عليم العلوم والدراسات للصف الرابع والخامس اما الصف السادس يتبعوا كنترول الاداره ملناش فيه

للرفع رفع الله مقداركم

كود يصلح للمدارس المصريه لاستخراج حاله الطالب '================================ 'هذا الكود للاستاذ المحترم ياسر العربي 'الهدف من الكود هو استخراج حاله الطالب سواء كان ناجحا او عنده دور تان او غايب ' Sub اظهار_حاله_الطالب() 'YASSER_ELARABY Dim ARR Dim ARRY Dim ARRYS '___________________________________________ Dim R As Long Dim X As Long Dim XX As Byte Dim ALL_LESS As String '___________________________________________ Const STATUS As Byte = 135 'عمود الحالة ناجح او دور ثان Const NOTES As Byte = 136 ' عمود الملاحظات عمود المواد او منقول للصف ا لاخر Const GENDER As Byte = 5 ' عمود الجنس ذكر او انثى '_____________________________________________________ Const LESS_ROW As Byte = 6 'صف الدرجة الصغرى Const NAM_ROW As Byte = 2 'صف اسماء المواد Const NAME_FIRST As Byte = 6 ' اول صف لاسماء الطلاب Dim NAME_LAST As Long: NAME_LAST = Sheets("بيانات المدرسة").Range("B10").Value + NAME_FIRST ' عدد الطلاب '_____________________________________________________ ARR = Array(20, 31, 42, 53, 68, 140) ' اعمدة اختبار الفصل الدارسي الثاني لجميع المواد ARRY = Array(24, 35, 46, 57, 72, 140) 'اعمدة الدرجة النهائية لجميع المواد ARRYS = Array(15, 26, 37, 48, 59, 140) 'اعمدة اسماء كل المواد '_____________________________________________________ With Sheet8 'اسم شيت البيانات Application.ScreenUpdating = False Application.EnableEvents = False Application.Calculation = xlCalculationManual 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) = 140 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 '____________________________________________________ 'هذا الجزء خاص بمادة العلوم تحديدا الفصل الدراسي الثاني لانه مقسم على عمودين فتم اضافة هذا الجزء ليتم معالجة هذه المرحلة 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 = 6 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) = "ومنقول " & Sheets("بيانات المدرسة").Range("B11") 'ويتم وضع في الملاحظات منقول الى ويتم جلب الصف من صفحة الانفو If .Cells(R, GENDER) = "أنثى" Then .Cells(R, NOTES) = "ومنقولة " & Sheets("بيانات المدرسة").Range("B11") 'مثل ماسبق 'اما اذا كان المتغير يحمل اي بيانات لمواد يصبح الطالب له دور ثان 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.EnableEvents = True Application.Calculation = xlCalculationAutomatic MsgBox "بتوفيق الله .. تم اظهار النتيجة بنجاح" End Sub