Çoktan seçmeli soruların seçenekleri karıştırma

[hakanayitü]

Merhaba, İngilizce öğrenmek için bilmediğim kelimelerle vocabulary test yapmak istiyorum. Lakin bir türlü denememe rağmen çoktan seçmeli şıkları düzenleyemedim.
Bir sürü yöntem denedim beceremedim. Lütfen yardımcı olur musunuz?

İlgili Drive linki: https://docs.google.com/spreadsheets/d/1Z7ypS4xNZnYQqBiLbvXDlxpXjqZ6fspBXvH9LdUHF3M/edit#gid=1799295347

Örnek olarak:

İNGİLİZCE	A	B	C	D
ABSENCE	YOKLUK	NESLİ TÜKENMEK	BIRAZ GARIP SESSIZLIK VAR	BAGAJ

Bu kelimenin seçeneklerini yatay olarak rastgele yerlerini değiştirmek istiyorum.
A sütununda doğru cevaplar var B-C-D de yanlış cevaplar var.
Doğru cevabın olduğu sütunu diğerleriyle karıştırmak istiyorum ki testte tüm doğru cevaplar "A" olmasın.

 

[hakanayitü]

=INDEX(C2:F2, RANDBETWEEN(1, COUNTA(C2:F2))) Bu formül ile biraz daha ilerledim ama tekrara düşüyor.

 

[Astalavista58]

Sub VeriYerDegistir()
    Dim ws As Worksheet
    Dim satir As Long
    Dim s As Integer, r As Integer
    Dim tempVeri As Variant

    Set ws = ThisWorkbook.Sheets("Sayfa1") ' Sayfa1 yerine çalışmak istediğiniz sayfanın adını belirtin

    For satir = 1 To ws.Cells(Rows.Count, 1).End(xlUp).Row
    
        ReDim tempVeri(1 To 4)
        For s = 1 To 4
            tempVeri(s) = ws.Cells(satir, s).Value
        Next s

        For s = 1 To 4
            Do
                r = Int(Rnd() * 4) + 1
            Loop While tempVeri(r) = ""
            ws.Cells(satir, s).Value = tempVeri(r)
            tempVeri(r) = ""
        Next s
    Next satir
End Sub

Dener misiniz

 

[halit3]

Aşağıdaki linki inceleyiniz.
Benzer bir uygulama var.

https://www.excel.web.tr/threads/soru-bankasi-ve-testi.107493/

 

[hakanayitü]

Sub VeriYerDegistir()
    Dim ws As Worksheet
    Dim satir As Long
    Dim s As Integer, r As Integer
    Dim tempVeri As Variant

    Set ws = ThisWorkbook.Sheets("Sayfa1") ' Sayfa1 yerine çalışmak istediğiniz sayfanın adını belirtin

    For satir = 1 To ws.Cells(Rows.Count, 1).End(xlUp).Row
   
        ReDim tempVeri(1 To 4)
        For s = 1 To 4
            tempVeri(s) = ws.Cells(satir, s).Value
        Next s

        For s = 1 To 4
            Do
                r = Int(Rnd() * 4) + 1
            Loop While tempVeri(r) = ""
            ws.Cells(satir, s).Value = tempVeri(r)
            tempVeri(r) = ""
        Next s
    Next satir
End Sub

Dener misiniz

İNGİLİZCE	B	C	D	A
ABSENCE	NESLİ TÜKENMEK	YOKLUK	BIRAZ GARIP SESSIZLIK VAR	BAGAJ
ACCIDENTAL	İKI YÜZÜNCÜ YIL	BATAKLIK	GELECEĞİ DÜŞÜNMEK	KAZARA
ACCIDENTALLY	KAZARA	MEŞGUL ETMEK	BAŞI BOŞ DOLAŞMAK	MONOSODYUM GLUMATE (YEMEKLERE KATILAN BEYAZ TOZ)
ACCUSE	SUÇLAMAK	ÇARPIŞMAK	GEVREK	BAŞI HAVADA
ADJUST	GÜNLÜK ÜRÜN	ORTAK BARINMA, KONUTLAR	AYARLAMAK	YARIYA DALMIŞ
ADVENTUROUS	KARDEŞE KÖTÜ DAVRANMAK	CAN ALICI NOKTA	MACERACI	ALTIN GİBİ, ÇOK TERBİYELİ
ADVICE	KABARMA	TAVSİYE	ANİDEN BELİRMEK	CESARETLENDİRİCİ
ADVISE	HAREKETSIZ OTURAMIYORUM	TAVSİYE VERMEK	JEST YAPMAK	GEVŞEMEK
ALMANAC	SEYİR KİTABI, TAKVİM	SABIT HAT	SAYGI DUYMAK	GELECEĞİ DÜŞÜNMEK
AMUSING	SÜRÜNMEK	HABER ALIŞVERİŞİ	EĞLENCELİ	BECERİKSİZ, HANTAL
ANCESTOR	KURMAK, TESİS ETMEK, İŞE YERLEŞTİRMEK	VARDİYA	DAĞ YAMACI	ATA
ANTI-CLIMB	ÖZELLEŞTIRME	KAMU HARCAMALARI	TIRMANIŞ ÖNLEYİCİ	ÇEVRE DOSTU

Elinize sağlık müthiş :=)

 

[halit3]

Aşağıdaki harici linkdeki dosyayı irdele
Burada doğru şıkları renklendirdik

deneme_dddd.xls dosyasını indir - download

deneme_dddd.xls dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s2.dosya.tc

 

[hakanayitü]

Aşağıdaki harici linkdeki dosyayı irdele
Burada doğru şıkları renklendirdik

deneme_dddd.xls dosyasını indir - download

deneme_dddd.xls dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s2.dosya.tc

Aşağıdaki harici linkdeki dosyayı irdele
Burada doğru şıkları renklendirdik

deneme_dddd.xls dosyasını indir - download

deneme_dddd.xls dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s2.dosya.tc

Teşekkürler inceledim kodu yapınca. Koşullandırma dinamik olmuyor.

ACCIDENTAL

İKI YÜZÜNCÜ YIL

BATAKLIK

GELECEĞİ DÜŞÜNMEK

KAZARA

Şıkların yeri değişince Doğru cevap rengi de değişmiyor.

 

[halit3]

Sayfa2 de sizin tablonuz var burada B sutununu doğru kabul ederek hücrelerin rengini altın rengine boyadım vb kodu (44)
ve (cevapları karıştır) düğmesine tıkladım renkleriyle doğru hücreler sütun değiştirmekte bir den fazla (cevapları karıştır) düğmesine tıklana bilir daha sonra (cevapları ilk sütuna getir) düğmesine tıklayınca zadece doru cevapları yani altın renginde boyalı hücreleri B sutununa getiriyor.

not: : doğru şık hücre rengi altın rengine boyalı olmazsa kod işlemi doğru yapmaz