Tartalomjegyzék
Töltse fel a sejteket véletlenszerű értékekkel
A következő kód kitölti az adott tartományt 0 és 1000 közötti véletlen számmal:
Sub Randomise_Range (Cell_Range as Range) "Véletlenszerűvé teszi a Range Dim cell minden celláját" Kapcsolja ki a képernyő -riasztásokat Application.ScreenUpdating = Hamis a Cell_Range Cell minden egyes cellájához.Value = Rnd * 1000 Next Cell Application.ScreenUpdating = True End Sub
Az „Application.ScreenUpdating = FALSE” és az „Application.ScreenUpdating = TRUE” kód a képernyő figyelmeztetéseinek kikapcsolására és bekapcsolására szolgál - így a kód sokkal gyorsabban fut.
Egy kattintási eseményen keresztül állítható be, a fő rutin határozza meg a tartományt:
Privát alparancsButton1_Click () Randomise_Range (Táblázatok ("Sheet3"). Tartomány ("A1: T8000")) Alrész vége
Tehát ebben az esetben a 3. lapon az A1: T8000 cellákat véletlenszerű számok töltik ki - miután az 1 parancsgombra kattintottak.
Töltse le az .XLSM fájlt innen
