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

زيادة عدد الطلبة فى قائمة فصل


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

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

لم أرد أن ألغي الكلمة السرية ل VBA لذا كتبت لك كودا صغيرا يتم نسخه بموديول Module ثم ربطه بزر "طباعة كل القوائم" والكود كما يلي:

Sub Print_All()
 Dim I As Integer
  For I = 1 To [F2]
    If I <= [F2] Then [F1] = I: ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
  Next
End Sub

أرجو أن يكون هذا التغيير موافقا لما تريده...

 

11.rar

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

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

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

بن علية

11.rar

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

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