VBA funktsioon - vahemiku täitmine juhuslike väärtustega - VBA koodi näited

Lahtrite täitmine juhuslike väärtustega

Järgmine kood täidab antud vahemiku juhusliku numbriga vahemikus 0 kuni 1000:

Sub Randomise_Range (Cell_Range as Range) „Juhuslikult valib iga lahtri vahemikus Dim Cell” Lülitab ekraani hoiatused välja. Application.ScreenUpdating = False For Cell_Range Cell.Value = Rnd * 1000 Next Cell Application.ScreenUpdating = True End Sub

Kood „Application.ScreenUpdating = FALSE” ja „Application.ScreenUpdating = TRUE” on mõeldud ekraani märguannete väljalülitamiseks ja sisselülitamiseks - see muudab koodi töötamise palju kiiremaks.

Seda saab seadistada klikisündmuse kaudu, kusjuures põhirutiin määrab vahemiku:

Privaatne alamkäsk CommandButton1_Click () Randomise_Range (Sheets ("Sheet3"). Range ("A1: T8000")) End Sub

Sel juhul täidetakse lehe 3 lahtrid A1: T8000 juhuslike numbritega - kui käsunupul 1 klõpsatakse.

Laadige alla .XLSM -fail siit