VBA -funktion - Population af et område med tilfældige værdier - VBA -kodeeksempler

Befolk celler med tilfældige værdier

Følgende kode vil udfylde et givet område med et tilfældigt tal mellem 0 og 1000:

Sub Randomise_Range (Cell_Range As Range) 'Vil randomisere hver celle i Range Dim Cell' Deaktiver skærmadvarsler Application.ScreenUpdating = Falsk for hver celle i Cell_Range Cell.Value = Rnd * 1000 Næste celleprogram.ScreenUpdating = True End Sub

Koden "Application.ScreenUpdating = FALSE" og "Application.ScreenUpdating = TRUE" tjener til at slukke og tænde skærmadvarsler - hvilket gør koden meget hurtigere at køre.

Det kan konfigureres via en klikhændelse, hvor hovedrutinen angiver intervallet:

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

Så denne sag er celler A1: T8000 på ark 3 udfyldt med tilfældige tal - når der klikkes på kommandoknappen 1.

Download .XLSM -filen her