Для оператора в назначении случайных значений целым числам в VBA

Question

NN1 = Int((500 - 100 + 1) * Rnd + 100)
NN2 = Int((500 - 100 + 1) * Rnd + 100)
NN3 = Int((500 - 100 + 1) * Rnd + 100)
NN4 = Int((500 - 100 + 1) * Rnd + 100)

Я предполагаю, что мы можем уменьшить это до

For i = 1 to 4
"NN" & i = Int((500 - 100 + 1) * Rnd + 100)
Next i

Однако, я получаю ошибку компиляции. Как мне исправить это?

Answer 1

Dim NN() As Integer
For i = 1 To 4
NN(i) = Int((500 - 100 + 1) * Rnd + 100)
Next i

Я бы предложил использовать массив вместо нескольких целых чисел