Заповнити клітини випадковими значеннями
Наступний код заповнить даний діапазон випадковим числом від 0 до 1000:
Sub Randomise_Range (Cell_Range As Range) 'Буде рандомізовано кожну клітинку у діапазоні Dim Cell' Вимкнути сповіщення на екрані Application.ScreenUpdating = False Для кожної клітинки у Cell_Range Cell.Value = Rnd * 1000 Наступна клітинна програма.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 тут
