احمد عراقي قام بنشر فبراير 14 مشاركة قام بنشر فبراير 14 (معدل) تحية لخبراء الاكسل ارجو المساعدة في عمل برنامج قرعة عشوائية لتوزيع عدد من المدارس في مواقع نائية ، بعيدة ، مركز مدينة على عدد من المعلمين ليكون توزيعها عادل بين الجميع كل فرد يكون نصيبه من جميع المدارس بالتساوي عدد المدارس الكلي 304 مدرسة بواقع 6 مدارس لكل معلم تحياتي للجميع تم تعديل فبراير 14 بواسطه احمد عراقي رابط هذا التعليق شارك More sharing options...
abouelhassan قام بنشر فبراير 14 مشاركة قام بنشر فبراير 14 جرب Sub DistributeSchools() Dim Teachers() As String Dim Schools As Integer Dim SchoolsPerTeacher As Integer Dim TotalTeachers As Integer Dim RandomIndex As Integer Dim i As Integer Dim j As Integer Schools = 304 SchoolsPerTeacher = 6 TotalTeachers = 50 ' عدد المعلمين ReDim Teachers(1 To TotalTeachers) ' ملء المعلمين بترقيمهم For i = 1 To TotalTeachers Teachers(i) = "Teacher " & i Next i ' توزيع المدارس بين المعلمين For i = 1 To Schools RandomIndex = Int((TotalTeachers * Rnd) + 1) ' تأكد من أن المعلم لديه أقل من 6 مدارس بالفعل Do While Len(Teachers(RandomIndex)) > 0 RandomIndex = Int((TotalTeachers * Rnd) + 1) Loop Teachers(RandomIndex) = Teachers(RandomIndex) & " - School " & i Next i ' طباعة النتائج For i = 1 To TotalTeachers Debug.Print Teachers(i) Next i End Sub انقر فوق الزر "تشغيل" Run أو اضغط على F5 لتشغيل البرنامج. هذا الكود يقوم بتوزيع المدارس بين 50 معلمًا بحيث يحصل كل معلم على 6 مدارس بشكل عشوائي. يمكنك ضبط عدد المعلمين وعدد المدارس حسب احتياجاتك. رابط هذا التعليق شارك More sharing options...
احمد عراقي قام بنشر فبراير 14 الكاتب مشاركة قام بنشر فبراير 14 شكرا عزيزي لجهودك الطيبة انا لست ضالع في البرمجة لا اعرف كيف استخدم هذا الكود واين ؟ تحياتي لحضرتك حبذا البرنامج كامل لو تكرمت فضلا رابط هذا التعليق شارك More sharing options...
احمد عراقي قام بنشر فبراير 14 الكاتب مشاركة قام بنشر فبراير 14 هذه بيانات الملف لعمل قرعة على توزيع المدارس للمعلمين بالتساوي حسب القطاعات قرعة المدارس.xlsx رابط هذا التعليق شارك More sharing options...
abouelhassan قام بنشر فبراير 14 مشاركة قام بنشر فبراير 14 انا فتحت الشيت مش فاهم اى شئ اخى من المكتوب انت تتعامل معى كأنى افهم مطلبك عن طريق توارد الخواطر يجب ان تشرح لى تفصيلى المطلوب 1 رابط هذا التعليق شارك More sharing options...
احمد عراقي قام بنشر فبراير 14 الكاتب مشاركة قام بنشر فبراير 14 تحياتي اخي الكريم شكرا لجهودك الشيت واضح عمل قرعة على توزيع المدارس للمعلمين بالتساوي حسب القطاعات يعين كل معلم ياخذ مدرسة من قطاع الالوان واضحة انا لا اعرف اين اضع هذا الكود وكيف يتم التصميم البرمجة لست خبيرا او ضالعا مجرد هاوي ومتمرس لللاكسل لكن برمجة كودات لا شكرا لسعة صدرك وفقكم الله تعالى رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
من فضلك سجل دخول لتتمكن من التعليق
ستتمكن من اضافه تعليقات بعد التسجيل
سجل دخولك الان