Öğrenci gruplama - Tercih - Yerleştirme

[Orhankir]

Excel Versiyonu

Excel 2016

Excel Sürümü

64 Bit

Excel Dili

Türkçe

Merhaba arkadaşlar;

1. Yaklaşık 100 öğrencilik bir grubunda başarılı olan öğrenciler kamplara gönderilecektir.
2. En az özelikleri farklı 3 farklı kamp bulunmaktadır.
3. Her öğrenci kampları kendi içinde 1, 2, ve 3 tercihi olarak tercih edecek ve her kampın 12 kontenjanı bulunacaktır.
4. Yapılan bir sınav sonucuna göre en yüksek puan alan öğrenciden başlanarak öğrenciler tercih sırasına göre kamplara dağıtılacak, kamp kontenjan sayısı dolunca yedekler de belirlenecektir.

*Herhangi bir öğrenci en az bir en fazla kamp sayısı kadar tercih de bulunabilecektir.
* öğrenci sayısı, kamp sayısı ve kamp kontenjanı sayıları dönem dönem farklılık gösterebilir.

Konu ile ilgili makro, formül vb. yardımcı olursanız çok sevinirim. Teşekkürler...

Örnek dosya linki: öğrenci guruplama.xlsx

 

A Sütununa Yazılan Veriye Göre B sütunana Veri Yazdırma

emlak programı indirdiğimde dosya çalışmıyor.

[cakarem]

Tam belirlenmemiş konular var.
1. Puanlar verisini nereden alacak. Yada eklemiş olduğunuz dosyanın f sütununa puan girişi olarak tasarlayabiliriz.
2. Sınava girmeyip de tercih yapmış olanlardan, eğer kontenjan dolmamış ise atama yapacak mı?
3. Kontenjan doldu, öğrencide tercih yaptığı kamplara yerleşemedi bu durumda ne olacak?
ve benzeri sorular var. Bu gibi durumları da belirterek sorunuzu tekrar edebilirseniz dosyanızı hazırlayabiliriz...

 

[Orhankir]

Tam belirlenmemiş konular var.
1. Puanlar verisini nereden alacak. Yada eklemiş olduğunuz dosyanın f sütununa puan girişi olarak tasarlayabiliriz.
2. Sınava girmeyip de tercih yapmış olanlardan, eğer kontenjan dolmamış ise atama yapacak mı?
3. Kontenjan doldu, öğrencide tercih yaptığı kamplara yerleşemedi bu durumda ne olacak?
ve benzeri sorular var. Bu gibi durumları da belirterek sorunuzu tekrar edebilirseniz dosyanızı hazırlayabiliriz...

Merhaba arkadaşlar;

1. Yaklaşık 100 (daha fazla yada az olabilir) öğrencilik bir grubunda başarılı olan öğrenciler kamplara gönderilecektir.
2. Sınava girmeyen puanı sıfır olan öğrenciler tercihte bulunamayacaktır.Bu adaylar listede hiç olmayacak.
3. En az özelikleri farklı 3 farklı( daha fazla da olabilir) kamp bulunmaktadır.
4. Her öğrenci kampları kendi içinde 1, 2, ve 3 tercihi olarak tercih edecek ve her kampın belirli bir kontenjanı bulunacaktır.
5. Yapılan bir sınav sonucuna göre en yüksek puan alan öğrenciden başlanarak öğrenciler tercih sırasına göre kamplara dağıtılacak, kamp kontenjan sayısı dolunca varsa yedekler öğrenciler de belirlenecektir,
6. Kamp kontenjanı dolduğunda yerleşemeyen öğrencilere hiç bir işlem yapılmayacak. Listede mevcut olan öğrenci ve bunların tercihleri üzerinden işlem yapılacak.

