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