اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

طباعة اوراق الغياب للفصل


الردود الموصى بها

السلام عليكم

ارجو المساعدة في الملف المرفق ولكم جزيل الشكر.

في الملف المرفق ورقتين واحدة مسمات " بيانات" وهي لوضع معطيات الفصول بشكل افقي

والورقة الاخرى مسمات " وغياب" وهي التي ارغب في التعديل عليهاحيث:

1 اريد ان يضاف اليها زرين احدهما لطباعة ورقة واحدة والاخر لطباعة الكل

2 اضافة قائمة منسدلة تمكنني من هذا.

ملاحظة: في هذه الورقة استعملت المعادلة RECHERCHV في الخانة BH1 اضع رقما من الارقام التسلسلية بورقة "بيانات " فتمتلئ هذه الورقة بالمعطيات اللازمة.

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

ورقة الغياب.rar

رابط هذا التعليق
شارك

السلام عليكم

شكرا جزيلا اخي احمد يعقوب على الاستجابة

عندما اضغط على زر " طبع الورقة الحالية" تمر الامور كما اريد

لكن عندما اضغط على زر" طبع كل اوراق الفصول" تمر الامور كما لا ارغب حيث تطبع 16 ورقة سواء كان عدد الفصول اقل او اكثر من 16 فامر الزر هذا مبرمج على العدد 16

ارجو التعديل من فضلك.

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

تم تعديل بواسطه ezzarqtouni
رابط هذا التعليق
شارك

السلام عليكم

شكرا جزيلا اخي احمد يعقوب على الاستجابة

عندما اضغط على زر " طبع الورقة الحالية" تمر الامور كما اريد

لكن عندما اضغط على زر" طبع كل اوراق الفصول" تمر الامور كما لا ارغب حيث تطبع 16 ورقة سواء كان عدد الفصول اقل او اكثر من 16 فامر الزر هذا مبرمج على العدد 16

ارجو التعديل من فضلك.

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

اخي يعقوب ما زلت في الانتظار

رابط هذا التعليق
شارك

السلام عليكم

اخي يعقوب لا زال الامر دون حل

بالنسبة لطباعة الكل حينما اضغط على الزر اطلع لي رسالة تفيد ان الماكرو به خطأ والخطأ كما تفيد الرسالة : next p يقع على

next

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

رابط هذا التعليق
شارك

السلام عليكم

اخي يعقوب لا زال الامر دون حل

بالنسبة لطباعة الكل حينما اضغط على الزر اطلع لي رسالة تفيد ان الماكرو به خطأ والخطأ كما تفيد الرسالة : next p يقع على

next

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

رابط هذا التعليق
شارك

السلام عليكم

اخي يعقوب لا زال الامر دون حل

بالنسبة لطباعة الكل حينما اضغط على الزر اطلع لي رسالة تفيد ان الماكرو به خطأ والخطأ كما تفيد الرسالة : next p يقع على

next

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

اخي يعقوب انا انتظر الحل

رابط هذا التعليق
شارك

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

تعديل الكود



Sub MACRO2()

   For P = 1 To 16

   Cells(1, 60) = P

  If Cells(5, 3).Value <> 0 Then ActiveWindow.SelectedSheets.PrintOut

Next

End Sub 

تم تعديل بواسطه احمد يعقوب
عنوان_الكود
رابط هذا التعليق
شارك

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

تعديل الكود



Sub &atilde;&Ccedil;&szlig;&Ntilde;&aelig;2()

   For P = 1 To 16

   Cells(1, 60) = P

  If Cells(5, 3).Value <> 0 Then ActiveWindow.SelectedSheets.PrintOut

Next

End Sub 

السلام عليكم

اخي يعقوب الامر لم ينجح

لما وضعت الكود تلون السطر الاول بالاحمر وحينمااضغط على الزر لا يقع اي شيء

رابط هذا التعليق
شارك

طبعا اكيد

راجع المود السابق مرة اخرى

عذرا اخي لو سمحت

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

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

من فضلك اخي لو ممكن تتفضل تشرح لي الكود

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

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information