Oblicz statyczną liczbę losową (oblicz ją raz) w Excelu

Question

Szukam sposobu obliczenia losowej liczby raz w programie Excel. Więc jego obliczenie po raz pierwszy jest wywoływane, ale potem nie zmienia się później.

Na przykład, gdybym miał coś takiego w B1 RANDONCE(A1), to po pierwszym umieszczeniu wartości w A1 wyliczyłaby losową wartość, ale potem nie zmieniłaby się ponownie. A przynajmniej nie, dopóki nie zmienię A1 ponownie.

Chciałbym to zrobić bez ręcznego przekopiowania B1, aby przekształcić ją ze wzoru na wartość opisaną jako here. Używanie makr jest w porządku.

Answer 1

Trzeba UDF z pamięci, więc nie wie, czy komórka zmieniła

to UDF powróci nową wartość losową gdy skieruję wywołać zmiany, w przeciwnym razie zwraca ostatnią wartość losową (czyli bez zmian)
powrócić także puste jeśli komórka źródłem jest pusty (może lub nie może być to, czego potrzebujesz?)

Uwaga: ma problemu, że wartości Static zostaną utracone, gdy arkusz jest zamknięta, więc wartość zmieni się za każdym razem, gdy arkusz jest otwarty.

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 

Answer 2

Można utworzyć UDF (funkcji zdefiniowanej przez użytkownika):

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

W celi, w którym chcesz wynik, można umieścić:

=Rand_once(A1) 

wartość będzie się zmieniać (faktycznie, są ponownie obliczane) tylko wtedy, gdy zmieni się wartość źródłowa (aka A1).

Answer 3

To oczywiście nie będzie najlepszym rozwiązaniem, jeśli masz do śledzenia wiele komórek, ale jeśli jest to tylko A1 trzeba śledzić zmian, można użyć zdarzenie, aby zrobić swoją funkcję w B1, następnie na końcu przypisz mu podaną wartość. Uważam to za najprostsze rozwiązanie i działa tak, jak tego potrzebujesz.

Przykład:

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 

Answer 4

myślę, że mają o wiele łatwiejszy sposób, aby to zrobić. Uzupełnij arkusz kalkulacyjny, a następnie zastosuj funkcję = RANDBETWEEN dla tej kolumny liczb. Następnie wykonaj następujące czynności:

1. Skopiuj wyniki z tej kolumny.
2. Podświetl kolumnę i wybierz "wklej specjalne" i wybierz "wartości".

Teraz masz ostatnio utworzone wartości i są one statyczne.

Answer 5

Można również użyć odwołań kołowych, aby utworzyć "sterowany przełącznik" o wyłącznie formułach, umożliwiający użytkownikowi obliczenie zestawu liczb losowych, a następnie wyłączenie dalszych ponownych obliczeń. Turn off circular reference warnings, a następnie umieścić ten wzór w komórce B3:

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

Jeżeli komórka B1 „TAK”, B3 wygenerować nowy numer losowo z każdej przeliczenia kalkulacyjnego; jeśli B1 zawiera jakąkolwiek inną wartość, bieżąca wartość B3 zostanie zachowana.