A ve B Kitapçığı Karşılaştırma

[Torchh]

Sayın hocalarım öncelikle iyi akşamlar. a ve b cevap anahtarı (40 soru / 4 şık) olan bir sınavda öğrencilerin notlarını değerlendirebilecek bir şeyler arıyorum. optik okuyucudan sonra oluşan txt dosyasını excele aktarıp a ve b kitapçığına göre öğrencilerin sınav notlarını değerlendirmek istiyorum. excelde yeni olduğum için pek ilerleyemedim. Örnek olması adına dosya ekledim.

 

[Necdet]

Merhaba,
Açıklamanıza göre gönderdiğiniz dosya yetersiz.
Değerlendirmek için yanıt anahtarı ve yanıtların olması gerekmez mi?

 

[Torchh]

Merhaba,
Açıklamanıza göre gönderdiğiniz dosya yetersiz.
Değerlendirmek için yanıt anahtarı ve yanıtların olması gerekmez mi?

evet site kurallarını bilmediğim için basit örnek koydum sayın hocam.

 

[Torchh]

Örnek

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz.

Sub Deneme()

Dim Adt As Integer, _
    ktp As Variant, _
    ynt As Variant, _
    i   As Long, _
    j   As Integer, _
    k   As Integer

i = Cells(Rows.Count, "B").End(3).Row
If i < 7 Then i = 7

Range("F7:I" & i).ClearContents

ktp = Range("A1").CurrentRegion.Value
ynt = Range("A6").CurrentRegion.Value

Adt = ktp(2, 3)

For i = 2 To UBound(ynt, 1)
    If ynt(i, 4) = "A" Then
        k = 3
    ElseIf ynt(i, 4) = "B" Then
        k = 4
    Else
        MsgBox ynt(i, 2) & " Kişisinin Kitapçığını Anlayamadım...."
        Exit Sub
    End If
    For j = 1 To Adt
        If Mid(ynt(i, 5), j, 1) = " " Then
            ynt(i, 8) = ynt(i, 8) + 1
        ElseIf Mid(ynt(i, 5), j, 1) = Mid(ktp(k, 2), j, 1) Then
            ynt(i, 6) = ynt(i, 6) + 1
        Else
            ynt(i, 7) = ynt(i, 7) + 1
        End If
    Next j
Next i

Range("A6").Resize(UBound(ynt, 1), UBound(ynt, 2)) = ynt

End Sub

 

[kulomer46]

Alternatif Çalışma

Değerli Arkadaşım Merhaba

Ekl 'li dosyada formüllü çözüm paylaşılmıştır.

Hayırlı Çalışmalar Dilerim.

F7 Hücresinde kullanılan Topla.Çarpım Formülü ve G7, H7 ve I7 hücresindeki formüller aşağıya doğru çekilerek gerektiği kadar çoğaltılabilir.

