VBA-functie - Een bereik vullen met willekeurige waarden - VBA-codevoorbeelden

Cellen vullen met willekeurige waarden

De volgende code vult een bepaald bereik met een willekeurig getal tussen 0 en 1000:

Sub Randomise_Range (Cell_Range As Range) ' Willekeurig elke cel in Range Dim Cell 'Schakel schermwaarschuwingen uit Application.ScreenUpdating = False voor elke cel in Cell_Range Cell.Value = Rnd * 1000 Volgende cel Application.ScreenUpdating = True End Sub

De code "Application.ScreenUpdating =FALSE" en "Application.ScreenUpdating = TRUE" dienen om schermwaarschuwingen in en uit te schakelen - waardoor de code veel sneller kan worden uitgevoerd.

Het kan worden ingesteld via een klikgebeurtenis, waarbij de hoofdroutine het bereik specificeert:

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

In dit geval worden de cellen A1:T8000 op blad 3 dus gevuld met willekeurige getallen - zodra op de opdrachtknop 1 is geklikt.

Download hier het .XLSM-bestand

wave wave wave wave wave