VBA -toiminto - alueen täyttäminen satunnaisarvoilla - esimerkkejä VBA -koodista

Täytä solut satunnaisilla arvoilla

Seuraava koodi täyttää tietyn alueen satunnaisluvulla 0-1000:

Sub Randomise_Range (Cell_Range as Range) "Satunnaistaa jokaisen solun Range Dim Cell" Sammuta näytön hälytykset Application.ScreenUpdating = False for each Cell In Cell_Range Cell.Value = Rnd * 1000 Next Cell Application.ScreenUpdating = True End Sub

Koodit "Application.ScreenUpdating = FALSE" ja "Application.ScreenUpdating = TRUE" toimivat sammuttamaan ja ottamaan käyttöön näytön hälytykset - mikä tekee koodista paljon nopeamman.

Se voidaan määrittää napsautustapahtuman avulla, ja päärutiini määrittää alueen:

Private Sub CommandButton1_Click () Randomise_Range (Sheets ("Sheet3"). Range ("A1: T8000")) End Sub

Joten tässä tapauksessa taulukon 3 solut A1: T8000 täytetään satunnaisluvuilla - kun komentopainiketta 1 napsautetaan.

Lataa .XLSM -tiedosto tästä