كيف يمكن طباعة صفحات تحتوي على معلومة محددة؟

[واصل]

الإخوة الكرام

السلام عليكم ورحمة الله وبركاته

 

لدي ملف اكسل يتحتوي على درجات الطلاب

وفي هذا الملف 133 ورقة، كل ورقة تتحوي على درجات الطالب بالتفصيل

أريد فقط أن أطبع أوراق الطلاب الغائبين

الطالب الغائب مكتوب أمام مادته (غائب)

هل هناك طريقة مختصرة لطباعة هذه الأوراق المحددة؟

ولكم جزيل الشكر

 

ملاحظة: في المرفقات ملف مضغوط به ملف اكسل بتنسيق 97-2003

يوجد به أربع ورقات كمثال للمحتويات ودرجات الطلاب.

PrintTranscriptTheSeparationOfTheFirst2a.rar

[حمادة عمر]

السلام عليكم

الاخ الكريم /  واصل

بارك الله فيك

ولكن عذرا اخي الكريم فالمطلوب غير واضح بالنسبة لي بعض الشئ

وليسهل تنفيذ الطلب لي ولغيري ممن يمكنه المساعدة

ارجو الرد علي بعض التوضيحات

هل تقصد ان كل ورقة خاصة بطالب معين ؟

وهل تقصد انه اذا وجد اي كلمة غائب في هذه الصفحة في اي مادة .. تتم الطباعة

 

فمثلا في مثالك المرفق لايوجد كلمة غائب الا في  Sheet16  و Sheet28

هل تقصد طباعة هذين الشيتين كاملين فقط

او مزيد من التوضيح 

تقبل خالص تحياتي

[محمود_الشريف]

أخى الكريم 

على حسب ما فهمت من إستفساركم

أنكم ترغبون فى طباعه مثلا كل طالب أمامه (( غائب ))

أى تريد طباعه الطلاب الغائبين فقط

على ما أعتقد أنه يجب عمل ترحيل اولا لبيانات الطلاب الغائبين فى شيت مستقل ويسمى الغياب (( ترحيل بفلتره ))

ومن ثم يمكن طباعته 

والله المستعان

[واصل]

خبير أكسل

وعليكم السلام ورحمة الله وبركاته

شكرا لك على تفاعلك

 

"هل تقصد طباعة هذين الشيتين كاملين فقط"

 

أي نعم

[واصل]

 

أخى الكريم 

على حسب ما فهمت من إستفساركم

أنكم ترغبون فى طباعه مثلا كل طالب أمامه (( غائب ))

أى تريد طباعه الطلاب الغائبين فقط

على ما أعتقد أنه يجب عمل ترحيل اولا لبيانات الطلاب الغائبين فى شيت مستقل ويسمى الغياب (( ترحيل بفلتره ))

ومن ثم يمكن طباعته 

والله المستعان

 

 

الاستاذ/ محمود

شكرا لك على تفاعلك

يبدو لي أن هذه الطريقة جميلة، ولكن كيف؟

[حمادة عمر]

الأخ الكريم / واصل
بارك الله فيك
ضع الكود التالي في موديل واربطه بزر .. لتنفيذ طلبك ان شاء الله
================

sub sama()
On Error Resume Next
For i = To Sheets.count
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

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

[محمود_الشريف]

مرفق لكم أخى الكريم

نموذج لعله يكون المطلوب

PrintTranscriptTheSeparationOfTheFirst2a.rar

تم تعديل يناير 16, 2014 بواسطه محمود_الشريف

[محمود_الشريف]

عذرا أخى فى الله 

الأستاذ / حماده عمر

لم أأخذ بالى من أنكم وضعتم حل لما يريده الأستاذ / واصل

وتقبل منى وافر الإحترام والتقدير

[محمود_الشريف]

خبير أكسل

وعليكم السلام ورحمة الله وبركاته

شكرا لك على تفاعلك

 

"هل تقصد طباعة هذين الشيتين كاملين فقط"

 

أي نعم

مرفق لكم النموذج بناء على اجابتكم على استفسار الأستاذ / حماده 

بالمشاركه رقم 7

