Satura rādītājs
Aizpildiet šūnas ar nejaušām vērtībām
Šis kods aizpildīs noteiktu diapazonu ar nejaušu skaitli no 0 līdz 1000:
Sub Randomise_Range (Cell_Range as Range) 'Randomizēs katru šūnu diapazona aptumšošanas šūnā' Izslēdziet ekrāna brīdinājumus Application.ScreenUpdating = False katrai šūnai Cell_Range Cell.Value = Rnd * 1000 Next Cell Application.ScreenUpdating = True End Sub
Kods “Application.ScreenUpdating = FALSE” un “Application.ScreenUpdating = TRUE” kalpo, lai izslēgtu un ieslēgtu ekrāna brīdinājumus - padarot kodu daudz ātrāk izpildāmu.
To var iestatīt, izmantojot klikšķa notikumu, galvenajā rutīnā norādot diapazonu:
Privāta apakškomanda CommandButton1_Click () Randomise_Range (Izklājlapas ("Sheet3"). Diapazons ("A1: T8000")) Beigu apakšdaļa
Tātad šajā gadījumā šūnas A1: T8000 3. lapā tiek aizpildītas ar nejaušiem skaitļiem - noklikšķinot uz komandas pogas 1.
Lejupielādējiet .XLSM failu šeit
