Funkcia VBA - Naplnenie rozsahu náhodnými hodnotami - Príklady kódu VBA

Naplňte bunky náhodnými hodnotami

Nasledujúci kód naplní daný rozsah náhodným číslom od 0 do 1 000:

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“ slúži na vypnutie a zapnutie upozornení na obrazovke - spustenie kódu je tak oveľa rýchlejšie.

Je možné ho nastaviť pomocou udalosti kliknutia, pričom hlavná rutina určuje rozsah:

Súkromný príkaz CommandButton1_Click () Randomise_Range (Listy ("Sheet3"). Rozsah ("A1: T8000")) End Sub

V tomto prípade sú bunky A1: T8000 na hárku 3 naplnené náhodnými číslami - akonáhle kliknete na príkazové tlačidlo 1.

Tu si stiahnite súbor .XLSM