генератор

[sasha_prof]

Доброго всем времени суток.
Ребята подскажите пожалуйста:
- В столбце "А" есть n количество вопросов.
Нужно что-бы при выполнении макроса выдавало в окно постоянно разные вопросы из этого списка.
Как это сделать?

[doober]

А нужен просте генератор случайных чисел,или крутой генератор с учетом уже выданных

[sasha_prof]

Сообщение от doober

А нужен просте генератор случайных чисел,или крутой генератор с учетом уже выданных

с учетом уже выданых

[IgorGO]

возможно, такой набор пригодится:

Public Qu As String
Const Quc As Long = 3


Function NextQuestion() As Long
  Dim q As Long
  If UBound(Split(Qu, " ")) = Quc Then
    MsgBox "Закончились вопросы. Начните сначала"
    NextQuestion = 0
    Exit Function
  End If
  Do
    q = 1 + Int(Quc * Rnd())
  Loop Until InStr(Qu, q & "_") = 0
  Qu = Qu & q & "_ "
  NextQuestion = q
End Function


Sub InitQu()
  Randomize
  Qu = ""
End Sub

[sasha_prof]

Сообщение от IgorGO

возможно, такой набор пригодится:

Public Qu As String
Const Quc As Long = 3


Function NextQuestion() As Long
  Dim q As Long
  If UBound(Split(Qu, " ")) = Quc Then
    MsgBox "Закончились вопросы. Начните сначала"
    NextQuestion = 0
    Exit Function
  End If
  Do
    q = 1 + Int(Quc * Rnd())
  Loop Until InStr(Qu, q & "_") = 0
  Qu = Qu & q & "_ "
  NextQuestion = q
End Function


Sub InitQu()
  Randomize
  Qu = ""
End Sub

А как его настроить на конкретный диапазон из которого нужно выбирать?

[IgorGO]

обьявить
Function NextQuestion() As String
и в конце присвоить значение
NextQuestion = sheets("Имя_Листа_с_Вопросами").cel ls(Nr+q, Nc)
где,
Nr - номер начальной строчки -1, где записаны вопросы
Nc - номер колонки, где записаны вопросы