بسم الله الرحمن الرحيم

اَلْحَمْدُ للهِ الَّذي هَدانا لِهذا وَما كُنّا لِنَهْتَدِيَ لَوْلا اَنْ هَدانَا اللّهُ

صدق الله العظيم

كل عام والأمة العربية والإسلامية بخير

الحمد لله الذى وفقنى فى جمع المرحلتين :

الإبتدائية ( بجميع صفوفها ) : الأول – الثانى – الثالث – الرابع - الخامس

والإعدادية ( بجميع صنوفها ) : عام – خاص – رياضى - فرنسى

فى شيت واحد فقط

ونظرآ لإختلاف درجات المواد بل والمواد ذاتها فى صفوف المرحلة الإبتدائية فقد قمت بتغيير

إرتباطات قيم الخلايا مع قيم الدرجات التى سيتم كتابتها فى الخلايا التى تركتها خالية فى بعض

المواد بل و يمكن تغيير الدرجات المكتوبة دون أن يؤثر ذلك على إحتساب الدرجة النهائية

كما يتيح ذلك إمكانية تعديل درجات المواد فى المستقبل


http://im29.gulfup.com/2012-07-20/1342739350951.bmp (http://www.gulfup.com/show/X9dgmgvhpoq8s0o)


http://im30.gulfup.com/2012-07-20/1342739974911.bmp (http://www.gulfup.com/show/X9dgn9cn54noc40)


http://im19.gulfup.com/2012-07-20/1342740121971.bmp (http://www.gulfup.com/show/X11hum45tfgpcck)


http://im12.gulfup.com/2012-07-20/134274047451.bmp (http://www.gulfup.com/show/X9dgnwjfb1ywwwk)



http://im29.gulfup.com/2012-07-20/1342740680241.bmp (http://www.gulfup.com/show/Xs4e0ls5mvr44c)




كما قمت بتعديل الأرقام السرية لتقبل أى رقم تشاء بدلآ من أرقام الجلوس

وهناك أضافات جديدة ......... تعرفوا عليها بنفسكم .


(( أرجو إستخدام اللينكات لأنها مرتبطة بأكواد ....... بلاش Sheet tabs ))

http://im28.gulfup.com/2012-07-20/1342743700641.bmp (http://www.gulfup.com/show/X34hl0crjiayog0)



أرجو من الله أن يكون هذا الشيت عونآ لجميع الزملاء فى تيسير وتسهيل عملهم .


" اللهم إنى أسألك قلبآ خاشعأ ولسانآ ذاكرآ وعلمآ نافعآ ورزقآ واسعآ وعملآ صالحآ يقربنى إليك "

بارك الله فيييييييييييييييك
وجعله في ميزان حسناتك
وكل عام وانتم بخير
ساقوم بالتحميل واجراء التجارب
واول مشكلة هي عدم ظهور الايقونات السفلية فهل هو عيب ويندوز ؟
لك شكري وتحياتي
سبحان الله وبحمده*سبحان الله العظيم

السلام عليكم
مرحبا بك أستاذ خالد. تشرفنا
من الصور يبدو أن الشيت رائع.جاري التنزيل و التجربة
دمت بخير . رمضان كريم

أخى الغيضانى مان ......... ( الأيقونات ) السفلية مخفية علشان تستخدم اللينكات ... منتظر رأيك

Mr Aysam .......... شرفت بمرورك الكريم.


أرجو ( تثبيت ) الموضوع لتعم الفائدة " ويذداد ثوابى عند الله "


كل عام وأنتم بخير .

365 ولم يبدى أى واحد بتيجة تجربته للشيت !!!!!!!!!!!

مبروك علينا

عند فتح الشيت تكون مواصفات الشيت هي ابتدائي ولا يوجد التحويل من ابتدائي الى اعدادي او العكس فهو ثابت على ابتدائي ولكن المحتوى هو اعدادي
لك شكري وتحياتي
سبحان الله وبحمده*سبحان الله العظيم

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

أخى أبو مونى شكرآ على مروك الكريم و بارك الله فيك .

أخى الغيضانى ...... الشيت المرفق بياناته ثابتة على المدخلات الموجودة به 0

إضغط على ( مسح الرصد القديم وتجهيز الشيت لرصد جديد ) لبداية رصد جديد خاص بمدرستك .


أخى منصور تمامى ........ بارك الله فيك ولك وشكرآ لك .

أخى أبو مونى شكرآ على مروك الكريم و بارك الله فيك .

أخى الغيضانى ...... الشيت المرفق بياناته ثابتة على المدخلات الموجودة به 0

إضغط على ( مسح الرصد القديم وتجهيز الشيت لرصد جديد ) لبداية رصد جديد خاص بمدرستك .


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

أخى الغيضانى ........ ما نتيجة تجربتك للشيت ........ 0

أخى الغيضانى ........ ما نتيجة تجربتك للشيت ........ 0


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

أخى الغيضانى ........ عند النسخ أرجو أن تنتبه :

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

فى المكان الذى ستنسخ فيه

إضغط بيمين الماوس ثم إختر .... Paste Special

ثم إختر Value

حتى لا تغير " ضبط " الخلايا .

