Répétition de variables aléatoires en VBA

À partir de Microsoft sur sa bouche:

De répéter des séquences de nombres aléatoires, composez le Rnd avec un argument négatif immédiatement avant l'utilisation d'Aléatoire avec un argument numérique.

Voir ici pour plus de détails.

L'ensemble de la section:

---

Remarques

La Rnd fonction renvoie une valeur inférieure à 1 mais supérieur ou égal à zéro.

La valeur de nombre détermine la Rnd génère un nombre aléatoire:

Pour toute donnée initiale de semences, le même numéro de séquence est générée, car chaque appel successif à la Rnd fonction utilise le numéro précédent, comme une graine pour le numéro suivant dans la séquence.

Avant d'appeler Rnd, utilisez le Randomize déclaration sans argument pour initialiser le générateur de nombres aléatoires avec des semences basé sur le système de minuterie.

Pour produire des entiers aléatoires dans une plage donnée, utilisez cette formule:

Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

Ici, upperbound est le nombre le plus élevé de la gamme, et la limite inférieure est le nombre le plus bas de la gamme.

^Note De répéter des séquences de nombres aléatoires, composez le Rnd avec un argument négatif immédiatement avant de l'utiliser Randomize avec un argument numérique. L'utilisation d'Aléatoire avec la même valeur pour le nombre ne doit pas répéter la séquence précédente.

---

Par exemple, si vous placez ce code dans Excel, il génère un nombre différent à chaque fois que vous le lancez:

Sub xx()
    ' x = Rnd(-1) '
    Randomize 10
    MsgBox (Rnd)
End Sub

Toutefois, si vous supprimez le x = Rnd(-1) ligne, il génère le même nombre à chaque exécution.

Note que vous avez à faire deux choses. Appel Rnd avec un argument négatif et appel Randomize avec un argument spécifique. Modification de l'une de ces choses vont vous donner une autre graine (et donc de la séquence).

---

Edit:

Re votre commentaire:

En répétant la séquence, je veux dire, si vous exécutez une boucle pour obtenir 10 nombres aléatoires, chaque nombre aléatoire dans la liste sera unique. En outre, si vous exécutez cette séquence à nouveau, vous obtenez le même 10 nombres aléatoires comme avant. Est ce que je suis en décrivant un sens?

Vous avez maintenant besoin d'un plus de morceau de l'information. Ce que vous demandez n'est pas aléatoire de chiffres, mais un réarrangement de l'algorithme. Je vais vous référer à une précédente réponse que j'ai donné sur la façon de faire ici. Tout ce que vous devez faire est de combiner le brassage de l'algorithme avec la grenaison détaillées ci-dessus et vous serez d'avoir votre reproductible, séquence unique.

---

Et voici un code qui montre en action. À chaque exécution de ce sous-programme renvoie la séquence 4 1 5 6 2 3 7 10 9 8 donc je pense que c'est ce que vous avez été au bout, un repetable, "aléatoire", séquence unique. Si vous voulez être en mesure de générer des séquences différentes (mais toujours dans une manière reproductible), il vous suffit de modifier la valeur donnée à la Randomize.

Option Explicit
Option Base 1

Sub xx()
    Dim x(10) As Integer
    Dim xc As Integer
    Dim xp As Integer
    Dim i As Integer
    Dim s As String

    For i = 1 To 10
        x(i) = i
    Next
    xc = 10

    i = Rnd(-1)
    Randomize 1

    s = "Values:"
    For i = 1 To 10
        xp = Int(Rnd * xc) + 1
        s = s & " " & CStr(x(xp))
        x(xp) = x(xc)
        xc = xc - 1
    Next i

    MsgBox (s)
End Sub

OriginalL'auteur paxdiablo