بوابة الثانوية العامة المصرية - الشيت النهائى إعدادى و إبتدائى – شيت كنترول خالد دسوقى

بوابة الثانوية العامة المصرية (https://www.thanwya.com/vb/index.php)

- منتدى أعمال الامتحانات (https://www.thanwya.com/vb/forumdisplay.php?f=21)

[QUOTE=خالد دسوقى;4735193]أخى mahmoud عند الضغط على اللينك تظهر لك رسالة وتفتح صقحة الماكرو

ويتوقف المؤشر فوق كلمة Next

إضغط على مفتاح Home لتجد المؤشر فى بداية السطر

إضغط Enter ( ثلاث ) مرات

فى كل مرة ستجد كلمة Next نزلت لأسفل

فى السطور الخالية أكتب التالى

" kh19 = "AI
GoTo aam
End If

فى الشريط أعلى الشاشة إضغط على ( سهم ) " Run " لإستكمال تنفيذ الماكرو

[/QUOTE

شكرا استاذ خالد على مجهودك وتعبك
تمام الشيت ظبط
والى حضرتك الملاحظات بعد تكملة الشيد بالدرجات واخراج النتيجة
1)
الدراسات فى الترم الاول عند الضغط على فحص الرصد والتجميع يقول راجع رصد الخانة ( 11as ) مع انها مرصودة
ولكن بعد تكملة رصد الترم الثانى ونضغط على الترم الاول لمراجة الرصد والتجميع تعمل
2)
فى مادة الرياضيات فى الترم الاول بعد اتمام الرصد والضغط على ( اضغط هنا عند انتهاء الرصد اضغط هنا لاظهار نتيجة الدور الاول تجد ان مجموع مادة الرياضيات يتغير فى الترم الاول بحيث يتم جمع تقويمات ترم اول + اختبار تحريرى ترم اول الجبر فقط دوت الهندسة
3)
فى مادة الرياضيات فى الترم الثانى خانة مجموع الهندسة والجبر يمكن الكتابة فيها وعند الضغط لمراجعة الرصد والتجميع لا تعمل الا بعد كتابة مجموع الجبر والهندسة يدويا
4)
كشف رصد اعمال السنة لا تتغير البيانات الاساسة ( المحافظة والادارة واسم المدرسة وايضا مدير المدرسة
5 )
صفحة احصائية بالمواد التى تم رصدها البيانات الاساسة لا تتغير تظل على البيانات القديمة( المحافظة والادارة واسم المدرسة وايضا مدير المدرسة ورئيس الكنترول وبها عنوان للصف الثالث الابتدائى ومع العلم ان قمت باختيار اعدادى
6)
بعض الاوراق تحتاج الى ضبط فى الطباعة لان بعض الخانات الاخير لا تظهر فى الطباعة الأخيرة
وفى النهاية شكرا لسعة صدرك وانك تحملتنى
اخوك محمود سعيد

[QUOTE=mahmoudsaeed;4737520]

اقتباس:

المشاركة الأصلية كتبت بواسطة خالد دسوقى (المشاركة 4735193)

أخى mahmoud عند الضغط على اللينك تظهر لك رسالة وتفتح صقحة الماكرو

ويتوقف المؤشر فوق كلمة Next

إضغط على مفتاح Home لتجد المؤشر فى بداية السطر

إضغط Enter ( ثلاث ) مرات

فى كل مرة ستجد كلمة Next نزلت لأسفل

فى السطور الخالية أكتب التالى

" kh19 = "AI
GoTo aam
End If

فى الشريط أعلى الشاشة إضغط على ( سهم ) " Run " لإستكمال تنفيذ الماكرو

[/QUOTE

شكرا استاذ خالد على مجهودك وتعبك
تمام الشيت ظبط
والى حضرتك الملاحظات بعد تكملة الشيد بالدرجات واخراج النتيجة
1)
الدراسات فى الترم الاول عند الضغط على فحص الرصد والتجميع يقول راجع رصد الخانة ( 11as ) مع انها مرصودة
ولكن بعد تكملة رصد الترم الثانى ونضغط على الترم الاول لمراجة الرصد والتجميع تعمل
2)
فى مادة الرياضيات فى الترم الاول بعد اتمام الرصد والضغط على ( اضغط هنا عند انتهاء الرصد اضغط هنا لاظهار نتيجة الدور الاول تجد ان مجموع مادة الرياضيات يتغير فى الترم الاول بحيث يتم جمع تقويمات ترم اول + اختبار تحريرى ترم اول الجبر فقط دوت الهندسة
3)
فى مادة الرياضيات فى الترم الثانى خانة مجموع الهندسة والجبر يمكن الكتابة فيها وعند الضغط لمراجعة الرصد والتجميع لا تعمل الا بعد كتابة مجموع الجبر والهندسة يدويا
4)
كشف رصد اعمال السنة لا تتغير البيانات الاساسة ( المحافظة والادارة واسم المدرسة وايضا مدير المدرسة
5 )
صفحة احصائية بالمواد التى تم رصدها البيانات الاساسة لا تتغير تظل على البيانات القديمة( المحافظة والادارة واسم المدرسة وايضا مدير المدرسة ورئيس الكنترول وبها عنوان للصف الثالث الابتدائى ومع العلم ان قمت باختيار اعدادى
6)
بعض الاوراق تحتاج الى ضبط فى الطباعة لان بعض الخانات الاخير لا تظهر فى الطباعة الأخيرة
وفى النهاية شكرا لسعة صدرك وانك تحملتنى
اخوك محمود سعيد

