Генерация строк для нагрузочного тестирования - VBA
Формулировка задачи:
Всем привет, прошу помочь в следующей задаче. Необходимо размножить строки в таблице следующего вида:
A1 B1 92
A2 B8 23
А3 B1 743
A4 B2 12
*столбец A1-An отвечает за количество строк, столбец B содержит случайное значение от B1 до Bm, стоблец 3 - это случайное целое число из диапазона [1;1000].
Делается это для подготовки данных для нагрузочного тестирования системы, чтобы изменяя значение n - замерять производительность. Нужно подготовить десяток таких таблиц, но имея хороший пример, смогу дальше делать сама.
PS. Я знаю, что задача простая, но, к сожалению, никогда макросами раньше не пользовалась
Решение задачи: «Генерация строк для нагрузочного тестирования»
textual
Листинг программы
Sub macro1() Dim n As Long Dim m As Long Dim asd As Long Dim sdf As Long n = InputBox("Введите число строк") m = InputBox("Введите верхний предел для второго числа") Randomize For i = 1 To n Cells(i, 1) = "A" & i t = CInt(Int((m * Rnd()) + 1)) Cells(i, 2) = "B" & IIf(t > m, m, t) t = CInt(Int((1000 * Rnd()) + 1)) Cells(i, 3) = IIf(t > 1000, 1000, t) Next i End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д