«Я пытаюсь заполнить именованный диапазон доходом. Первая ячейка именованного диапазона уже имеет значение и представляет текущий год (год 0) дохода. Я хочу использовать случайный стохастический процесс для прогнозирования дохода за 1-й год, используя доход за 0-й год. А затем спрогнозируйте доход за 2-й год, используя доход за 1-й год. Моя проблема в том, что все ячейки диапазона получают начальное значение дохода года 0.
Sub RevenuePathSimulation()
Range("starttime") = Time
Dim RR As Variant
RR = Array()
Dim N As Double
N = Range("runs").Value
Dim years As Double
years = Range("RevRng").Count
Dim mean As Long
mean = Range("mean")
Dim sigma As Long
sigma = Range("sigma")
Dim i As Integer
Dim j As Integer
For j = 2 To years
RR(1, j) = RR(1, j - 1) * Exp(mean + sigma * Rnd())
Range("RevRng").Value = RR(1, j)
Debug.Print RR(1, j)
Next j
Range("stoptime") = Time
End Sub
' The end result is to have revenues for years 0 to 10
' derived from a random stochastic process.