Когда вы разрабатываете рабочие листы, которые будут использоваться другими людьми, вы должны протестировать эти рабочие листы, чтобы убедиться, что они работают так, как вы ожидаете. Это особенно верно для рабочих листов, которые содержат сложные формулы или будут использоваться в критических целях. Концепция тестирования рабочего листа означает, что вам нужно будет сгенерировать какие-то данные для использования при тестировании рабочего листа.
О создании комплектов тестирования программного обеспечения написаны целые книги. Насколько тщательно вы собираете тестовые данные, во многом зависит от потребностей вашей аудитории и характера вашего рабочего листа. К сожалению, не существует быстрого лекарства от всех проблем, которое автоматически определит, что вам нужно, и сгенерирует для вас данные. Однако в Excel есть инструменты, которые вы можете использовать с этой целью.
Во-первых, если вам нужно сгенерировать случайные числовые значения, вы можете использовать функции рабочего листа RAND или RANDBETWEEN. Разница в том, что RAND генерирует значение от 0 до 1, а RANDBETWEEN генерирует целочисленные значения между любыми установленными вами границами.
Однако случайные данные могут не подходить для ваших нужд тестирования. Это особенно верно, когда вы проверяете границы своих формул. Например, тестирование с большими значениями, маленькими значениями или комбинацией больших и малых значений. Точно так же вы можете проверить несоответствующие значения, например, использовать в качестве ввода текст, а не числа (или наоборот). Есть целый ряд условий, которые вам нужно продумать, а затем выбрать тип данных, который вам подходит.
При желании вы можете использовать макросы для генерации данных тестирования. Следующий макрос заполняет выбранный диапазон ячеек случайным числовым значением между любыми установленными вами границами (минимальным и максимальным).
Sub RandNums () Dim MyRange As Range Dim lMin As Long, lMax As Long Dim dRand As Double ‘Если выбран не диапазон Excel Если TypeName (Selection) «Range», то выйти из поднабора MyRange = Selection’ Получить минимальное и максимальное значение lMin = CLng (InputBox («Minimum?»)) LMax = CLng (InputBox («Maximum?»)) Randomize Application.ScreenUpdating = False For Each c In MyRange.Cells ‘Вычислить случайное значение, где’ Value> = Min And Value
Чтобы использовать макрос, просто выберите диапазон ячеек, который должен содержать случайные числовые значения, а затем запустите макрос. Если вы должны использовать целые значения в ячейках, то вы можете «раскомментировать» отмеченную строку в макросе.
Если вы хотите заполнить диапазон ячеек случайными датами, то внесите небольшое изменение в макрос RandNums приводит к следующему.
Sub RandDates () Dim MyRange As Range Dim dtMin As Date, dtMax As Date Dim dtRand As Date ‘Если выбран не диапазон Excel Если TypeName (Selection) «Диапазон», то выйти из поднабора MyRange = Selection ‘Получить минимальное и максимальное значение’ From: 01.01.1990 (укажите дату начала) dtMin = # 1/1/1990 # ‘To: Today dtMax = Date Randomize Application.ScreenUpdating = False For Each c In MyRange .Cells ‘Вычислить случайное значение, где’ Value> = Min And Value
Опять же, просто выберите диапазон и затем запустите макрос. Вы можете изменить начальные значения, установленные для переменных dtMin и dtMax, чтобы указать границы для желаемых дат. При желании вы также можете изменить форматирование, применяемое к ячейкам после того, как в ячейках будет сохранена случайная дата.
Источник: