Seviye Tespit Analiz Programı

[mehmetaltin]

Arkadaşlar örnek seviye tespit analiz programı hazırladım.Şöyle bir ricam var.Öğrenci analizi sayfasında seçtiğim öğrencilerde kazanımları 1 olan tüm derslerin kazanımları çıkacak.Konu analizi sayfasında kazanım sayfalarındaki dönüştürülmüş puanı belirlediğim (örneğin 70 seçelim) puandan düşük olanlar gözükecek.

Seviye Tespit Analiz Programı

 

[Muhammet Okumuş]

Merhaba hocam,

Sub Öğrenci()
Application.ScreenUpdating = False
For n = 2 To 5

a = Empty
x = WorksheetFunction.Match(Range("A2"), Sheets.Range("C2:AF2"), 0) + 2
For i = 12 To 36
If Sheets.Cells(i, 2) = "" Then GoTo 10
If Sheets.Cells(i, x) = 1 Then
If a = Empty Then
a = Sheets.Cells(i, 2)
Else
a = a & vbLf & Sheets.Cells(i, 2)
End If
End If
10
Next
Cells(n * 14 - 20, 1) = a
Next
End Sub

Öğrenci kazanımı için bu kodu kullanabilirsiniz.

 

[mehmetaltin]

Makro bilmediğim için öğrenci analiz ve konu analiz sayfalarına ekleyerek hocam. Bu sayfalara ekleyebilirseniz çok sevinirim.

 

[Muhammet Okumuş]

Seviye Tespit Analiz Programı.xls

docs.google.com

 

[Muhammet Okumuş]

Sadece öğrenci analizinde düzenleme yaptım.

 

[mehmetaltin]

Verdiğiniz linkte açtım ama çalıştıramadım,farklı öğrenci seçemedim.

 

[Muhammet Okumuş]

Dosya ektedir.