• DİKKAT

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

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

Torchh

Torchh

Katılım
9 Aralık 2023
Mesajlar
24
Excel Vers. ve Dili
Office365
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.
 

Ekli dosyalar

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?
 
Merhaba,

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz.
Kod: 
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
 
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.
Kod: 
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
248388
 

Ekli dosyalar

Son düzenleme:
Sayın üstadlar çok teşekkür ediyorum ilginiz için hemen deniyorum çok sağ olun
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst