Ląstelių užpildymas atsitiktinėmis vertėmis
Šis kodas užpildys tam tikrą diapazoną atsitiktiniu skaičiumi nuo 0 iki 1000:
„Sub Randomise_Range“ („Cell_Range as Range“) „Atsitiks atsitiktine tvarka kiekvieną langelį diapazone Dim Cell“ Išjunkite ekrano įspėjimus Application.ScreenUpdating = False kiekvienai Cell_Range Cell.Value = Rnd * 1000 Next Cell Application.ScreenUpdating = True End Sub
Kodas „Application.ScreenUpdating = FALSE“ ir „Application.ScreenUpdating = TRUE“ yra skirtas išjungti ir įjungti ekrano įspėjimus, todėl kodas bus daug greičiau paleistas.
Jį galima nustatyti paspaudimo atveju, o pagrindinė tvarka nurodo diapazoną:
Privatus antrinis CommandButton1_Click () Randomise_Range (Skaičiuoklės („Sheet3“). Diapazonas („A1: T8000“)) Pabaiga
Taigi šiuo atveju 3 lapo ląstelės A1: T8000 užpildomos atsitiktiniais skaičiais - vieną kartą spustelėjus komandos mygtuką.
Atsisiųskite .XLSM failą čia