Редактирование макросов

Вернемся к макросу, созданному и измененному ранее, код которого приведен в Листинге 2. Рассмотрим назначение каждой его инструкции.
Sub Уравн()
'
' Уравн Макрос
' Решение линейных уравнений Макрос записан 10.03.2008 (Мельников)
'
' Сочетание клавиш: Ctrl+U
'
Dim rez As String
Dim A As String
Dim B As String
A = InputBox("Введите адрес диапазона матрицы А")
B = InputBox("Укажите адрес диапазона вектора В")
rez = InputBox("укажите адрес диапазона для вывода результата")
Range(rez).Select
Selection.FormulaArray = "=MMULT(MINVERSE(" & A & ")," & B & ")"
End Sub
Макрос представляет собой подпрограмму Sub. В подпрограмме декларированы три строковые переменные:
Rez- для хранения адреса диапазона, в который будет выводиться результат;
A – для хранения адреса диапазона, в котором записаны значения матрицы А;
B – для хранения адреса диапазона, в котором содержатся элементы вектора В.
Значения перечисленным переменным присваиваются посредством окон ввода IputBox, которые поочередно открываются после запуска макроса.
Инструкция Range(rez).Select выполняет выделение области ячеек рабочего листа, в которую будет записана формула для вычисления и будет помещен результат.
Инструкция Selection.FormulaArray = предписывает поместить формулу, записанную справа от знака = в выделенный диапазон.
Строковая константа "=MMULT(MINVERSE(" & A & ")," & B & ")" – формула Excel, помещаемая в ячейки рабочего листа.

Предыдущая  Следующая   В содержание темы