Ссылки на внешние библиотеки
Выполним эксперимент. Пусть нам требуется многократно исполнять одну и ту же оптимизационную процедуру, например из-за того, что меняются некоторые параметры функционала. Для решения проблемы многократного повтора поиска решения следует записать макрос, что мы и сделаем. В результате мы получим макрос, содержащий ссылки на функцию Solver, например следующий:
Sub Макрос3()
SolverOk SetCell:="$D$8", MaxMinVal:=2, ValueOf:="0", ByChange:="$C$2:$C$7"
SolverSolve
End Sub
Здесь
функционал формируется в ячейке D8, а
варьируемые параметры - в блоке C2:C7.
Попытаемся повторить макрос: Сервис/Макрос/Макрос3/Выполнить .
Рис.
4.72.
Ошибка компиляции
Рис.
4.73
Ссылка на Solver
ледует
отметить, что если бы мы попытались
активизировать библиотеку Solver до первого
выполнения процедуры "Поиск решения",
мы не смогли бы найти ее на панели ссылок.
Отсюда тестовый прогон процедуры
является неплохим подспорьем поиска
библиотеки.
Примеры
1. Скалярное произведение векторов (столбцы Excel) разной размерности
|
Программный модуль |
Примечания |
|
Function Scalar(A, B) As Single |
А,В имеют тип Variant. |
|
Dim n1 As Single, n2 As Single, n As Single |
Описываются все переменные. |
|
n1 = A.Rows.Count |
Число строк в объекте А. |
|
n2 = B.Rows.Count |
Число строк в объекте В. |
|
n = Application.Min(n1, n2) |
Используется функция Excel. |
|
Scalar = 0 |
|
|
For i = 1 To n |
|
|
Scalar = Scalar + A(i) * B(i) |
Объекты А и В рассматриваются как массивы. |
|
Next i |
|
|
End Function |
|
2. Поэлементное произведение массивов
|
Программный модуль |
Примечания |
|
Function element_pr(A, B) As Variant |
Возвращается массив-строка. |
|
Dim n1, n2 As Single, n As Single |
|
|
Dim C() As Single |
Начальное описание рабочего массива. |
|
n1 = A.Rows.Count |
Число строк в объекте А. |
|
n2 = B.Rows.Count |
Число строк в объекте В. |
|
n = Application.Min(n1, n2) |
Минимальное число строк. |
|
ReDim C(1 To n) |
Динамическая размерность. По умолчанию начальный индекс равен нулю, здесь - единица. |
|
For i = 1 To n |
|
|
C(i) = A(i) * B(i) |
Объекты А и В рассматриваются как массивы. |
|
Next i |
|
|
element_pr = C |
Присвоение ссылки на объект. |
|
End Function |
|