Друзья,
Сегодня я расскажу о макросе Excel, который поможет вам заполнить таблицу размером 10*15 случайными числами из диапазона от 1 до 100, и провести нормализацию данных для каждого столбца;
Для начала, создадим таблицу размером 10*15. Для этого я выбрал удобный способ ⎼ использование макроса. Чтобы создать макрос, вам необходимо перейти во вкладку ″Разработчик″ и выбрать ″Записать макрос″.Затем вы должны назвать макрос и нажать кнопку ″ОК″. Теперь каждое действие, которое вы будете выполнять, будет записано в макросе.Чтобы заполнить таблицу случайными числами, я буду использовать следующий код⁚
vba
Sub FillTable
Dim rng As Range
Dim row As Range
Dim cell As Range
Set rng Range(″A1⁚O10″) ‘указываем диапазон таблицы
Randomize ‘инициализация генератора случайных чисел
For Each row In rng.Rows ‘проходим по каждой строке в диапазоне
For Each cell In row.Cells ‘проходим по каждой ячейке в строке
cell.Value Int((100 * Rnd) 1) ‘заполняем ячейку случайным числом от 1 до 100
Next cell
Next row
End Sub
Теперь, чтобы провести нормализацию данных для каждого столбца, я буду использовать следующий код⁚
vba
Sub NormalizeData
Dim rng As Range
Dim column As Range
Dim cell As Range
Dim sum As Double
Dim mean As Double
Dim variance As Double
Set rng Range(″A1⁚O10″) ‘указываем диапазон таблицы
For Each column In rng.Columns ‘проходим по каждому столбцу в диапазоне
sum 0
For Each cell In column.Cells ‘считаем сумму значений в столбце
sum sum cell.Value
Next cell
mean sum / column.Cells.Count ‘считаем среднее значение по столбцу
variance WorksheetFunction.Var(column) ‘считаем дисперсию столбца
For Each cell In column.Cells ‘нормализуем каждую ячейку в столбце
cell.Value (cell.Value ⎼ mean) / Sqr(variance) ‘выполняем нормализацию, отнимаем среднее значение и делим на корень из дисперсии
Next cell
Next column
End Sub
Теперь, когда у нас есть оба макроса, мы можем запустить их. Для этого откроем вкладку ″Разработчик″ и выберем ″Макросы″. В списке макросов выберем ″FillTable″ и нажмем ″Выполнить″. После заполнения таблицы случайными числами выберем макрос ″NormalizeData″ и нажмем ″Выполнить″. Процесс нормализации данных для каждого столбца будет автоматически выполнен.
Теперь у нас есть таблица, заполненная случайными числами, и значения каждого столбца нормализованы. Это может быть полезно при работе с большими объемами данных или при проведении статистического анализа.
Я надеюсь, что эта статья была полезной и поможет вам в работе с данными в Excel. Удачи вам в ваших проектах и не забывайте использовать макросы для автоматизации рутинных задач!