Berechnen Sie ein static random number (berechnen Sie es einmal) in Excel

Ich bin auf der Suche nach einem Weg, um zu berechnen, wird eine zufällige Zahl einmal in Excel. Also der berechnete das erste mal, die genannt werden, aber dann ist es auch nicht ändern im Nachhinein.

So zum Beispiel, wenn ich sowas hatte in B1 RANDONCE(A1) dann das erste mal, dass ich einen Wert in A1 würde es berechnen einen zufälligen Wert, aber dann würde es nicht wieder ändern. Oder zumindest nicht, bis I geändert A1 wieder.

Ich möchte dies tun, ohne manuell Kopierens B1, um es wiederum aus einer Formel in einen Wert wie beschrieben hier. Verwendung von Makros ist in Ordnung.

Wie lange dauert die Wert brauchen, um zu bleiben "fest"? Nur über eine session oder nach dem speichern, etc?
Wenn Sie glücklich sein würden, mit einem Wert, der nicht wirklich "zufällig", nur undurchsichtig, Sie könnte etwas im Zusammenhang von stackoverflow.com/questions/3498356/md5-hash-function-in-excel zum berechnen der hash-Wert in A1.
Klingt wie Sie wollen ein Ereignis. Ich fügte hinzu, eine Antwort weiter unten. Beachten Sie, dass Sie zuordnen können B1 ist es Wert (aus einer Formel) in einem Schritt in VBA, so dass Sie nicht brauchen, um es zu tun, wie Sie geschrieben in dieser Verknüpfung, die Sie Hinzugefügt.
zu halten, Wie die Zufallszahlen ändern in Excel

InformationsquelleAutor studgeek | 2011-11-04

3

Müssen Sie einen UDF mit memory, so dass es weiß wird, wenn die Zelle geändert hat

Diese UDF gibt einen neuen zufälligen Wert zurück, wenn das angegebene zu nennen ändert, sonst gibt die Letzte zufälligen Wert (dh keine änderung)

Auch wieder leer, wenn die Quelle Zelle leer ist (kann oder kann nicht sein, was Sie benötigen?)

Hinweis: es hat das problem, dass die Static Werte sind verloren, wenn das Fenster geschlossen wird, so wird der Wert jedes mal ändern, wenn das Blatt geöffnet wird.
```
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
```
- Danke für diese Antwort, @ChrisNeilsen! Es brauchte nur ein paar kleine Optimierungen, um eine all-in-one-Lösung. Erste Zeile: Function RandOnce(Low As Long, High As Long, r As Range) As Long Ändern v = Rnd v = Int(Rnd * (High + 1 - Low)) + Low und add 'Zufällig' nach den Deklarationen stellen Sie sicher, dass die RNG wird zurückgesetzt.
InformationsquelleAutor chris neilsen
4

Ich glaube ich habe ein viel einfacher Weg, dies zu tun. Komplette Tabellenblatt, dann gelten die =RANDBETWEEN Funktion für die Spalte von zahlen. Dann tun Sie dies:
1. Kopieren Sie die Ergebnisse aus dieser Spalte.
2. Markieren Sie die Spalte, und wählen Sie "einfügen Spezial" und wählen Sie "Werte".
Nun haben Sie die Werte, die zuletzt erstellt, und Sie sind statisch.

InformationsquelleAutor Adam
3

Können Sie erstellen einer UDF (User-Defined Function):
```
Public Function Rand_once(ByVal r As Range)
    Rand_once = Rnd
End Function
```
In der Zelle, wo Sie wollen das Ergebnis, können Sie setzen:
```
=Rand_once(A1)
```
Den Wert, der geändert wird (eigentlich wird neu berechnet) nur, wenn die Quell-value-änderungen (aka A1).
- -1 wird Dieser Wert ändern, wenn das Blech hat eine vollständige Neuberechnung (z.B. bei drücken von Strg-alt-F9)
- Dies wurde nicht konkretisiert durch die OP und ich denke, das wird genug sein, vorausgesetzt, die Informationen, die er gab.
- Ich bin nicht einverstanden. Ich denke, "aber dann würde es nicht wieder ändern" Veranderung auf die vollständige Route neu.
InformationsquelleAutor JMax
3

Können Sie auch zirkuläre Referenzen zu machen, rein Formel-driven "toggle-Schalter", so dass der Benutzer zu berechnen, die eine Reihe von zufälligen zahlen und dann schalten Sie weitere Neuberechnungen. Schalten Sie Zirkelbezug Warnungen, und setzen Sie dann diese Formel in Zelle B3:
```
=IF($B$1="YES",RAND(),B3)
```
Wenn Zelle B1 enthält "JA", B3 erzeugt eine neue Zufallszahl, die mit jeder Tabellenkalkulation Neuberechnung; wenn B1 enthält einen beliebigen anderen Wert, wird der aktuelle Wert von B3 beibehalten werden.

InformationsquelleAutor Scott Forbes
1

Dies ist offensichtlich nicht die beste Lösung, wenn Sie haben zu verfolgen, viele Zellen, aber wenn es nur A1 benötigen Sie für die änderungen nachverfolgt werden, können Sie mit einem Ereignis zu tun, Ihre Funktion in B1, dann am Ende, weisen Sie ihm den Wert, den es gegeben wurde. Ich finde dies die einfachste Lösung und es funktioniert, wie Sie benötigen, um.

Beispiel:
```
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
```
- Wenn Sie haben zu verfolgen, viele Zellen, die Sie verwenden können, eine Intersect um Sie lesbarer zu machen. Doch, ich finde diese Lösung ganz toll, da es offensichtlich nicht ändern Sie den Wert (wenn Voll umrechnen oder so, siehe die Debatte mit Chris unten meine Antwort) bis A1 ändern würde (also ich denke, das desserves ein +1 :))
InformationsquelleAutor aevanko

Schreibe einen Kommentar

Du musst angemeldet sein, um einen Kommentar abzugeben.