Inhoudsopgave
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