Innholdsfortegnelse
Fyll ut celler med tilfeldige verdier
Følgende kode vil fylle ut et gitt område med et tilfeldig tall mellom 0 og 1000:
Sub Randomise_Range (Cell_Range As Range) 'Vil randomisere hver celle i Range Dim Cell' Slå av skjermvarsler Application.ScreenUpdating = False for hver celle i Cell_Range Cell.Value = Rnd * 1000 Neste celleapplikasjon.ScreenUpdating = True End Sub
Koden "Application.ScreenUpdating = FALSE" og "Application.ScreenUpdating = TRUE" tjener til å slå av og på skjermvarsler - noe som gjør koden mye raskere å kjøre.
Den kan konfigureres via en klikkhendelse, med hovedrutinen som spesifiserer området:
Private Sub CommandButton1_Click () Randomise_Range (Sheets ("Sheet3"). Range ("A1: T8000")) End Sub
Så i dette tilfellet er cellene A1: T8000 på ark 3 fylt med tilfeldige tall - når kommandoknappen 1 er klikket.
Last ned .XLSM -filen her
