Random gelen veri bir daha gelmesin.

[farisakboga]

Ekteki dosyada öğrencilerim için derlediğim problemler var. Sablon sayfasında görünen problemler 2.Sinif sayfasından random çekilmekte. Bu da aynı problemin bir daha sorulmasına sebep olmakta. Sablon sayfasına gelen problemi bir daha çekmemesini sağlayabilir miyiz acaba?

 

[YUSUF44]

Aşağıdaki makroyu deneyin. Makro, 2.sinif sayfasının A1:A20 aralığında rastgele ve benzersiz soru oluşturur:

Sub sinav()
    Set s1 = Sheets("Sablon")
    Set s2 = Sheets("2.sinif")
    son = s2.Cells(Rows.Count, "B").End(3).Row
    s2.[A1:A20] = ""
    For sat = 1 To 20
10:
        soru = WorksheetFunction.RandBetween(1, son)
        If WorksheetFunction.CountIf(s2.[A1:A20], s2.Cells(soru, "B")) = 0 Then
            s2.Cells(sat, "A") = s2.Cells(soru, "B")
        Else
            GoTo 10
        End If
    Next
End Sub

 

[farisakboga]

Teşekkür ederim. Makroyu uyguladım gayet güzel çalışıyor. A sütununa gelen benzersiz sorular B sütununda renklendirilebilir mi? Yani B sütununda sorulanlar belli olsun ve bir daha sorulmasın.