اذهب الي المحتوي
أوفيسنا

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

قام بنشر

أريد نسخ شيت النتيجة بعد التصفية للناجحين على حده إلى صفحة جديدة ثم تقسيم الشيت إلى عدة شيتات بعدد معين من الطلاب وليس كل الطلاب في شيت واحد بحيث يكون كل شيت واضح عند الطباعة لأني أطبع على ورق 1م و 1.5

كما فى توزيع الفصول كل فصل عدد معين من الطلاب

Book1.rar

قام بنشر

أخي الكريم أكرمك الله

ولكن معذرة يا أخي فالأمر يتعلق ولا يعمل وأيضا لا أفهمه

يمكن عشان أنا لست بخبير في الأكسيل . فأرجوك يا أخي إما أن ترسل كودا آخر أو تعيد تصحيح فهمي للكود

شكرا جزيلا

قام بنشر

السلام عليكم

ما معنى الامر يتعلق

تقصد الكود لا يعمل فى ملفى ام نقلت الكود الى الشيت الخاص بك ولا يعمل ام يظهر لك رسالة ( الملف يعمل جيدا)

ارجو التوضيح

هشام
قام بنشر

أخي الحبيب الملف يعمل بعد تجرته والحمد لله لكن ليس هذا ما أقصد فالذي أقصده هو بعد نقل الناجحين إلى الورقة الجديدة يتم تقسيم ه إلى شيتات صغيرة كل شيت يحتوي مثلا 20 أو 30 أو 50 اسم بنفس العناوين الرئيسية وستجد ما أريده في صفحة ناجح

ولك مني كل شكر وتقدير

________________________.rar

قام بنشر (معدل)

السلام عليكم

هنا اخى الكريم لب الحل و الباقى بسيط

ان كان المطلوب اكمل باذن الله

يتم و ضع كل 10 طلاب في شيت (بغض النظر ناجح او راسب للتجريب فقط )

انا اسير الوقت لذلك حلولى مجزوءه

sucsses.rar

تم تعديل بواسطه ابو اسامة العينبوسي
قام بنشر

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

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

قام بنشر

السلام عليكم

اخى الفاضل

ليس بالضرورة تقسيم صفحة الناتج ( بمعنى كل 20 طالب انت عملت هد جديد ) فيمكن التحكم بذلك من اعدادات الصفحة

اعلمنى كم طالب تريد بالظبط فى الصفحة وساوافيك بالحل اليك المرفق

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

هشام

________________________.rar

قام بنشر

جزاك الله عني كل خير يا أخي أبو أسامة ولزيادة الفائدة كما قال الأخ h63 لو ممكن هذه التقسيمات في صفحة أو ورقة واحدة ؟

والله ولي التوفيق وأنا شاكر لكم يا أخوانيواسمح لي يا أخي أبو أسامة إضافتك كصديق كما فعلت مع الأخ h63

قام بنشر

السلام عليكم

أستاذنا أبو أسامه

ما هذا الإبداع ؟؟؟؟؟؟ و ما هذه الروعة ؟؟؟؟؟؟؟

الله يبارك لك يا شيخ

يا سلام عليك لو جعلت هذا الترحيل يتم فى ورقة واحدة بين كل مجموعة و الاخرى عدد من الصفوف يحددها المستخدم لتكتمل منظومة الابداع هذه .

...... أيسم

قام بنشر

السلام عليكم

الفكرة ممتازة

ولكن الارقام بتيجى عند حد معين وفيها لغبطة يعنى مش مسلسلة

لما جرب مثلا المجموعة 30

اختارت الفاصل فى الصفوف 2 ( جعلهم صف واحد فاصل)

عدد الاعمدة 3 ( الوحيدة المظبوطة فى التوزيع)

هشام
قام بنشر

السلام عليكم

شكرا للتنويه اخى هشام

كان يجب تعديل الرقم 100 الى رقم اعلى 1000 فما فوق مثلا

ليصبح الكود كالاتى

Sub divide()

r = Sheets("ss").Cells(1000, 1).End(xlUp).Row + 1
For i = 1 To 200
 If i Mod StusentsNum = 0 Then
 r = Sheets("ss").Cells(1000, 1).End(xlUp).Row + (rowsnum + 1)
 End If
 For x = 1 To ClmNum
 Sheets("ss").Cells(r, x).Value = Sheets("main").Cells(i, x).Value
 Next x
 r = r + 1
Next i
End Sub

sucsses4.rar

قام بنشر

السلام عليكم

قبل قرأة مشاركتك باقل من دقيقة غيرتها الى 1000 وغيرت الرقم الاخر الى 500 فزاد مدى التوزيع اجمل واسرع

شكرا لك وحياك الله على مجهوداتك التى فوق التخيل

اذن هنا فكره اخرى لتوزيع قوائم الفصول والطلبة على اللجان + فكرة اخى الاستاذ خبور ادام الله عليكم نعمة العطاء التى بدون حدود

هشام
قام بنشر

نشكرك يا استاذ ابو اسامة

الف شكر

ولكن مع عدد اعمدة وليكن 10 لاتعمل

عدد الاعمدة يجب ان يكون كبيرا بعدد اعمدة الشيت

وكذلك عدد الطلاب هل له حد اقصى ؟

قام بنشر (معدل)

السلام عليكم

هى تعمل مع اكثر من 10 و اليك الدليل .مشفوعا بملف

*عدد الطلاب لا حصر له

sucsses5.rar

تم تعديل بواسطه ابو اسامة العينبوسي
قام بنشر (معدل)
السلام عليكم

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

هى تعمل مع اكثر من 10 و اليك الدليل .مشفوعا بملف

قول + عمل :fff:

انت رائع :clapping::clapping:

ممكن

تجعل رؤوس الشيتات ( محافظة - ادارة - مدرسة ) تنتقل مع الشيتات الناتجة من التقسيم

وكذلك تحت كل شيت ناتج اسم المدير - واسم رئيس الكنترول -املاه - كتبه

تم تعديل بواسطه قصي
قام بنشر

السلام عليكم

نشكرك يا استاذ ابو اسامة على هذا الابداع

ملحوظة :

عند كتابة رقم فى عدد الطلاب وليكن ( 10 ) نلاحظ ان الصف الاول يكون ( 9 ) طلاب اما باقى الصفوف تكون مضبوطة اى ( 10 ) طلاب و هكذا مع اى رقم آخر تختاره

ألا يوجد حل ؟؟؟

و لكم الشكر

قام بنشر

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

فوالله ما كنت اريد غير الخير والفائدة للجميع وأنتم أيضا كلما جاءت فكرة جديدة ولقيتم لها حلا فهذا دليل على ثقل الخبرة

أخوكم هشام خضر

قام بنشر

أخواني الأفاضل

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

ولله المنة مرفق نموذج للشيت ما عليك إلا الضغط على الزر فقط وسيتم المطلوب

______________.rar

قام بنشر

مجهود تشكر عليه

ثانيا عند تقسيمك للشيتات تظهر رسالة تطلب عدد اسماء الشيت الواحد

وبعدها رسالة تطلب عدد الشيتات

لماذا ؟ عدد الطلاب الكلي موجود وعدد طلاب الشيت الواحد موجود فلا داعي للرسالة الثانية

بعد التقسيم تختفي7 اسماء بين كل شيت واخر

واين تذييل الشيت ؟

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