Naplňte buňky náhodnými hodnotami
Následující kód naplní daný rozsah náhodným číslem mezi 0 a 1000:
Sub Randomise_Range (Cell_Range As Range) 'Randomise each cell in Range Dim Cell' Turn off screen alerts Application.ScreenUpdating = False For each Cell in Cell_Range Cell.Value = Rnd * 1000 Next Cell Application.ScreenUpdating = True End Sub
Kód „Application.ScreenUpdating = FALSE“ a „Application.ScreenUpdating = TRUE“ slouží k vypnutí a zapnutí upozornění na obrazovce - spuštění kódu je tak mnohem rychlejší.
Lze jej nastavit pomocí události kliknutí, přičemž hlavní rutina určuje rozsah:
Private Sub CommandButton1_Click () Randomise_Range (Sheets ("Sheet3"). Range ("A1: T8000")) End Sub
V tomto případě jsou buňky A1: T8000 na listu 3 naplněny náhodnými čísly - jakmile kliknete na příkazové tlačítko 1.
Stáhněte si soubor .XLSM zde
