أ/حكيم قام بنشر ديسمبر 13, 2019 مشاركة قام بنشر ديسمبر 13, 2019 الاحوة اعضاء المنتدى الكرام المطلوب توزيع الطلاب (بالمعادلات) على اللجان بالتساوي حسب عدد اللجان و الباقي في اخر لجنة و شكرا توزيع.xlsx رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر ديسمبر 13, 2019 مشاركة قام بنشر ديسمبر 13, 2019 جرب هذا الملف distribution.xlsx 2 رابط هذا التعليق شارك More sharing options...
بن علية حاجي قام بنشر ديسمبر 13, 2019 مشاركة قام بنشر ديسمبر 13, 2019 السلام عليكم أكثر دقة في الملف المرفق... بن علية حاجي توزيع.xlsx 3 رابط هذا التعليق شارك More sharing options...
أ/حكيم قام بنشر ديسمبر 13, 2019 الكاتب مشاركة قام بنشر ديسمبر 13, 2019 (معدل) شكرا جزيلا على الاجابة لكن اريد ان يكون في حالة قسمة عدد الطلاب على عدد اللجان ان تكون الزيادة في كل اللجان عدا الاخيرة حتى لو بقية فارغة مثلا اذا كان عدد الطلاب 37 و عدد اللجان 7 يكون في كل لجنة 5 طلاب والاخيرة 2 مثلا اذا كان عدد الطلاب 37 و عدد اللجان 9 يكون في كل لجنة 4 طلاب والاخيرة 1 مثلا اذا كان عدد الطلاب 27 و عدد اللجان 10 يكون في كل لجنة 3 طلاب والاخيرة 0 هل هناك امكانية لذلك بمعنى اذا كان ناتج قسمة عدد الطلاب على عدد اللجان مثلا 3.1 أو 3.6 يكون عدد الطلاب في اللجنة يساوي 4 في كل اللجان بالتساوي حتى لو بقيت اللجنة أو اللجان الأخيرة فارغة تم تعديل ديسمبر 13, 2019 بواسطه أ/حكيم 1 رابط هذا التعليق شارك More sharing options...
احمد بدره قام بنشر ديسمبر 13, 2019 مشاركة قام بنشر ديسمبر 13, 2019 بعد إذن الأساتذة الأفاضل سليم وابن علية لإثراء الموضوع حل بالأكواد ربما يفي الغرض distribution.xlsm 1 رابط هذا التعليق شارك More sharing options...
مدحت حافظ قام بنشر ديسمبر 13, 2019 مشاركة قام بنشر ديسمبر 13, 2019 شكرا جزيلا من اساتذة المنتدى على هذا التسارع والتعاون فى حل مشاكل الاعضاء بهذا الثراء والتنوع فى الحلول رابط هذا التعليق شارك More sharing options...
أ/حكيم قام بنشر ديسمبر 13, 2019 الكاتب مشاركة قام بنشر ديسمبر 13, 2019 هل يمكن الرد على هذا شكرا جزيلا على الاجابة لكن اريد ان يكون في حالة قسمة عدد الطلاب على عدد اللجان ان تكون الزيادة في كل اللجان عدا الاخيرة حتى لو بقية فارغة مثلا اذا كان عدد الطلاب 37 و عدد اللجان 7 يكون في كل لجنة 5 طلاب والاخيرة 2 مثلا اذا كان عدد الطلاب 37 و عدد اللجان 9 يكون في كل لجنة 4 طلاب والاخيرة 1 مثلا اذا كان عدد الطلاب 27 و عدد اللجان 10 يكون في كل لجنة 3 طلاب والاخيرة 0 هل هناك امكانية لذلك بمعنى اذا كان ناتج قسمة عدد الطلاب على عدد اللجان مثلا 3.1 أو 3.6 يكون عدد الطلاب في اللجنة يساوي 4 في كل اللجان بالتساوي حتى لو بقيت اللجنة أو اللجان الأخيرة فارغة رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر ديسمبر 13, 2019 مشاركة قام بنشر ديسمبر 13, 2019 أخي احمد الكود ممتاز من حبث الفكرة والاسلوب ولكن لا بد لي من اضافة بعض التعديلات عليه ليكون : 1-بشكل اقصر 2-بدون كل هذه الاوامر Select و Activate التي ترهق البرنامج دون فائدة Option Explicit Sub Ahmed_Salim2() Dim AA%, N%, i%, Last_Row% Dim tt%: tt = 1 AA = [d4] N = Int([d2] / AA) + 1 Last_Row = Cells(Rows.Count, 3).End(3).Row Range("D8", Range("D7").End(4)).ClearContents For i = 8 To Last_Row Range("D" & i) = tt tt = IIf(tt < AA, tt + 1, 1) Next Range("D3") = Evaluate("=COUNTIF(D8:D100,1)") End Sub distribution_Ah_Sal.xlsm 1 رابط هذا التعليق شارك More sharing options...
احمد بدره قام بنشر ديسمبر 13, 2019 مشاركة قام بنشر ديسمبر 13, 2019 أستاذي الفاضل الأستاذ سليم دائمًا نتعلم منك الكثيرما شاء الله أرى أنه يتم إضافة حتى يعطى الكود النتيجة المطلوبة وهي فرز أرقام اللجان أرجو مشاهدة الملف وإبداء الرأي distribution_Ah_Sal.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة بن علية حاجي قام بنشر ديسمبر 13, 2019 أفضل إجابة مشاركة قام بنشر ديسمبر 13, 2019 السلام عليكم هذا توزيع آخر مع التوزيع السابق... بن علية حاجي توزيع2.xlsx 1 1 رابط هذا التعليق شارك More sharing options...
سليم حاصبيا قام بنشر ديسمبر 13, 2019 مشاركة قام بنشر ديسمبر 13, 2019 الكود النهاني (مع الفرز حسب اللجان) و ادراج عدد اللجان اوتوماتيكياً حسب عدد الطلاب الاجمالي و عدد الطلاب في كل لجنة تغيير اسم الصفحة الى SALIM لحسن عمل الكود وعدم ظهور احرف غريبة في الكدو مما يؤثر على عملية نسخه ولصقه Option Explicit Sub Ahmed_Salim_Final() If ActiveSheet.Name <> "SALIM" Then Exit Sub Dim AA%, N%, i%, k%, Last_Row% Dim tt%: tt = 1 Dim m%: m = 8 With ActiveSheet AA = .Cells(Rows.Count, 2).End(3).Rows Last_Row = AA + 7 .[d2] = AA N = IIf([d2] Mod [d4] = 0, [d2] / [d4], Int([d2] / [d4]) + 1) .Range("D8", .Range("D7").End(4)).ClearContents For k = 1 To N For i = 1 To .[d4] .Cells(m, 4) = k m = m + 1 If m = Last_Row + 1 Then GoTo End_Me Next i Next k End_Me: .Range("D3") = Evaluate("=max(D8:D1000)") End With End Sub الملف النهائي distribution_Final.xlsm 1 رابط هذا التعليق شارك More sharing options...
احمد بدره قام بنشر ديسمبر 15, 2019 مشاركة قام بنشر ديسمبر 15, 2019 رائع أستاذنا الفاضل سليم بارك الله فيك وبعد إذنك قمت بإضافة شرط إذا كانت الخلية D3 فارغة لا يعمل الكود وإظهار رسالة فأصبح الملف بهذا الشكل distribution_Final.xlsm رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.