Функция VBA - Попълване на диапазон със случайни стойности - Примери за код на VBA

Попълнете клетки с произволни стойности

Следният код ще попълни даден диапазон със случайно число между 0 и 1000:

Sub Randomise_Range (Cell_Range As Range) „Ще се рандомизира всяка клетка в Range Dim Cell“ Изключване на предупрежденията на екрана Application.ScreenUpdating = False За всяка клетка в Cell_Range Cell.Value = Rnd * 1000 Следваща клетъчна програма.ScreenUpdating = True End Sub

Кодът „Application.ScreenUpdating = FALSE“ и „Application.ScreenUpdating = TRUE“ служат за изключване и включване на предупрежденията на екрана - което прави кода много по -бърз за изпълнение.

Може да се настрои чрез събитие на щракване, като основната рутина определя диапазона:

Private Sub CommandButton1_Click () Randomise_Range (Sheets ("Sheet3"). Range ("A1: T8000")) End Sub

В този случай клетки A1: T8000 на лист 3 се попълват със случайни числа - след като се натисне командния бутон 1.

Изтеглете .XLSM файла тук