Innehållsförteckning
Befolkningsceller med slumpmässiga värden
Följande kod fyller ett givet område med ett slumpmässigt tal mellan 0 och 1000:
Sub Randomise_Range (Cell_Range As Range) 'Will randomize each cell in Range Dim Cell' Stäng av skärmvarningar Application.ScreenUpdating = Falskt för varje cell i Cell_Range Cell.Value = Rnd * 1000 Nästa cellapplikation.ScreenUpdating = True End Sub
Koden "Application.ScreenUpdating = FALSE" och "Application.ScreenUpdating = TRUE" tjänar till att stänga av och slå på skärmvarningar - vilket gör koden mycket snabbare att köra.
Det kan konfigureras via en klickhändelse, med huvudrutinen som specificerar intervallet:
Private Sub CommandButton1_Click () Randomise_Range (Sheets ("Sheet3"). Range ("A1: T8000")) End Sub
Så i det här fallet fylls cellerna A1: T8000 på blad 3 med slumpmässiga nummer - när man har klickat på kommandoknappen 1.
Ladda ner .XLSM -filen här