فعلا هذة الملاحظات ظهرت عندى

شكرا لك أستاذي علي الشيت ونرجو منك التعديلات التي طرحها الزملاء

إخوتى الأعزاء ........

لقد قرأت ملاحظات أخى محمود سعيد ومن حينها وأنا أعمل على حل هذه الملاحظات ....

وأنا فى إنتظار جميع الملاحظات ........ لعل هناك ملاحظات أخرى

1 - AS11 ..... تصحيح فى module20
AS يدلآ من AM

kh1 = Range("AS" & i).Value

كود PHP:


		
			
For i = 11 To kh + 10
        Range("AS" & i).Select
        kh1 = Range("AS" & i).Value '
        If kh1 = "&Ucirc;" Then kh1 = 1
   If kh1 > k19 Or k19 = 0 Or kh1 < 0 Or kh1 = "" Then
            kh19 = "AS"
   GoTo aam
   End If
Next i

بدلآ من

كود PHP:


		
			
For i = 11 To kh + 10
        Range("AS" & i).Select
        kh1 = Range("AM" & i).Value '
        If kh1 = "&Ucirc;" Then kh1 = 1
   If kh1 > k19 Or k19 = 0 Or kh1 < 0 Or kh1 = "" Then
            kh19 = "AS"
   GoTo aam
   End If
Next i

وكذلك فى نفس الموديول إضافة GoTo MaTh2 ثم :MaTh2

كود PHP:


		
			
GoTo MaTh2
Skp:
k19 = Range("BL9").Value
For i = 11 To kh + 10
        Range("BL" & i).Select
        kh1 = Range("BL" & i).Value '
        If kh1 = "&Ucirc;" Then kh1 = 1
   If kh1 > k19 Or k19 = 0 Or kh1 < 0 Or kh1 = "" Then
            kh19 = "BL"
   GoTo aam
   End If
Next i
MaTh2:

تصحيح فى module16

كود PHP:


		
			
GoTo MaTh
SKP12:
                Range("BG" & i).Select
        If Range("BD" & i) = "&Ucirc;" And Range("BE" & i) = "&Ucirc;" Then
    ActiveCell.FormulaR1C1 = Range("BE" & i).Value
ElseIf Range("BD" & i) = "&Ucirc;" And Range("BE" & i) <> "&Ucirc;" Then
    ActiveCell.FormulaR1C1 = Range("BE" & i).Value
ElseIf Range("BE" & i) = "&Ucirc;" And Range("BD" & i) <> "&Ucirc;" Then
    ActiveCell.FormulaR1C1 = Range("BD" & i).Value
Else
    ActiveCell.FormulaR1C1 = Range("BD" & i).Value + Range("BE" & i).Value
        End If
If Sheets("AAM1").Range("U4") = "10" Then GoTo SKP1
MaTh:

ولكن

يبدو أن " الشيت النهائى " لن يكون الأخير كما ظننت

فليس كل الزملاء قادرين على تصحيح الماكرو لذلك

يجب على’ تصحيح جميع الملاحظات وعرض الشيت مرة أخرى وهذا ليس بالمشكلة

المشكلة أنه خطرت لى فكرة ..........

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

المشكلة أنه يتم حفظ الشيت الجديد فى :
1 - إما فى My Documents
2 - أو البارتيشن المستخدم
3 - أو أن تظهر رسالة للمستخدم ليختار المكان الذى يريد

وأنا أريد أن أحفظة داخل فولدر ( مجلد ) لذلك مازال البحث مستمر

أفتونى

أيهم أفضل مكان لحقظ الشيت ؟؟؟؟؟؟؟؟؟؟؟

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

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

كيف يمكن تغيير الواجهة الرئيسية ( اسم المدرسة و الادارة التعليمية ) ؟؟ و شكرا لانه عند ككتابة اى رقم اريده لا يقبل به ؟ فكيف يمكن الغاء الحماية للشيت و شكرا للمجهود المبذول

ده شيت اعدادي بس عايزين ابتدائي

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

جهد مشكور بارك الله فيكم

بارك الله فيك

جميل جدا ورائع

جزاكم الله خيرا وبارك الله فيكم