F7 hücresindeki Formül
=EĞER(D7="A";TOPLA.ÇARPIM((PARÇAAL($B$3;1;1)=PARÇAAL(E7;1;1))+(PARÇAAL($B$3;2;1)=PARÇAAL(E7;2;1))+ (PARÇAAL($B$3;3;1)=PARÇAAL(E7;3;1))+ (PARÇAAL($B$3;4;1)=PARÇAAL(E7;4;1))+(PARÇAAL($B$3;5;1)=PARÇAAL(E7;5;1))+(PARÇAAL($B$3;6;1)=PARÇAAL(E7;6;1))+(PARÇAAL($B$3;7;1)=PARÇAAL(E7;7;1))+(PARÇAAL($B$3;8;1)=PARÇAAL(E7;8;1))+(PARÇAAL($B$3;9;1)=PARÇAAL(E7;9;1))+(PARÇAAL($B$3;10;1)=PARÇAAL(E7;10;1))+(PARÇAAL($B$3;11;1)=PARÇAAL(E7;11;1))+(PARÇAAL($B$3;12;1)=PARÇAAL(E7;12;1))+(PARÇAAL($B$3;13;1)=PARÇAAL(E7;13;1))+(PARÇAAL($B$3;14;1)=PARÇAAL(E7;14;1))+(PARÇAAL($B$3;15;1)=PARÇAAL(E7;15;1))+(PARÇAAL($B$3;16;1)=PARÇAAL(E7;16;1))+(PARÇAAL($B$3;17;1)=PARÇAAL(E7;17;1))+(PARÇAAL($B$3;18;1)=PARÇAAL(E7;18;1))+(PARÇAAL($B$3;19;1)=PARÇAAL(E7;19;1))+(PARÇAAL($B$3;20;1)=PARÇAAL(E7;20;1))+(PARÇAAL($B$3;21;1)=PARÇAAL(E7;21;1))+(PARÇAAL($B$3;22;1)=PARÇAAL(E7;22;1))+(PARÇAAL($B$3;23;1)=PARÇAAL(E7;23;1))+(PARÇAAL($B$3;24;1)=PARÇAAL(E7;24;1))+(PARÇAAL($B$3;25;1)=PARÇAAL(E7;25;1))+(PARÇAAL($B$3;26;1)=PARÇAAL(E7;26;1))+(PARÇAAL($B$3;27;1)=PARÇAAL(E7;27;1))+(PARÇAAL($B$3;28;1)=PARÇAAL(E7;28;1))+(PARÇAAL($B$3;29;1)=PARÇAAL(E7;29;1))+(PARÇAAL($B$3;30;1)=PARÇAAL(E7;30;1))+(PARÇAAL($B$3;31;1)=PARÇAAL(E7;31;1))+(PARÇAAL($B$3;32;1)=PARÇAAL(E7;32;1))+(PARÇAAL($B$3;33;1)=PARÇAAL(E7;33;1))+(PARÇAAL($B$3;34;1)=PARÇAAL(E7;34;1))+(PARÇAAL($B$3;35;1)=PARÇAAL(E7;35;1))+(PARÇAAL($B$3;36;1)=PARÇAAL(E7;36;1))+(PARÇAAL($B$3;37;1)=PARÇAAL(E7;37;1))+(PARÇAAL($B$3;38;1)=PARÇAAL(E7;38;1))+(PARÇAAL($B$3;39;1)=PARÇAAL(E7;39;1))+(PARÇAAL($B$3;40;1)=PARÇAAL(E7;40;1)));TOPLA.ÇARPIM((PARÇAAL($B$4;1;1)=PARÇAAL(E7;1;1))+(PARÇAAL($B$4;2;1)=PARÇAAL(E7;2;1))+ (PARÇAAL($B$4;3;1)=PARÇAAL(E7;3;1))+ (PARÇAAL($B$4;4;1)=PARÇAAL(E7;4;1))+(PARÇAAL($B$4;5;1)=PARÇAAL(E7;5;1))+(PARÇAAL($B$4;6;1)=PARÇAAL(E7;6;1))+(PARÇAAL($B$4;7;1)=PARÇAAL(E7;7;1))+(PARÇAAL($B$4;8;1)=PARÇAAL(E7;8;1))+(PARÇAAL($B$4;9;1)=PARÇAAL(E7;9;1))+(PARÇAAL($B$4;10;1)=PARÇAAL(E7;10;1))+(PARÇAAL($B$4;11;1)=PARÇAAL(E7;11;1))+(PARÇAAL($B$4;12;1)=PARÇAAL(E7;12;1))+(PARÇAAL($B$4;13;1)=PARÇAAL(E7;13;1))+(PARÇAAL($B$4;14;1)=PARÇAAL(E7;14;1))+(PARÇAAL($B$4;15;1)=PARÇAAL(E7;15;1))+(PARÇAAL($B$4;16;1)=PARÇAAL(E7;16;1))+(PARÇAAL($B$4;17;1)=PARÇAAL(E7;17;1))+(PARÇAAL($B$4;18;1)=PARÇAAL(E7;18;1))+(PARÇAAL($B$4;19;1)=PARÇAAL(E7;19;1))+(PARÇAAL($B$4;20;1)=PARÇAAL(E7;20;1))+(PARÇAAL($B$4;21;1)=PARÇAAL(E7;21;1))+(PARÇAAL($B$4;22;1)=PARÇAAL(E7;22;1))+(PARÇAAL($B$4;23;1)=PARÇAAL(E7;23;1))+(PARÇAAL($B$4;24;1)=PARÇAAL(E7;24;1))+(PARÇAAL($B$4;25;1)=PARÇAAL(E7;25;1))+(PARÇAAL($B$4;26;1)=PARÇAAL(E7;26;1))+(PARÇAAL($B$4;27;1)=PARÇAAL(E7;27;1))+(PARÇAAL($B$4;28;1)=PARÇAAL(E7;28;1))+(PARÇAAL($B$4;29;1)=PARÇAAL(E7;29;1))+(PARÇAAL($B$4;30;1)=PARÇAAL(E7;30;1))+(PARÇAAL($B$4;31;1)=PARÇAAL(E7;31;1))+(PARÇAAL($B$4;32;1)=PARÇAAL(E7;32;1))+(PARÇAAL($B$4;33;1)=PARÇAAL(E7;33;1))+(PARÇAAL($B$4;34;1)=PARÇAAL(E7;34;1))+(PARÇAAL($B$4;35;1)=PARÇAAL(E7;35;1))+(PARÇAAL($B$4;36;1)=PARÇAAL(E7;36;1))+(PARÇAAL($B$4;37;1)=PARÇAAL(E7;37;1))+(PARÇAAL($B$4;38;1)=PARÇAAL(E7;38;1))+(PARÇAAL($B$4;39;1)=PARÇAAL(E7;39;1))+(PARÇAAL($B$4;40;1)=PARÇAAL(E7;40;1))))

