• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Seviye Tespit Analiz Programı

Katılım
18 Kasım 2011
Mesajlar
406
Excel Vers. ve Dili
excel 2016 türkçe
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ı
 
Merhaba hocam,
Sub Öğrenci()
Application.ScreenUpdating = False
For n = 2 To 5

a = Empty
x = WorksheetFunction.Match(Range("A2"), Sheets(n).Range("C2:AF2"), 0) + 2
For i = 12 To 36
If Sheets(n).Cells(i, 2) = "" Then GoTo 10
If Sheets(n).Cells(i, x) = 1 Then
If a = Empty Then
a = Sheets(n).Cells(i, 2)
Else
a = a & vbLf & Sheets(n).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.
 
Makro bilmediğim için öğrenci analiz ve konu analiz sayfalarına ekleyerek hocam. Bu sayfalara ekleyebilirseniz çok sevinirim.
 
Verdiğiniz linkte açtım ama çalıştıramadım,farklı öğrenci seçemedim.
 
Geri
Üst