Как в VBA заполнить массивы случайными числами?

VVyacheslavCzar · 6 фев

Заполнение массива случайными числами в VBA

Работа с массивами в VBA (Visual Basic for Applications) позволяет эффективно обрабатывать данные в Excel. Заполнение массивов случайными числами часто используется в различных вычислительных сценариях, позволяя создавать симуляции и тестовые наборы данных.

Для генерации случайных чисел в VBA используется функция Rnd. Она возвращает случайное число от 0 до 1. Чтобы получить случайное целое число в заданном диапазоне, например от min до max, можно использовать следующую формулу:

Int((max - min + 1) * Rnd + min)

Таким образом, создадим код для заполнения массивов X(10) и Y(10) случайными значениями в диапазоне от 1 до 100:

Sub FillArraysWithRandomNumbers()
    Dim X(1 To 10) As Integer
    Dim Y(1 To 10) As Integer
    Dim i As Integer
    Dim minValue As Integer
    Dim maxValue As Integer
    
    minValue = 1
    maxValue = 100
    
    Randomize ' Инициализируем генератор случайных чисел
    
    For i = 1 To 10
        X(i) = Int((maxValue - minValue + 1) * Rnd + minValue)
        Y(i) = Int((maxValue - minValue + 1) * Rnd + minValue)
    Next i
    
    ' Выводим результаты в окно "Немедленного выполнения"
    Debug.Print "Массив X: " & Join(Application.Index(X, 0), ", ")
    Debug.Print "Массив Y: " & Join(Application.Index(Y, 0), ", ")
End Sub

В этом коде массивы X и Y заполняются случайными целыми числами. Команда Randomize используется для инициализации генератора случайных чисел, чтобы каждый запуск макроса производил новый набор чисел, не повторяя предыдущую последовательность.

Такой подход делает код универсальным и позволяет подстраивать диапазон или размер массивов, просто изменяя соотвествующие параметры.

Категория: Программирование

Теги: VBA, массивы, случайные числа, Excel