VBA funkcija - popunjavanje raspona slučajnim vrijednostima - primjeri koda VBA

Napunite ćelije slučajnim vrijednostima

Sljedeći će kôd popuniti određeni raspon slučajnim brojem između 0 i 1000:

Pod Randomise_Range (Cell_Range As Range) 'Nasumično će se postaviti svaka ćelija u rasponu Dim Cell' Isključivanje upozorenja na zaslonu Application.ScreenUpdating = False Za svaku ćeliju u Cell_Range Cell.Value = Rnd * 1000 Sljedeća ćelijska aplikacija.ScreenUpdating = True End Sub

Kodovi "Application.ScreenUpdating = FALSE" i "Application.ScreenUpdating = TRUE" služe za isključivanje i uključivanje upozorenja na zaslonu - što čini kôd mnogo bržim za pokretanje.

Može se postaviti putem događaja klika, a glavna rutina navodi raspon:

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

Dakle, u ovom slučaju ćelije A1: T8000 na listu 3 popunjene su slučajnim brojevima - nakon što se pritisne naredbeni gumb 1.

Preuzmite .XLSM datoteku ovdje