مساعدة عمل قرعة في برنامج الاكسل بيسك

[احمد عراقي]

تحية لخبراء الاكسل

ارجو المساعدة في عمل برنامج قرعة عشوائية لتوزيع  عدد من المدارس  في مواقع نائية ، بعيدة ، مركز مدينة على عدد من المعلمين ليكون توزيعها عادل بين الجميع كل فرد يكون نصيبه من جميع المدارس بالتساوي
عدد المدارس الكلي 304 مدرسة بواقع 6 مدارس لكل معلم

تحياتي للجميع 

تم تعديل فبراير 14, 2024 بواسطه احمد عراقي

[abouelhassan]

جرب

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 مدارس بشكل عشوائي. يمكنك ضبط عدد المعلمين وعدد المدارس حسب احتياجاتك.

[احمد عراقي]

شكرا عزيزي لجهودك الطيبة 

انا لست ضالع في البرمجة لا اعرف كيف استخدم هذا الكود واين ؟ 

تحياتي لحضرتك حبذا البرنامج كامل لو تكرمت فضلا 

[احمد عراقي]

هذه بيانات الملف لعمل قرعة على توزيع المدارس للمعلمين بالتساوي حسب القطاعات

قرعة المدارس.xlsx

[abouelhassan]

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

[احمد عراقي]

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

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