H7 hücresindeki Formül
=TOPLA.ÇARPIM((PARÇAAL(E7;1;1)=" ")+(PARÇAAL(E7;2;1)=" ")+ (PARÇAAL(E7;3;1)=" ")+ (PARÇAAL(E7;4;1)=" ")+(PARÇAAL(E7;5;1)=" ")+(PARÇAAL(E7;6;1)=" ")+(PARÇAAL(E7;7;1)=" ")+(PARÇAAL(E7;8;1)=" ")+(PARÇAAL(E7;9;1)=" ")+(PARÇAAL(E7;10;1)=" ")+(PARÇAAL(E7;11;1)=" ")+(PARÇAAL(E7;12;1)=" ")+(PARÇAAL(E7;13;1)=" ")+(PARÇAAL(E7;14;1)=" ")+(PARÇAAL(E7;15;1)=" ")+(PARÇAAL(E7;16;1)=" ")+(PARÇAAL(E7;17;1)=" ")+(PARÇAAL(E7;18;1)=" ")+(PARÇAAL(E7;19;1)=" ")+(PARÇAAL(E7;20;1)=" ")+(PARÇAAL(E7;21;1)=" ")+(PARÇAAL(E7;22;1)=" ")+(PARÇAAL(E7;23;1)=" ")+(PARÇAAL(E7;24;1)=" ")+(PARÇAAL(E7;25;1)=" ")+(PARÇAAL(E7;26;1)=" ")+(PARÇAAL(E7;27;1)=" ")+(PARÇAAL(E7;28;1)=" ")+(PARÇAAL(E7;29;1)=" ")+(PARÇAAL(E7;30;1)=" ")+(PARÇAAL(E7;31;1)=" ")+(PARÇAAL(E7;32;1)=" ")+(PARÇAAL(E7;33;1)=" ")+(PARÇAAL(E7;34;1)=" ")+(PARÇAAL(E7;35;1)=" ")+(PARÇAAL(E7;36;1)=" ")+(PARÇAAL(E7;37;1)=" ")+(PARÇAAL(E7;38;1)=" ")+(PARÇAAL(E7;39;1)=" ")+(PARÇAAL(E7;40;1)=" "))

Ekran Resmi

 

[Torchh]

Sayın üstadlar çok teşekkür ediyorum ilginiz için hemen deniyorum çok sağ olun