Selecting Questions randomly without repeat

[Wilson.gadekar]

Hello Gurus,

I have prepared a logic in creating a questionaire. But I am looking for anyone to help me prepare a VBA code for it.

I have a sheet with 50 questions and 4 options each. The Code should display 1 question with the options. once the person selects an answer it will verify if the answer is correct then will move forward.

Will then show second question with options and so on for 10 questions only. (The questions should not be repeated)

The logic here which I thought of, is to have an empty array of 50. Everytime the question is selected randomly it is checked with the array if the question already exist if not then displayed. once displayed it will fall into the array for comparing the next question.

Can any one help me on this... Looking for VBA code

Thanks,

Wilson

 

[HarryS]

look along these lines

Sub Get10()
    Dim Pick%, Picked%(50), cc%
    For cc = 1 To 10
        Pick = Int(Rnd() * 50 + 1)
        While Picked(Pick) = 1  ' used so try again
            Pick = Int(Rnd() * 50 + 1)
        Wend
        Picked(Pick) = 1
        Cells(cc, 2) = Pick
        ' do the question routine here for question Pick
    Next cc
End Sub

 

[Wilson.gadekar]

But how can i add the questions ??

I mean strings ???

 

[HarryS]

Wilson,

First we need to know where the 50 questions are...??
Then where you want to put then

if questions in say column D rows 4 to 53
and you want the 10 selected starting in H3 then
something like

range("H2")(cc,1) = range("d3")(pick,1)