Добавить макросом Module и Function

[agregator]

Здравствуйте, уважаемые программисты. Скажите пожалуйста как макросом добавить Module и в него записать Function

Function ВМЕОШ(Формула)

'*******************************************************
' Функция выдаёт вместо ошибки 0, и значение аргумента если ошибки нет
'*******************************************************

If IsError(Формула) = True Then
   ВМЕОШ = 0
Else
   ВМЕОШ = Формула
End If

End Function

[agregator]

Проблема такая. Надо, чтобы при перемещении/скопировании Листа1 в Новую книгу, в нём продолжала работать пользовательская (собственная) функция (Записанная в Модуле1 исходной Книги). Подскажите, как это можно сделать, чтобы не писало #ИМЯ?.
P.S. Сохранить пользовательскую функцию в Надстройке или в PERSONAL.XLS не подходит.

[EducatedFool]

Не проще ли вместо пользовательской функции использовать встроенные возможности Excel?

  Ячейка: B1      Формула  (стиль A1):   =ЕСЛИ(ЕОШ(A1);0;A1)
                  Формула  (стиль R1C1): =ЕСЛИ(ЕОШ(RC[-1]);0;RC[-1])

В этом случае вместо ошибок будут выводиться нули - и никаких макросов не нужно.

[agregator]

В реальном документе слишком длинные формулы (=ЕСЛИ(ЕОШ(ПОЛУЧИТЬ.ДАННЫЕ.СВОДНОЙ. ТАБЛИЦЫ("Сумма по полю Время заказчика";Сводная!$A$5;"Цех";$A$6; "Вид топлива";$B23;"Месяц затрат";Данные!$C$3));0;ПОЛУЧИТЬ.ДА ННЫЕ.СВОДНОЙ.ТАБЛИЦЫ("Сумма по полю Время заказчика";Сводная!$A$5;"Цех";$A$6; "Вид топлива";$B23;"Месяц затрат";Данные!$C$3))-G11-G15-G19-ЕСЛИ(ЕОШ(ПОЛУЧИТЬ.ДАННЫЕ.СВОДНОЙ.ТА БЛИЦЫ("Сумма по полю Время заказчика";'Сводная АРУ'!$A$6;"Вид топлива";"45";"Месяц затрат";Данные!$C$3;"№ справ.";2));0;ПОЛУЧИТЬ.ДАННЫЕ.СВОДН ОЙ.ТАБЛИЦЫ("Сумма по полю Время заказчика";'Сводная АРУ'!$A$6;"Вид топлива";"45";"Месяц затрат";Данные!$C$3;"№ справ.";2))-ЕСЛИ(ЕОШ(ПОЛУЧИТЬ.ДАННЫЕ.СВОДНОЙ.ТА БЛИЦЫ("Сумма по полю Время заказчика";'Сводная АРУ'!$A$6;"Гар. №";1119;"Вид топлива";"45";"Месяц затрат";Данные!$C$3;"№ справ.";2));0;ПОЛУЧИТЬ.ДАННЫЕ.СВОДН ОЙ.ТАБЛИЦЫ("Сумма по полю Время заказчика";'Сводная АРУ'!$A$6;"Гар. №";1119;"Вид топлива";"45";"Месяц затрат";Данные!$C$3;"№ справ.";2))).
И много формул уже сделал, долго переделывать.
EducatedFool, а как я думал, это сложно?

[VictorM]

Посмотрите здесь
Как экспортировать все модули текущей книги
Экспортируйте в новую книгу Ваш модуль с функцией

[EducatedFool]

Можно упростить формулы (с использованием дополнительного столбца)
или ещё что-нибудь придумать

Покажите свой файл - авось, формулисты что-нибудь да изобретут...

[VictorM]

Есть еще такой вот, рабочий пример от John Walkenbach
Замена модуля VBA в книге, при небольшой доработке, вполне может подойти для Вашей задачи

[agregator]

VictorM, не могу Экспортировать Module1 из текущей книги

Sub ReplaceModule()
'   Экспорт Module1 из текущей книги
    Filename = ThisWorkbook.Path & "\tempmodxxx.bas"
    ThisWorkbook.VBProject.VBComponents("Module1") _
      .Export Filename
      
End Sub

Пишет Debug на

ThisWorkbook.VBProject.VBComponents("Module1") _
      .Export Filename

Посоветуйте, что можно сделать.

[VictorM]

А Вы все разрешения установили?

перед выполнением приведённых примеров, необходимо предварительно в меню Сервис выбрать пункт Макросы и команду Безопасность. Затем выделить закладку Надёжные источники и установить "флажок" Доверять доступ к Visual Basic Project. В противном случае, при попытке доступа к VBProject, Вы получите ошибку.

[agregator]

VictorM, спасибо. Заработало!