Пользовательские функции в Excel

[Elfix]

Добрый день!

Написал на VBA несколько пользовательских функций. Оформил в виде надстройки Excel. Возникло два вопроса.

1. При открытии документа на чужом компьютере функции не распознаются. Можно ли как-то сохранить результаты функций как значения, чтобы их можно было спокойно просматривать на чужих машинах? Может быть есть возможность получить список всех доступных пользовательских функций и пробежаться по всем ячейкам, которые их содержат, попутно пересохраняя их значения?

2. Можно ли каким-нибудь образом подключить описание функции - что-то типа справочной информации. Есть ли в Office какие-нибудь средства для этого?

Надеюсь на скорый и грамотный ответ...

[Teslenko_EA]

Здравствуйте Elfix.
1. "Можно ли как-то сохранить результаты функций..." - да, копировать + специальная вставка Значения. "...список .. пользовательских ... функций ... пересохраняя их значения" - "пробежавшись" по диаппазону листа, можно выполнить "пересохранение", но "список" имен пользовательских функций должен быть известен.
2 "Можно ли каким-нибудь образом..." - каким-нибудь конечно же можно, но MS Office не имеет средств для этого.
Евгений.

[Elfix]

Имеется ввиду программное пересохранение...
Пользователи обычно забывают сохранять результаты функций как значения и высылают друг другу файлы со своими пользовательскими функциями.

[Elfix]

Если список пользовательских функций неизвестен, как их получить?

[Teslenko_EA]

программное может выглядеть так:

    Cells.Copy
    Cells.PasteSpecial Paste:=xlPasteValues

а выполнение команд можно "повесить" на закрытие книги

Sub Workbook_BeforeClose(Cancel As Boolean)
   ....
End Sub

но при отправке документа непосредственно из Excel эта "защита" не спасет.
"...как их получить" - обратиться к Администратору или к тому человеку который их устанавливал.
Евгений.

[Elfix]

Да я сам их писал и устанавливал...
Считаю вопрос не раскрыт...

[Teslenko_EA]

Плохо конечно, что Вы не раскрыли вопрос, закрытый сложнее объяснять
да еще парадокс (или проблемы с памятью) "список пользовательских функций неизвестен" - "Да я сам их писал и устанавливал"
Если все же удастся вспомнить или посмотреть имена пользовательских функций, можете воспользоваться подобной процедурой:

Sub toValue()
Dim o As Object, s$
For Each o In Range("A1:w1000") 'Cells 'задайте требуемый диаппазон
    s = o.Formula
    If Left(s, 1) = "=" Then
        s = Mid(s, 2, InStr(2, s, "(") - 2)
        Select Case s
        Case "функция1", "функция2", "функция3" '"список" используемых функций
            o.Formula = o.Value
        End Select
    End If
Next
End Sub

Евгений.

[Elfix]

Немного поэкспериментировав все таки установил описание к файлу справки.

Создал макрос, в списке макросов нажал параметры, в поле описание ввел текст описания макроса. Далее жму изменить и заменяю Sub на Public Function, т. е. подменяю процедуру функцией.

Жму в мастер функций и вижу свое описание в пользовательских функциях. Как бы такое сделать программно? Порылся в гугле, нашел метод

Application.MacroOptions Macro:="MyTestFunction", Description:="Описание моей тестовой функции"

Но он не работает...

[Elfix]

Если все же удастся вспомнить или посмотреть имена пользовательских функций, можете воспользоваться подобной процедурой:

Поставим вопрос по-другому. Предположим, что пользовательские функции пишу не только я, но и сотни других разработчиков, а пользователи подключают их одни за другими.

Моя задача сохранить как значение результаты всех функций, которые являются пользовательскими, т. е. лежат в категории Определенные пользователем. Это не проблемы с моей памятью, это естественная потребность программного получения списка доступных методов. Не понимаю, что здесь для Вас, Евгений, является парадоксальным?

[SAS888]

А Вы (все) не используйте надстройку, а все пользовательские функции поместите в программный модуль. И вопросов не будет.