Excel makro generujące liczby losowe

W Excelu jest co prawda funkcja LOS(), która wstawia do komórki liczbę losową, jednakże liczba ta przy każdym przeliczeniu arkusza się zmienia.
Jeśli chcemy szybko wypełnić wybrane komórki liczbami losowymi, które nie będą się zmieniać przy każdym przeliczeniu arkusza, może nam się przydać makro.

A poniżej kod makra w VBA:


Sub LiczbyLosowe()
Dim komorka As Range
Randomize
For Each komorka In Selection
komorka.Value = Int(Rnd * (2000 - 500) + 500)
Next komorka
End Sub

To makro wygeneruje nam liczby w zakresie 500 – 2000, jeśli chcemy zmienić zakres trzeba zmienić w kodzie liczby 500 i 2000.

Pod tym linkiem można pobrać arkusz z makrem LiczbyLosowe:
https://drive.google.com/file/d/0Bx7vJmauhcXiZ3hzZDdybmQzcTlGWTFlQVRkLWtMY3loT3ZR/view?usp=sharing

Inny sposób na wypełnienie zakresu liczbami losowymi (bez użycia makra)

Można użyć funkcji =LOS(), wypełnic tą funkcją zakres komórek, następnie zaznaczyć go, wyciąć (lub skopiować) i wkleić jako wartości (użyć polecenia – opcje wklejania – Wartości)

Dodaj komentarz

Twój adres email nie zostanie opublikowany. Pola, których wypełnienie jest wymagane, są oznaczone symbolem *