عند اختيار المرحلة الجهاز يتقل ولا يحول الى المرحلة الابتدائية وربما انتظرت لمدة 20 دقيقة دون فائدة
لك شكري وتحياتي
سبحان الله وبحمده*سبحان الله العظيم

عفو آ ........ العيب فى جهازك .........
1 - " سطب " ويندوز جديد
2 - " سطب " ال Office
3 - إحتفظ بنسخة من الويندوز ببرنامج Norton Ghost لتسترجعها مرة أخرى إذا حدث خلل فى الويندوز

جزاك الله خيرا يازعيم ياستاذ / خالد دسوقى

على فكرة ياجماعة الاستاذ خالد استاذ والله

وابد ع فى عمل هذا الشيت

وكل عام وانت والمسلمون بخير

حسام سلام اللى ما بيرودش على التليفون

أخى الحبيب حسام ......... شكرآ لك على إطراءك وكل عام وأنت وأسرتك والمسلمين جميعآ بكل خير .

( لازم ترد )

بارك الله فييييييييييك يا استاذ خالد
سبحان الله وبحمده*سبحان الله العظيم

أخى الغيضانى ........... إيه الأخبار ........... ماذا حدث معك ؟؟؟؟؟؟؟؟

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

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

أخى الغيضانى ( محمد إبراهيم ) ....... أنا إستخدمت Office 2003 لعمل هذا الشيت ليتوافق مع باقى إصدارات ال Office وأنا جربته على Office 2010 ولم أجد أى مشكلة

هل الماكرو مفعل لديك .... يعنى لما بتشغل الشيت بتظهر لك رسالة " الحمد لله الذى هدانا لهذا "

هل واجه أحد الأعضاء هذه المشكلة ؟؟؟؟؟؟؟؟؟؟

أخى nnoorrmm يمكنك التحكم فى الطباعة من

Print Preview

setup

page setup

اخي العزيز استاذ خالد .................
عند استعمال الشيت يظهر الماكرو
وتظهر الرسالة الحمد لله الذي هدانا ........
ويقوم بالسؤال هل انت متاكد من مسح جميع البيانات طبعا ok ثم يطلب اكتب عدد الطلبة الجدد
واكتب 350 طالب وبعدها يطلب التحويل الى المرحلة فلم يتم الاستجابة
وقد عرفت سبب المشكلة الآن وهي ان عدد الطلبة كثير ولا يتم الاستيعاب وعندما كتبت 60 طالب فتح البرنامج معي ولكن عندنا في المدرسة لايقل العدد في الفرقة عن 350 طالب على الاقل
فارجو من حضرتك ان تصل بالعدد الى 400 على الاقل
ايضا لي ملاحظة ثانية وهي ان الصف الاول والصف الثاني عبارة عن مستويات (ممتاز،جيد،متوسط،ضعيف) ليست موجودة بالشيت اي مستويات
لك شكري وتحياتي
سبحان الله وبحمده*سبحان الله العظيم

أخى الغيضانى ......... الشيت مفتوح لأى عدد حتى أننى جربته الآن على 1000 فلم أحد مشكلة !!!

أما بخصوص المستويات ( التقدير ) للصفين الأول الثانى فقد علمت منك من قبل أن التقدير للصف الأول فقط لذلك :

1 - يمكنك إخفاء السطور التى تحتوى على الدرجات ( قبل طبع الشهادات مباشرة )

أو

2 - إضغط على Alt + F11 وعلى اليسار إضغط على Module4

إنزل فى الصفحة لأسفل حتى تجد ()Sub KindP2

ستجد ""=("Sheets("AAM1").Range("U7
خليها "17"=
مثل ماكرو الصف الأول الذى قبله ()Sub KindP1

جزاك الله كل الخير وجاري التحميل

أخى الكريم أحمد هاشم ......... شكرآ لمرورك الكريم وبارك الله فيك ولك.

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

أخى العزيز mahmoud شكرآ كثيرآ لك فأنت الوحيد الذى أفادنى حتى هذه اللحظة .

حقآ يوجد خطأ فى الماكرو فهو غير مكتمل

ولإكمال الماكرو أكتب ال 3 سطور ( أزرق ) بين السطرين الموجودين فى الماكرو ( أحمر )


If kh1 > k19 Or k19 = 0 Or kh1 < 0 Or kh1 = "" Then

"kh19 = "AI
GoTo aam
End If

Next i

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

أخى العزيز mahmoud شكرآ كثيرآ لك فأنت الوحيد الذى أفادنى حتى هذه اللحظة .

حقآ يوجد خطأ فى الماكرو فهو غير مكتمل

ولإكمال الماكرو أكتب ال 3 سطور ( أزرق ) بين السطرين الموجودين فى الماكرو ( أحمر )


if kh1 > k19 or k19 = 0 or kh1 < 0 or kh1 = "" then

"kh19 = "ai
goto aam
end if

next i




اخى حاولت ولكن مازال الخطا موجود

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

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

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

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

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

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

" kh19 = "AI
GoTo aam
End If

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

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

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

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

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

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

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

" kh19 = "AI
GoTo aam
End If

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


[/QUOTE

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

[QUOTE=خالد دسوقى;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

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

بدلآ من

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


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

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 - أو أن تظهر رسالة للمستخدم ليختار المكان الذى يريد

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

أفتونى

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

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

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

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

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

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

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

بارك الله فيك

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

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