Calcul statique de nombre aléatoire (calculer une fois) dans Excel

Je suis à la recherche d'un moyen pour calculer un nombre aléatoire une fois dans Excel. De sorte que ses calculée la première fois de son nom, mais il ne change pas par la suite.

Ainsi, par exemple, si j'avais quelque chose comme cela dans B1 RANDONCE(A1), puis la première fois, j'ai mis une valeur en A1, il serait de calculer une valeur aléatoire, mais alors il ne serait pas de changer à nouveau. Ou au moins pas jusqu'à ce que j'ai changé de A1 à nouveau.

Je voudrais le faire sans de recopier manuellement B1 à transformer à partir d'une formule à une valeur comme décrit ici. L'utilisation de macros est très bien.

Combien de temps la valeur de la nécessité de rester "fixe"? Juste en face d'une session, ou après l'enregistrement, etc?
Si vous voulez être heureux avec une valeur qui n'est pas "aléatoire", un peu opaque, vous pouvez utiliser quelque chose lié à partir de stackoverflow.com/questions/3498356/md5-hash-function-in-excel pour calculer une valeur de hachage de la valeur dans A1.
On dirait que vous voulez un événement. J'ai ajouté une réponse ci-dessous. Notez que vous pouvez affecter B1 c'est la valeur (à partir d'une formule) en une seule étape en VBA, de sorte que vous n'avez pas besoin de le faire comme ils écrit dans le lien que vous avez ajouté.
Comment garder des nombres aléatoires à partir de la modification dans Excel

OriginalL'auteur studgeek | 2011-11-04

  1. 3

    Vous avez besoin d'un UDF de la mémoire, de sorte qu'il sait si la cellule a changé

    Ce UDF sera de retour une nouvelle valeur aléatoire lorsque le référencement d'appel de changements, sinon renvoie la dernière valeur aléatoire (c'est à dire pas de changement)

    Également de retour vide si la cellule source est vide (peut ou peut ne pas être ce que vous avez besoin?)

    Remarque: on a le problème que les Static valeurs sont perdues lorsque la feuille est fermé, de sorte que la valeur change chaque fois que la feuille est ouvert. 

    Function randonce(r As Range)
    Static trigger As Variant
    Static v As Double
    If r <> trigger Then
        v = Rnd
        trigger = r
    End If
    If Len(r) <> 0 Then
        randonce = v
    Else
        randonce = vbNullString
    End If
End Function
    Merci pour cette réponse, @ChrisNeilsen! Il ne manquait quelques petites modifications pour être un tout-en-un solution. ligne: Function RandOnce(Low As Long, High As Long, r As Range) As Long Modifier v = Rnd de v = Int(Rnd * (High + 1 - Low)) + Low et ajouter 'Aléatoire' après les déclarations assurez-vous que le RNG est remis.

    OriginalL'auteur chris neilsen

  2. 4

    Je pense que j'ai un moyen beaucoup plus facile de le faire. Remplir votre feuille de calcul, puis appliquer l' =ALEA.ENTRE.BORNES fonction de cette colonne de nombres. Ensuite ce faire:

    1. Copier les résultats de cette colonne.
    2. Mettre en surbrillance la colonne et sélectionnez "collage spécial" et sélectionnez "valeurs".

    Maintenant, vous avez les valeurs les plus récemment créés et ils sont statiques.

    OriginalL'auteur Adam

  3. 3

    Vous pouvez créer un fichier UDF (Fonction Définie par l'Utilisateur):

    Public Function Rand_once(ByVal r As Range)
    Rand_once = Rnd
End Function

    Dans la cellule où vous souhaitez que le résultat, vous pouvez mettre:

    =Rand_once(A1)

    La valeur va changer (en fait, être recalculé) uniquement lorsque la source de changements de valeur (aka A1).

    -1 Cela va changer la valeur si la feuille a un recalcul complet (par exemple, appuyez sur les touches ctrl-alt-F9)
    Cela n'a pas été précisé par les OP et je pense que ce sera assez fourni les informations qu'il a donné.
    Je suis en désaccord. Je pense que ", mais alors il ne serait pas de changer à nouveau" exclut le changement sur le plein le recalcul.

    OriginalL'auteur JMax

  4. 3

    Vous pouvez également utiliser des références circulaires pour faire un purement fondé sur une formule "toggle switch" permettant à l'utilisateur de calculer un ensemble de nombres aléatoires, puis d'éteindre plus de recalculs. Éteignez référence circulaire avertissements, puis mettre cette formule dans la cellule B3:

    =IF($B$1="YES",RAND(),B3)

    Si la cellule B1 contient "OUI", B3 va générer un nouveau nombre aléatoire à chaque recalcul de la feuille de calcul; si B1 contient une autre valeur, la valeur actuelle de B3 seront conservés.

    OriginalL'auteur Scott Forbes

  5. 1

    Évidemment, de ne pas être la meilleure solution si vous devez suivre un grand nombre de cellules, mais si c'est juste A1-vous besoin de suivre pour les modifications, vous pouvez utiliser un événement pour faire de votre fonction dans la cellule B1, puis à la fin, affectez-lui la valeur a été donné. Je trouve ce la solution la plus simple et elle fonctionne comme vous en avez besoin pour.

    Exemple:

    Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$A$1" Then
    With Cells(1, 2)
        .Value = "=rand()" 'or whatever
        .Value = .Value
    End With
End If

End Sub
    Si vous devez suivre un grand nombre de cellules, vous pouvez utiliser un Intersect pour le rendre plus lisible. Pourtant, je trouve cette solution assez grande, comme il sera bien évidemment de ne pas modifier la valeur (à chaque fois que le Recalcul Complet, voir le débat avec Chris en dessous de ma réponse) jusqu'à ce que A1 allait changer (donc je pense que cela mérite un +1 :))

    OriginalL'auteur aevanko