حصر الطلاب الغائبين في اختبارات الفصل الأول من نظام نور

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

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

2-
الطريقة1
نفتح الملفات ونبحث باستخدام خاصية البحث عن كلمة (غائب) ونختار البحث عن الكل، فتظهر لنا الصفحات التي يوجد بها كلمة غائب أسفل صندوق البحث، نسجلها في ورقة ثم نختار طباعة ونقوم بوضع أرقام الصفحات، ثم نطبعها.
أو
الطريقة2
نفتح ملف أول متوسط ثم نضغط على Alt+F11
للعربي: ثم نضغط على القائمة أدراج ثم الخيار الثاني Module
للانجليزي: insert> Module
ثم نلصق الأمر التالي:

Sub sama_print()
On Error Resume Next
For i = 1 To Sheets.Count
Sheets(i).Select
Sheets(i).[AQ1].Value = ""
With Sheets(i)
Range("AQ1").Font.ColorIndex = 2
End With

For Each cl In Range("a1:ao50")
If cl = "غائب" Then [AQ1].Value = "غائب"
Next

If Sheets(i).[AQ1].Value = "غائب" Then
Sheets(i).PageSetup.PrintArea = "a1:ao50"
Sheets(i).PrintOut copies:=1
End If
Next i
Sheet1.Select

End Sub

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

تابع الصور للطريقة2
أولا
[IMG]http://im40.********************************************/9H79Y.jpg[/IMG]

ثانيا
[IMG]http://im40.********************************************/y6EED.jpg[/IMG]

ثالثاً





[IMG]http://im40.********************************************/WCxVK.jpg[/IMG]


في المرفقات
1- ثلاث صور شرح التعامل مع المايكرو في برنامج أكسل
2- ملف اكسل (داخل الملف مضغوط) جاهز للاستخدام. يعني افتح الملف ثم افتح ملفاتك وشغل المايكرو وسيطبع لك الغائبين مباشرة.

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

:bhj:

بعد عشر سنوات من اتسجيل هذه أول مشاركة لي :a030:

الصور المصغرة للصور المرفقة http://www.alshref.com/vb/attachment...1&d=1390043875 http://www.alshref.com/vb/attachment...1&d=1390043875 http://www.alshref.com/vb/attachment...1&d=1390043875
الملفات المرفقة http://www.alshref.com/vb/images/attach/rar.gif PrintTranscriptTheSeparationOfTheFirst2a11.rar&rlm ; (42.4 كيلوبايت)