Les Non-répétition générateur de nombre aléatoire?

J'ai créé un jeu-questionnaire à l'aide de visual basic pour applications (Excel) qui choisit les questions en passant par une instruction du cas où les cas sont des nombres. J'ai le programme choisir au hasard un nombre entre 1 et le nombre maximal de questions y sont. En utilisant cette méthode, le jeu se répète questions.

Est-il un moyen de faire quelque chose qui génère un nombre au hasard (des résultats différents à chaque fois) et ne pas répéter un nombre plus d'une fois? Et après il est passé par tous les nombres qu'il doit exécuter un certain code. (Je vais le mettre dans le code qui se termine le jeu et affiche le nombre de questions auxquelles ils ont droit et a obtenu de mal)

J'ai pensé à quelques différentes façons de le faire, cependant, je ne pouvais même pas commencer à penser à ce que la syntaxe pourrait être.

Quelque chose doit m'échapper, je pensais que tu voulais éviter la même question à venir deux fois?

OriginalL'auteur Mark Kramer | 2011-09-24

  1. 7

    Sons comme vous avez besoin d'un Tableau Shuffler!

    Consultez le lien ci-dessous -
    http://www.cpearson.com/excel/ShuffleArray.aspx

    Function ShuffleArray(InArray() As Variant) As Variant()
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' ShuffleArray
' This function returns the values of InArray in random order. The original
' InArray is not modified.
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim N As Long
Dim Temp As Variant
Dim J As Long
Dim Arr() As Variant
Randomize
L = UBound(InArray) - LBound(InArray) + 1
ReDim Arr(LBound(InArray) To UBound(InArray))
For N = LBound(InArray) To UBound(InArray)
Arr(N) = InArray(N)
Next N
For N = LBound(InArray) To UBound(InArray)
J = CLng(((UBound(InArray) - N) * Rnd) + N)
Temp = InArray(N)
InArray(N) = InArray(J)
InArray(J) = Temp
Next N
ShuffleArray = Arr
End Function
Sub ShuffleArrayInPlace(InArray() As Variant)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' ShuffleArrayInPlace
' This shuffles InArray to random order, randomized in place.
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim N As Long
Dim Temp As Variant
Dim J As Long
Randomize
For N = LBound(InArray) To UBound(InArray)
J = CLng(((UBound(InArray) - N) * Rnd) + N)
If N <> J Then
Temp = InArray(N)
InArray(N) = InArray(J)
InArray(J) = Temp
End If
Next N
End Sub
    +1. Randomisation et de faire tout le travail au début de sorte que vous pouvez juste faire une boucle par la liste aléatoire est intelligent. Sauve en faisant le travail après chaque question.

    OriginalL'auteur E DENDEKKER

  2. 5

    Voici encore une autre façon de faire. Il génère un tableau unique, aléatoire longs.
    Dans cet exemple, j'utilise de 1 à 100. Il le fait en utilisant l'objet de collection. Ensuite, vous pouvez simplement faire un normal en boucle sur chaque élément de tableau dans qArray sans la nécessité d'affecter plus d'une fois.

    Sub test()
Dim qArray() As Long
ReDim qArray(1 To 100)
qArray() = RandomQuestionArray
'loop through your questions
End Sub
Function RandomQuestionArray()  
Dim i As Long, n As Long
Dim numArray(1 To 100) As Long
Dim numCollection As New Collection
With numCollection
For i = 1 To 100
.Add i
Next
For i = 1 To 100
n = Rnd * (.Count - 1) + 1
numArray(i) = numCollection(n)
.Remove n
Next
End With
RandomQuestionArray = numArray()
End Function
    j'aime bien ta méthode, c'est plus propre

    OriginalL'auteur aevanko

  3. 2

    Je vois que vous avez une réponse, je travaillais sur ce sujet mais la perte de ma connexion internet. En tout cas voici une autre méthode.

    '//Builds a question bank (make it a hidden sheet)
Sub ResetQuestions()
Const lTotalQuestions As Long = 300 '//Total number of questions.
With Range("A1")
.Value = 1
.AutoFill Destination:=Range("A1").Resize(lTotalQuestions), Type:=xlFillSeries
End With
End Sub
'//Gets a random question number and removes it from the bank
Function GetQuestionNumber()
Dim lCount As Long   
lCount = Cells(Rows.Count, 1).End(xlUp).Row      
GetQuestionNumber = Cells(Int(lCount * Rnd + 1), 1).Value
Cells(lRandom, 1).Delete
End Function
Sub Test()
Msgbox (GetQuestionNumber)
End Sub

    OriginalL'auteur Reafidy

  4. 0

    Pour ce qu'elle vaut ici, c'est mon coup de poignard à cette question. Celui-ci utilise une fonction booléenne au lieu de tableaux numériques. C'est très simple, mais très rapide. L'avantage de cela, ce que je ne dis pas qu'il est parfait, est une solution efficace pour les numéros à long terme parce que vous ne jamais vérifier les chiffres que vous avez déjà choisi et enregistré et n'ont pas besoin potentiellement un grand tableau pour stocker les valeurs que vous avez rejetées afin de ne pas provoquer des problèmes de mémoire à cause de la taille de la matrice.

    Sub UniqueRandomGenerator()
Dim N As Long, MaxNum As Long, MinNum As Long, Rand As Long, i As Long
MinNum = 1        'Put the input of minimum number here
MaxNum = 100      'Put the input of maximum number here
N = MaxNum - MinNum + 1
ReDim Unique(1 To N, 1 To 1)
For i = 1 To N
Randomize         'I put this inside the loop to make sure of generating "good" random numbers
Do
Rand = Int(MinNum + N * Rnd)
If IsUnique(Rand, Unique) Then Unique(i, 1) = Rand:  Exit Do
Loop
Next
Sheet1.[A1].Resize(N) = Unique
End Sub
Function IsUnique(Num As Long, Data As Variant) As Boolean
Dim iFind As Long
On Error GoTo Unique
iFind = Application.WorksheetFunction.Match(Num, Data, 0)
If iFind > 0 Then IsUnique = False: Exit Function
Unique:
IsUnique = True
End Function

    OriginalL'auteur Anastasiya-Romanova 秀