kodlama matrisini 0-1 matrisine çevirme

[gurkancuvitoglu1]

Merhaba arkadaşlar,

80 soruluk(sütun), 480 öğrencinin (satır) kodlamaları var. A, B, C, D şeklinde. 1. sütunun doğru cevabı A ise o sütundaki tüm A ları 1, B,C,D leri 0 ve boşları 9 yapmak istiyorum.

Bul değiştir ile yapılıyor ama çok uzun sürüyor. Daha kolay bir yolu var mı?

şimdiden teşekkür ederim.

 

[Ömer BARAN]

Merhaba, foruma hoşgeldiniz.
Birinci satıra doğru cevap seçeneklerini (80 sütun) yazın
(A1 hücresine 1'inci sorunun doğru seçeneğini, B1 hücresine 2'nci sorunun doğru seçeneğini .....),
alt taraftan sayfa adına fareyle sağ tıklayıp KOD GRÜNTÜLEyi seçin,
açılan VBA ekranının sağ tarafındaki boş alana aşağıdaki kod'u yapıştırıp çalıştırın.
.

Sub KODLAMA()
For sütun = 1 To 80
    For satır = 2 To 480
        If Cells(satır, sütun) = "" Then
            Cells(satır, sütun) = 9
        ElseIf Cells(satır, sütun) = Cells(1, sütun) Then
            Cells(satır, sütun) = 1
        Else
            Cells(satır, sütun) = 0
        End If
    Next
Next
End Sub

 

[bzace]

Merhaba,
Verilen cevapların olduğu aralık A1: D6 aralığı düşünelim.
Bu aralığı kopyalayıp A7: D12 aralığına yapıştırıp, A1: D6 aralığını seçip formül çubuğuna formül girişini yapınız.

=EĞER(A7:D12="A";1;EĞER(A7:D12="";9;0))
[COLOR="Blue"]Formül dizi formülüdür. CTRL+SHIFT+ENTER ile tamamlayınız.[/COLOR]

Saygılar,
Kafe

Not: Ömer Bey'in mesajını sonradan gördüm.

 

[gurkancuvitoglu1]

bzace ve Ömer BARAN çok teşekkür ederim. Ömer Bey'in yazdığı yöntemi denedim. Vakti zamanında programlama görmüş olsam da excelde hiç kullanmamıştım. Çok faydalı oldu. Emeğinize sağlık.