Spisie treści
Wypełnij komórki wartościami losowymi
Poniższy kod wypełni dany zakres losową liczbą z zakresu od 0 do 1000:
Sub Randomise_Range(Cell_Range As Range) ' Randomizuje każdą komórkę w Range Dim Cell 'Wyłącza powiadomienia ekranowe Application.ScreenUpdating = False Dla każdej komórki w Cell_Range Cell.Value = Rnd * 1000 Następna komórka Application.ScreenUpdating = Prawda Koniec Sub
Kody „Application.ScreenUpdating = FALSE” i „Application.ScreenUpdating = TRUE” służą do wyłączania i włączania alertów ekranowych - dzięki czemu kod działa znacznie szybciej.
Można go skonfigurować za pomocą zdarzenia kliknięcia, przy czym główna procedura określa zakres:
Private Sub CommandButton1_Click() Randomise_Range (Sheets("Arkusz3")).Range("A1:T8000")) End Sub
W tym przypadku komórki A1:T8000 na arkuszu 3 są wypełniane liczbami losowymi - po kliknięciu przycisku polecenia 1.
Pobierz plik .XLSM tutaj
