Sommario
Popolare le celle con valori casuali
Il seguente codice popolerà un determinato intervallo con un numero casuale compreso tra 0 e 1000:
Sub Randomise_Range(Cell_Range As Range) ' Randomizza ogni cella nell'intervallo Dim Cell 'Disattiva gli avvisi sullo schermo Application.ScreenUpdating = False per ogni cella in Cell_Range Cell.Value = Rnd * 1000 Next Cell Application.ScreenUpdating = True End Sub
Il codice "Application.ScreenUpdating =FALSE" e "Application.ScreenUpdating = TRUE" servono a disattivare e attivare gli avvisi sullo schermo, rendendo il codice molto più veloce da eseguire.
Può essere impostato tramite un evento click, con la routine principale che specifica l'intervallo:
Private Sub CommandButton1_Click() Randomise_Range (Sheets("Sheet3").Range("A1:T8000")) End Sub
Quindi, in questo caso, le celle A1: T8000 sul foglio 3 vengono popolate con numeri casuali, una volta fatto clic sul pulsante di comando 1.
Scarica qui il file .XLSM
