Napolni celice z naključnimi vrednostmi
Naslednja koda bo zapolnila dano območje z naključnim številom med 0 in 1000:
Sub Randomise_Range (Cell_Range As Range) 'Bo naključno razporedil vsako celico v Range Dim Cell' Izklopi opozorila na zaslonu Application.ScreenUpdating = False Za vsako celico v Cell_Range Cell.Value = Rnd * 1000 Next Cell Application.ScreenUpdating = True End Sub
Koda »Application.ScreenUpdating = FALSE« in »Application.ScreenUpdating = TRUE« služi za izklop in vklop opozoril na zaslonu - zaradi česar je koda veliko hitrejša.
Nastavite ga lahko prek dogodka klika, pri čemer glavna rutina določa obseg:
Zasebni pod -ukaz Button1_Click () Randomise_Range (Sheets ("Sheet3"). Range ("A1: T8000")) End Sub
V tem primeru so celice A1: T8000 na listu 3 napolnjene z naključnimi številkami - ko kliknete ukazni gumb 1.
Prenesite datoteko .XLSM tukaj
