Содержание
Заполните ячейки случайными значениями
Следующий код заполнит заданный диапазон случайным числом от 0 до 1000:
Sub Randomise_Range (Cell_Range As Range) 'Будет рандомизировать каждую ячейку в диапазоне Dim Cell' Отключить экранные предупреждения Application.ScreenUpdating = False для каждой ячейки в Cell_Range Cell.Value = Rnd * 1000 Next Cell Application.ScreenUpdating = True End Sub
Код «Application.ScreenUpdating = FALSE» и «Application.ScreenUpdating = TRUE» служит для отключения и включения экранных предупреждений, что значительно ускоряет выполнение кода.
Его можно настроить с помощью события щелчка, при этом основная процедура указывает диапазон:
Частная подпрограмма CommandButton1_Click () Randomise_Range (Sheets ("Sheet3"). Range ("A1: T8000")) End Sub
Итак, в этом случае ячейки A1: T8000 на листе 3 заполняются случайными числами после нажатия кнопки 1.
Загрузите файл .XLSM здесь