随机variables不在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 

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