* Sınavdan başarılı olan herhangi bir öğrenci en az bir en fazla kamp sayısı kadar tercih de bulunabilecektir.
* öğrenci sayısı, kamp sayısı ve kamp kontenjanı sayıları dönem dönem farklılık gösterebilir. (değişkenli olabilir, o yüzden yazdığınız kodların yanın da açıklaması olursa iyi olur, tekrar sizi rahatsız etmemek için)
* Örnek dosyada aynı sayfada yaptım tercihler, asil ve yedek tablosunu (daha iyi anlaşılsın diye) ama faklı sayfalarda asil ve yedek olarak tasarladım öyle olursa daha iyi olur.
* Dosyada tabloların üstüne öğrenci sayısını veren alan ekledim, aday tercihlerin de sıfır olanlar boş olarak değerlendirilecek. (3 kamptan 2 sini seçmiş, tercihi olmayana sıfır yazdım)

Konu ile ilgili makro, formül vb. yardımcı olursanız çok sevinirim. Teşekkürler, iyi çalışmalar...

 

[cakarem]

Şöyle bir durum var.
70 puan almış biri 1. tercihte 1. Kampı tercih etmiş
75 puan almış biri 3. tercihte 1. kampı tercih etmiş
80 puan almış biri 2. tercihte 1. kampı tercih etmiş.

Burada öncelik tercih sırasının mı yoksa puan değerin mi?

 

[Orhankir]

Şöyle bir durum var.
70 puan almış biri 1. tercihte 1. Kampı tercih etmiş
75 puan almış biri 3. tercihte 1. kampı tercih etmiş
80 puan almış biri 2. tercihte 1. kampı tercih etmiş.

Burada öncelik tercih sırasının mı yoksa puan değerin mi?

sınav sonuçları büyükten küçüğe sıralandıktan sonra en yüksek puan alan öğrenci den başlanarak kamplara dağıtılacak. örneğin 1.kampın 2 kontenjanı varsa bahsettiğiniz 3 aday olsun; 80 ve 75 puan alan öğrenciler yerleşecek 70 puan alan öğrenci ikinci tercihi olan kampa yerleşecek.

* siz söyleyince aklıma geldi. ; 1.kamp doldu ve sıradaki öğrencinin 1.kamp tercihi var bu öğrenciyi ikinci tercihi olan kampa yerleştirecek. diğer kamplar içinde bu şekilde olacak. hangi kamp dolarsa ve sıradaki öğrencilerden o kamp ta tercihi varsa 2 tercihi olan kampa yerleşecek. ikinci tercihinin olduğu kampta da doluysa üçüncü tercihine atanacak. yani yedek listesine gerek kalmayacak. yeni dosyayı ekte gönderiyorum.

 

[cakarem]

Dosyanızı incelediğimde sadece 1 numaralı kişiler asil liste ve yedek listede yer almış. 2. tercih veyahut 10 tercihin bir önemi yok galiba. Bu nedenle kodu da bu şekilde yazdım.
Ekli dosyayı inceleyiniz...

İlgili kod yapısı:

[CODE]Private Sub CommandButton1_Click()
    Dim veri As Variant
    ReDim veri(Sayfa1.Range("a65536").End(3).Row - 5, 4)
   
    For i = 5 To Sayfa1.Range("a65536").End(3).Row
        deger = 0
        For ii = 5 To Sayfa1.Range("a65536").End(3).Row
            If CSng(Sayfa1.Cells(i, 2)) < CSng(Sayfa1.Cells(ii, 2)) Then
                deger = deger + 1
            End If
        Next ii
        say = WorksheetFunction.CountIf(Sayfa1.Range("b5:b" & i), Sayfa1.Cells(i, "b"))
        kontrol = deger + say - 1
        veri(kontrol, 0) = i 'satir numarası
        veri(kontrol, 1) = Sayfa1.Cells(i, 1) 'a sütunundaki veri
        veri(kontrol, 2) = Sayfa1.Cells(i, 2) 'a sütunundaki veri
        veri(kontrol, 4) = Sayfa1.Cells(i, 3) 'a sütunundaki veri
    Next i
    sonsut = Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
    deg = 0
    For i = 1 To sonsut
        For ii = 2 To 4
            Sayfa2.Cells(ii, i) = Sayfa1.Cells(ii, i + deg)
            Sayfa3.Cells(ii, i) = Sayfa1.Cells(ii, i + deg)
        Next ii
        If i = 1 Then deg = deg + 1
    Next i
    max1 = 4
    max2 = 4
    For bas = 3 To sonsut
        kontrol = Sayfa1.Cells(3, bas) ' kontenjan
        deg = 0 ' mevcut sayı
                For i = 5 To Sayfa2.Cells(Rows.Count, bas - 1).End(xlUp).Row + 1
                    Sayfa2.Cells(i, bas - 1) = ""
                Next i
                For i = 5 To Sayfa3.Cells(Rows.Count, bas - 1).End(xlUp).Row + 1
                    Sayfa3.Cells(i, bas - 1) = ""
                Next i
        For i = LBound(veri) To UBound(veri)
            If Sayfa1.Cells(veri(i, 0), bas) = 1 And deg < kontrol Then
                SonSatir = Sayfa2.Cells(Rows.Count, bas - 1).End(xlUp).Row + 1
                Sayfa2.Cells(SonSatir, bas - 1) = Sayfa1.Cells(veri(i, 0), 1)
                deg = deg + 1
                If max1 < SonSatir Then
                    Sayfa2.Cells(SonSatir, 1) = SonSatir - 4
                    max1 = max1 + 1
                End If
            ElseIf Sayfa1.Cells(veri(i, 0), bas) = 1 And deg >= kontrol Then
                SonSatir = Sayfa3.Cells(Rows.Count, bas - 1).End(xlUp).Row + 1
                Sayfa3.Cells(SonSatir, bas - 1) = Sayfa1.Cells(veri(i, 0), 1)
                If max2 < SonSatir Then
                    Sayfa3.Cells(SonSatir, 1) = SonSatir - 4
                    max2 = max2 + 1
                End If
            End If
        Next i
    Next bas
    MsgBox "bitti"
End Sub

[/CODE]

Yeni kamp eklenirken 4 nolu satıra eklemeye (kamp üçün sağına ) devam ediniz. Öğrenci sayısnı da aşağı doğru eklemeye devam ediniz.

 

[Ömer BARAN]

Merhaba.
Ben de aşağıdaki gibi düşünmüştüm.

Sub TERCIH2()
Set t = Sheets("Tercihler"): Set a = Sheets("Asil")
tson = t.Cells(Rows.Count, 1).End(3).Row
t.Range("A5:E" & tson).Sort t.[B4], 2
a.Range("B5:D" & tson).ClearContents
    t.Columns("F:F").Insert Shift:=xlToRight
For sat = 5 To tson
    If t.Cells(sat, "F") <> "" Then GoTo 20
    For sut = 1 To 3
        If WorksheetFunction.CountIf(t.Range("C" & sat & ":E" & sat), sut) > 0 Then
            sut = WorksheetFunction.Match(sut, t.Range("C" & sat & ":E" & sat), 0) + 1
            kon = a.Cells(3, sut) - (a.Cells(Rows.Count, sut).End(3).Row - 4)
            If kon > 0 Then
                a.Cells(a.Cells(Rows.Count, sut).End(3).Row + 1, sut) = t.Cells(sat, 1)
                t.Cells(sat, "F") = "x": Exit For
            End If
        End If
    Next
20: Next
    t.Columns("F:F").Delete Shift:=xlToLeft
MsgBox "Yerleştirme işlemi tamamlandı, hayırlı olsun..", vbInformation, "..:: Ömer BARAN ::.."
End Sub

 

[Orhankir]

Dosyanızı incelediğimde sadece 1 numaralı kişiler asil liste ve yedek listede yer almış. 2. tercih veyahut 10 tercihin bir önemi yok galiba. Bu nedenle kodu da bu şekilde yazdım.
Ekli dosyayı inceleyiniz...

İlgili kod yapısı:
[Gizlenmiş içerik]

Yeni kamp eklenirken 4 nolu satıra eklemeye (kamp üçün sağına ) devam ediniz. Öğrenci sayısnı da aşağı doğru eklemeye devam ediniz.
Ekli dosyayı görüntüle 2218

Teşekkür ederim...

 

[Orhankir]

