Ескертпе
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Жүйеге кіруді немесе каталогтарды өзгертуді байқап көруге болады.
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Каталогтарды өзгертуді байқап көруге болады.
Возвращает сведения о функциях в библиотеках динамической компоновки (DLL) или ресурсах кода, которые были зарегистрированы в функциях REGISTER или REGISTER.ID макросов. Только для чтения, Variant.
Синтаксис
expression. RegisteredFunctions (Index1, Index2)
выражение: переменная, представляющая объект Application.
Параметры
| Имя | Обязательный или необязательный | Тип данных | Описание |
|---|---|---|---|
| Index1 | Необязательный | Variant | Имя библиотеки DLL или ресурса кода. |
| Index2 | Необязательный | Variant | Имя функции. |
Замечания
Если аргументы индекса не указаны, это свойство возвращает массив, содержащий список всех зарегистрированных функций. Каждая строка в массиве содержит сведения об одной функции, как показано в следующей таблице.
| Столбец | Содержание |
|---|---|
| 1 | Имя библиотеки DLL или ресурса кода. |
| 2 | Имя процедуры в библиотеке DLL или ресурсе кода. |
| 3 | Строки, указывающие типы данных возвращаемых значений, а также число и типы данных аргументов. |
Если зарегистрированных функций нет, это свойство возвращает значение NULL.
Пример
В этом примере создается список зарегистрированных функций, помещая одну зарегистрированную функцию в каждую строку на Листе 1. Столбец А содержит полный путь и имя файла библиотеки DLL или ресурса кода, столбец B — имя функции, а столбец C — код типа данных аргумента.
theArray = Application.RegisteredFunctions
If IsNull(theArray) Then
MsgBox "No registered functions"
Else
For i = LBound(theArray) To UBound(theArray)
For j = 1 To 3
Worksheets("Sheet1").Cells(i, j). _
Formula = theArray(i, j)
Next j
Next i
End If
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.