السلام عليكم ورحمة الله وبركاته
اخواني الاعزاء
لدي عدد من اشخاص فلنقل 200 شخص وعندي 4 مجموعات
اريد كود يوزع ال200 شخص على هذه ال 4 مجموعات تلقائيا وبالتساوي
وشاكر لكم حسن تعاونكم
توزيع تلقائي
مغلق
تفضل يا أخي / أبو أنس
هذا مثال على طلبك ولكن ليس لـ ( 200 ) شخص
ولكن عملته لـ ( 20 ) شخص يتم توزيعهم على ( 4 ) مجموعات بالتساوي
بمجرد ضغطة زر
تحياتي
المسلم من سلم الناس من لسانه ويده
بارك الله فيك هو المطلوب بالضبط
اخوك
بدر
سؤال بسيط للاخ ستار نور
اتمنى الا يكون محرجا
في المثال الذي ارسلته بعد اطلاعي للكود لاحظت وجود رموز c . c1 وبصراحة لم افهم المقصود منها ولم اجدها في الفورم لو سمحت توضح لى الرموز المذكورة وكيف اخفيتها في الفورم طبعا بدون احراج واكون لك شاكرا
اخوك
بدر
مرحبا بك أخي ،،، بدر ،،، آسف على إخفائهما ،،، تجدهما خلف الزر ( بدء عملية التوزيع )
و الحقل ( c ) لكي يظهر لي مجموع السجلات التي في الجدول ومصدره سوف يكون بهذا الكود :
=DCount("[الاسم]";"t")والحقل ( c1 ) لكي يقوم بقسمة مجموع السجلات على أربعة أي ( أربع مجموعات ) كما طلبت ،،، وسوف يكون بهذا الكود :
=[c]/4
بإمكانك إلغاء هذين الحقلين ووضعهما ضمن الكود الموجود في زر ( بد ء عملية التوزيع ) فقط ضع هذا الامر في الاعلى للكود :
Dim c As Integer, c1 As Integer
c = DCount("[الاسم]", "t")
c1 = c / 4إذا لم تتمكن من التعديل ،،، سوف أضع لك المثال بعد تعديله ،،، في إنتظار الرد !!!
مع خالص تحياتي
تم تعديل هذه المشاركة بواسطة starnoor2000 في 16 يونيو 2004 في 15:12
المسلم من سلم الناس من لسانه ويده
السلام عليكم
بعد أذن أخي StarNoor200 على التدخل ..
صممت وحدة نمطية بها إجراء يقوم بتوزيع أي حدول على أي جدول آخر
أي أننا إذا وضعنا أسماء المجموعات في جدول أول أسميناه G والسجلات التي تحتاج إلى توزيع في جدول ثاني اسمه t نستطيع استدعاء الإجراء ليقوم بالتوزيع التلقائي للجدول g على سجلات الجدوال t وفق هذه الصيغة :
division "t", "G", 1, 1
حيث رقم 1 هنا هو ترتيب الحقل الذي يجب التوزيع عليه من السجل t
و رقم 1 الثاني هو ترتيب الحقل الذي يجب توزيعه من الجدول g
إذا أن ترتيب الحقول يبدأ من الرقم صفر
وهكذا تستطيع التوزيع على أي عدد من المجموعات . وتستطيع تغيير أسماء المجموعات متى أردت لأنها أصبحت موضوعة في جدول
وهذا هو مثالك نفسه بعد حلّه بالأسلوب الجديد
شكرا لك أستاذ / مهند ،،، لازلت أقول أنك ملك الكودات والوحدات النمطية ،،,
عساك على القوة
المسلم من سلم الناس من لسانه ويده
السلام عليكم ورحمة الله وبركاته
اظاهر انني بين العمالقة في البرمجة
اتمنى الا يبخلوا علينا والله يوفقهم الى و المزيد ان شاء الله
والشكر موصول الى الجميع
اخوكم بدر
أخي بدر ،،، هل قصرنا معك ؟؟؟ يا أخي أطلب وإتمنى ومايصير خاطرك إلا طيب
أخي عزيز وغالي ،،، مع خالص تحياتي
على فكرة ،،، مثال الاستاذ مهند أقوى من المثال الذي وضعته لك ،،، للتنويه فقط
تم تعديل هذه المشاركة بواسطة starnoor2000 في 16 يونيو 2004 في 22:35
المسلم من سلم الناس من لسانه ويده
السلام عليكم
الاخوة الكرام والله لو كان لدي شيئ اكبر من الشكر والدعاء لكم بالخير لقلته
شاكر لكم تعاونكم معي
اخوكم
بدر
أخي أبو أنس .. دعاؤك لنا هو أغلى شيء بالنسبة إلينا
بارك الله فيك
هذا الموضوع مغلق.