随机变量未在VBA Excel中更新

Question

在运行此代码以随机化某些值时，我发现所有单元格都具有相同的数字。我相信我错过了一个标准概念，但我似乎无法解决这个问题。

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

Answer 1

您目前只计算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