Populați celule cu valori aleatorii
Următorul cod va completa un anumit interval cu un număr aleatoriu între 0 și 1000:
Sub Randomise_Range (Cell_Range As Range) „Va randomiza fiecare celulă din Range Dim Cell” Dezactivează alertele ecranului Application.ScreenUpdating = Fals pentru fiecare celulă din Cell_Range Cell.Value = Rnd * 1000 Next Cell Application.ScreenUpdating = True End Sub
Codul „Application.ScreenUpdating = FALSE” și „Application.ScreenUpdating = TRUE” servesc pentru a opri și a activa alertele de pe ecran - făcând codul să ruleze mult mai rapid.
Poate fi configurat printr-un eveniment de clic, cu rutina principală specificând intervalul:
Private Sub CommandButton1_Click () Randomise_Range (Sheets ("Sheet3"). Range ("A1: T8000")) End Sub
Deci, în acest caz, celulele A1: T8000 din foaia 3 sunt populate cu numere aleatorii - după ce se face clic pe butonul de comandă 1.
Descărcați fișierul .XLSM aici