VBA

[LLIypLLIyH]

Привет. Помогите с помощью VBA задать случайные числа...я делал 2 года назад, а щя сне помню) там кнопку создаёшь а дальше что?

Вот нужно задать случайные числа от 1 до 4 в диапазоне (I10:AG22)

Заранее спасибо

[SAS888]

Например, так:

Sub Main()

    Dim x As Range, Cell
    Set x = [I10:AG22]
    x.ClearContents
    For Each Cell In x
        Cell.Value = Int((4 * Rnd) + 1)
    Next

End Sub

Это, соответственно, в целых числах. Если в действительных - убрать "Int".
Можно создать кнопку и назначить ей этот макрос, можно запускать макрос "вручную", или по какому-нибудь событию. Дело вкуса.

P.S. Подобные вопросы лучше задавать в топике по VBA Excel.

[LLIypLLIyH]

Спасибо огромное!