توزيع فئات طلاب

[lordring]

السلام عليكم 

 

لدي ملف اكسيل توزيع الطلاب على الكليات وفق معدلاتهم وتسلسل اختيارهم

علما ان لكل كلية عدد مقاعد محدد وبالتالي يحب توزيعهم وفق اولوية استحقاق  المعدل والرغبة وعدد المقاعد 

 

فكيف اقوم بذلك 

 

وشكرا لكم 

 

 

tyu.rar

[lordring]

اتمنى الاجاية ......

[ابراهيم الحداد]

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

هذه محاولة متواضعة ارجو تجريب هذا الكود

انسخ هذا الكود والصقه فى موديول و اربطه بزر

Sub ChosFacu()
Dim C As Range, Fac As String
Dim x As Integer, y As Integer, z As Integer

For Each C In Range("C2:C9")
x = WorksheetFunction.CountIf(Range(C, Range("C2")), C)
y = WorksheetFunction.VLookup(C, Range("M2:N6"), 2, 0)
z = x - y
If z <= 0 Then
Cells(C.Row, 8) = C.Value
Else
Cells(C.Row, 8) = C.Offset(0, z + 1).Value
End If
Next
End Sub

 

تم تعديل ديسمبر 22, 2017 بواسطه زيزو العجوز

[lordring]

شكرا اخي ياليت تفسر اكثر كيف اربطه؟    مع التقدير

[lordring]

قمت بربطه لكن لم يعمل بشكل صحيح للاسف هناك اخطاء في التوزيع حسب المقاعد