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

[الحديثة]

زيادة عدد الطلبة فى قائمة فصل من 45 الى 50 او اى رقم مع الشرح طريقة الزيادة 

11.rar

[الحديثة]

هل هذا امر صعب  شرح طريقة التعديل على المعادلة للذيادة او النقصان

[الحديثة]

لم يوجد رد

[بن علية حاجي]

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

لم أرد أن ألغي الكلمة السرية ل 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

[الحديثة]

الف شكر وتقدير وجارى التجربة 

الف شكر استاذى العزيز على ما قدمت لى من مساعدات جعلها الله فى ميزان حسناتك اللهم امين 

[ياسر خليل أبو البراء]

الأخ الكريم يرجى إرفاق ملفك فيما بعد في أي موضوع بدون حماية راجع التوجيهات

 

[الحديثة]

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

[بن علية حاجي]

ماذا تعني بعبارة "يطبع لاخر القوائم المكتوبة فقط "؟؟

 

[الحديثة]

قوائم الصف الاول 7 والصف الثانى 5 والصف الثالث 5 يطبع على اكبر رقم وهو 7 قوائم فى الصف الاول لا يطبع القوائم الفارغة من الاسماء 

[بن علية حاجي]

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

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

بن علية

11.rar

[الحديثة]

استاذى العطيم لك منى كل تقدير واعتزاز وكم انا شاكر فضلك وفضل هذا المنتدى والصرج العظيم ولكل القائمين على هذا المنتدى