تم تعديل يناير 16, 2014 بواسطه محمود_الشريف

[واصل]

الأخ العزيز/ حمادة عمر

شكراً جزيلاً لك على تعاونك رغم صعوبات الانترنت التي تواجهها

وقد جربت تشغيل المايكرو بالكود الذي زودتني به ولكن واجهتني مشكلة

syntax error

كما يظهر في الصورة المرفقة

فما هو الحل؟

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

[واصل]

الاستاذ الكريم/ محمود الشريف

بارك الله فيك ووفقك لكل خير

الملف الذي وضعته جميل

ولكنه يحتاج مني إلى المرور على كل صفحة من صفحات الطلاب الغائبين حتى أطبع الصفحة .

وما أريده هو أن أضغط الزر فيطبع لي كل صفحة فيها كلمة غائب.

ولكني استفدت من ضبط الصفحة للطباعة حيث يطبع نتيجة الطالب في صفحة واحدة بدل صفحتين.

فلك جزيل الشكر

[حمادة عمر]

الأخ الكريم / واصل

عذرا فالخطأ مني

استبدل السطر الموجود بالكود و المظلل بالأزرق في الصورة

بالسطر التالي

===================

For i = 1 To Sheets.Count

===================

حيث كان به خطأ نسيان الرقم 1

في الكود المرسل

تقبل خالص تحياتي

[حمادة عمر]

السلام عليكم

الأخ الحبيب / محمود الشريف

بارك الله فيك

نشاط ملحوظ وتميز واضح

تقبل خالص تحياتي

[محمود_الشريف]

الاستاذ الكريم/ محمود الشريف

بارك الله فيك ووفقك لكل خير

الملف الذي وضعته جميل

ولكنه يحتاج مني إلى المرور على كل صفحة من صفحات الطلاب الغائبين حتى أطبع الصفحة .

وما أريده هو أن أضغط الزر فيطبع لي كل صفحة فيها كلمة غائب.

ولكني استفدت من ضبط الصفحة للطباعة حيث يطبع نتيجة الطالب في صفحة واحدة بدل صفحتين.

فلك جزيل الشكر

بارك الله فيكم أخى الكريم الأستاذ/ واصل

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

الأستاذ الكبير / حماده عمر

وتقبل منى وافر الإحترام والتقدير

[محمود_الشريف]

السلام عليكم

الأخ الحبيب / محمود الشريف

بارك الله فيك

نشاط ملحوظ وتميز واضح

تقبل خالص تحياتي

أخى فى الله

الأستاذ الكبير / حماده عمر

بارك الله فيكم 

وأحمد الله عز وجل أننى أتعلم على أيديكم وباقى سائر الأساتذة الأفاضل بهذا السرح المبارك

جزاكم رب العالمين عنى خير الجزاء

وتقبلوا منى وافر الإحترام والتقدير

[حمادة عمر]

السلام عليكم

الاخ الحبيب / محمود_الشريف

بارك الله فيك

تقبل خالص تحياتي

[حمادة عمر]

السلام عليكم

الاخ الكريم / واصل

بارك الله فيك

اليك الكود بالشكل الصحيح ومتم تنفيذه علي ملفك بالمرفقات

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

شاهد ... وفي انتظار ردك

تقبل خالص تحياتي

 

PrintTranscriptTheSeparationOfTheFirst2a11.rar

[واصل]

الاستاذ المبدع/ حمادة عمر

جزاك ربي عني خير الجزاء

ووفقك لكل خير

وزادك علماً ونوراً

الملف 100%

خدمني كثيرا

واستطعت أن أطبع أوراق الغائبين (من بين400 طالب)  في ثلاث دقائق

فلك جزيل الشكر.

 

الاستاذ المبارك/ محمود الشريف

أشكرك على تفاعلك وجهدك

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

[محمود_الشريف]

أخى الكريم

الأستاذ / واصل

بارك الله فيك

والشكر موصول للأستاذ الكبير / حماده عمر

نسأل الله له أن يجزيه عنا خير الجزاء

مع تمنياتى لكم بدوام التوفيق

وتقبلوا منى وافر الإحترام والتقدير

[احمد فضيله]

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