Случайная переменная не обновляется в VBA Excel

При запуске этого кода для рандомизации некоторых значений я обнаружил, что все ячейки имеют одинаковое число. Я считаю, что мне не хватает стандартной концепции, но я не могу обернуться вокруг этой проблемы.

Randomize LWeekDay = Int((400 - 150 + 1) * Rnd + 200) LWeekEnd = Int((600 - 200 + 1) * Rnd + 200) For Y = 3 To 10 For X = 2 To 8 Cells(Y, X) = LWeekDay Next X Next Y 

Вы в настоящее время только вычисляете LWeekDay один раз, а затем используете это значение для каждой ячейки.

Я предполагаю, что вы хотите каждый раз назначать новое значение через цикл:

 Randomize For Y = 3 To 10 For X = 2 To 8 LWeekDay = Int((400 - 150 + 1) * Rnd + 200) LWeekEnd = Int((600 - 200 + 1) * Rnd + 200) Cells(Y, X) = LWeekDay Next X Next Y 
Давайте будем гением компьютера.