Dosyanızı incelediğimde sadece 1 numaralı kişiler asil liste ve yedek listede yer almış. 2. tercih veyahut 10 tercihin bir önemi yok galiba. Bu nedenle kodu da bu şekilde yazdım.
Ekli dosyayı inceleyiniz...

İlgili kod yapısı:
[Gizlenmiş içerik]

Yeni kamp eklenirken 4 nolu satıra eklemeye (kamp üçün sağına ) devam ediniz. Öğrenci sayısnı da aşağı doğru eklemeye devam ediniz.

Kodu çalıştırdım. Kamp ve öğrenci sayısını arttırdım ancak tam istediğim sonucu alamdım. Kod sadece 1. tercihi dikkate alıyor sanırsam. 2 ve 3. tercihlere yerleştirme yapmadı. Dosyayı EK'te gönderiyorum.
Belki ben yanlış anlatmış olabilirim. Aslında istediğim şey tam olarak ösym nin yerleştirme sistemi gibi bir şey. Öğrenci sayısını ve Tercih sayısını da arttırabilirim. Ayrıca yedek liste yapmamıza gerek olmadığını fark ettim. Onun kodları da silinebilir.

Örneğin; puanı en yüksek olan öğrenciden başlayarak, öğrenci tercihleri dikkate alınmalı. 1. tercihi doldu ise 2. tercihine yerleşmeli. O da doldu ise bir sonraki tercihine yerleşmeli.

Yardımlarınız için teşekkür ederim.

 

[cakarem]

Sayın @Orhankir

Dosyanızı incelediğimde sadece 1 numaralı kişiler asil liste ve yedek listede yer almış. 2. tercih veyahut 10 tercihin bir önemi yok galiba. Bu nedenle kodu da bu şekilde yazdım.

Yukarıdaki mesajımda belirttim. Algoritma açısından belli olmayan durumlar var. Sizler bunları belirtmedikçe dosya güncellenecektir. Dosyanızın nasıl olmasını gerektiğini bilmemiz. zor.
Kısaca şunları merak ediyorum.
1- Yedek listesine kimler dahil edecek. Sadece birinci tercih de yazılanlar mı yoksa hepsi mi? Yedek listesinin kontenjanı ne olacak?
2- Yedek listelerinde olup da farklı kampın asil listesinde olabilecek mi? Olmayacaksa hangisine öncelik tanınacak?

 

[Orhankir]

Sayın @Orhankir

Yukarıdaki mesajımda belirttim. Algoritma açısından belli olmayan durumlar var. Sizler bunları belirtmedikçe dosya güncellenecektir. Dosyanızın nasıl olmasını gerektiğini bilmemiz. zor.
Kısaca şunları merak ediyorum.
1- Yedek listesine kimleri dahil edecek. Sadece birinci tercih yazılanlar mı yoksa hepsini mi? Yedek listesinin kontenjanı ne olacak?
2- Yedek listelerinde olup da farklı kampın asil listesinde olabilecek mi? Olmayacaksa hangisine öncelik tanınacak?

Aslında bütün tercihler önemli. Ancak 1. tercihe yerleşirse tabi ki diğer tercihler önemsiz oluyor. Yerleşemezse sonraki tercihler değerlendirilmeli.
Yedek listesi konusunda şöyle bir çözüm bulabiliriz:
Yedek listesini tamamen silip 2 kez yerleştirme yapabiliriz. 1. yerleştirmedekiler asil liste olur. Kalan öğrencilerden 2. yerleştirmede yedek liste belirlenir.

Yani bana sadece asil listenin oluşması yeterli. Aynı işlemi bir kaç defa yaparak farklı yedek listeler oluşturabilirim.

 

[cakarem]

Ekli dosyayı inceleyiniz.

Not: Sadece asil listenin oluşmasını yeterli olduğunu ifade ettiğiniz için yedek liste oluşturan kodlar silinmiştir. Bilginize.

 

[cakarem]

Sayın @Orhankir
Sorunuz çözüme ulaşıldı ise konuyu çözüldü olarak işaretleyip, kilitleyelim.

 

[cakarem]

Dönüş sağlanmadığı için konu çözüldü olarak işaretlenip, kilitlenmiştir.