правильное копирование функции UDF в книгу макросов

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » правильное копирование функции UDF в книгу макросов (Макросы/Sub)

Мурад

Дата: Вторник, 25.10.2016, 09:50 | Сообщение № 1

Группа: Проверенные

Ранг: Ветеран

Сообщений: 513

Репутация: 18 ±

Замечаний: 0% ±

Excel 2007

Доброе утро! Ребята, подскажите, в чем может быть проблема? (понятно, что в кривизне моих рук)))
Вставляю коды из темы СцепитьЕсли() в свою личную книгу макросов, но в ячейке выходит ошибка #ИМЯ?
Я использовал вначале код Alex_ST, вышла ошибка. Я этот код удалил и вставил уже код Serge_007. Может, не в личную книгу макросов надо вставлять код?
$IMAGE2$

К сообщению приложен файл: 9346377.xlsx (9.5 Kb)

Сообщение отредактировал Мурад - Вторник, 25.10.2016, 10:01

Ответить

_Boroda_

Дата: Вторник, 25.10.2016, 09:55 | Сообщение № 2

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16672

Репутация: 6479 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

Блин! 400 сообщений (кстати, поздравляю!!!), а темы так и не научились называть. Переименовывайте.
И поподробнее опишите
как добавляете в книгу макросов, куда добавляете
как пишете формулу на листе

Только сначала переименуйте, а потом подробности

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

Мурад

Дата: Вторник, 25.10.2016, 10:12 | Сообщение № 3

Группа: Проверенные

Ранг: Ветеран

Сообщений: 513

Репутация: 18 ±

Замечаний: 0% ±

Excel 2007

Спасибо за поздравления. Ваш сайт самый лучший

Сообщение отредактировал Мурад - Вторник, 25.10.2016, 10:15

Ответить

_Boroda_

Дата: Вторник, 25.10.2016, 10:18 | Сообщение № 4

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16672

Репутация: 6479 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

Цитата _Boroda_, 25.10.2016 в 09:55, в сообщении № 2

как пишете формулу на листе

Вот так?
[vba]

Код

=PERSONAL.XLSB!сцепитьесли(E2:E7)

[/vba]

Ответить

Мурад

Дата: Вторник, 25.10.2016, 10:24 | Сообщение № 5

Группа: Проверенные

Ранг: Ветеран

Сообщений: 513

Репутация: 18 ±

Замечаний: 0% ±

Excel 2007

Нет, пишу сразу

Код

=сцепитьесли($A$1:$A$9;D1;$B$1:$B$9;";")

Ответить

_Boroda_

Дата: Вторник, 25.10.2016, 10:27 | Сообщение № 6

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16672

Репутация: 6479 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

Цитата Мурад, 25.10.2016 в 10:24, в сообщении № 5

Нет, пишу сразу

И Excel ищет макрос СЦЕПИТЬЕСЛИ в текущей книге. Не находит. И ругается.

В Excel cлева от строки формул есть кнопочка fx, нажмите на нее, вылезет мастер вставки функций, выберите там категорию "Определенные пользователем" и посмотрите.

Кто как, но я довольно редко использую в файлах UDF-ки, лежащие в Персонале. Я их оттуда копирую и вставляю в сам файл. Тогда его (файл) можно переносить на другие компьютеры, на которых нет в Персонале этой UDF.
Впрочем, по-разному бывает, иногда и из Персонала использую.

Ответить

Мурад

Дата: Вторник, 25.10.2016, 10:34 | Сообщение № 7

Группа: Проверенные

Ранг: Ветеран

Сообщений: 513

Репутация: 18 ±

Замечаний: 0% ±

Excel 2007

Ну говорили мне об этом уже

Как запомнить на будущее, чтоб не плодить лишних тем.
Спасибо, Александр! Некоторые часами делают полезное дело, создают макросы для удобства пользователей, а кто-то не может толком научиться ими пользоваться..
Может, для склеротиков, вроде меня, стоит уточнять в формуле, что ее использовать через функции, определенные пользователем (наподобие того, как часто напоминают о правильном использовании формулы массива - Ctrl+Shift+Enter)?

Ответить

SLAVICK

Дата: Вторник, 25.10.2016, 11:41 | Сообщение № 8

Группа: Модераторы

Ранг: Старожил

Сообщений: 2290

Репутация: 766 ±

Замечаний: 0% ±

2019

Цитата _Boroda_, 25.10.2016 в 10:27, в сообщении № 6

Кто как, но я довольно редко использую в файлах UDF-ки, лежащие в Персонале.

Я каждый день пользуюсь.

Цитата Мурад, 25.10.2016 в 10:24, в сообщении № 5

Нет, пишу сразу

Тоже так всегда пишу - все работает.

Попробуйте изменить имя функции - может поможет.

Добавлено:
Вот я башка дырявая - у меня же личные книги макросов, сохранены как надстройки - поэтому у меня и работает...
Сохраните личную книгу макросов как надстройку:
для этого можно такой макрос запустить из личной книги макросов:
[vba]

Код

Sub Сохранить_книгу_как_надстройку()
Dim wb As Workbook
Set wb = ThisWorkbook
wb.IsAddin = True
wb.Save
End Sub

[/vba]

К сообщению приложен файл: 6951814.jpg (36.3 Kb)

Иногда все проще чем кажется с первого взгляда.

Ответить

Мурад

Дата: Вторник, 25.10.2016, 12:24 | Сообщение № 9

Группа: Проверенные

Ранг: Ветеран

Сообщений: 513

Репутация: 18 ±

Замечаний: 0% ±

Excel 2007

SLAVICK, спасибо огромное! Сработало. Теперь список доступных функций, определенных пользователем, отображается в раскрывающемся списке при вводе первых букв функции

Ответить

Мурад

Дата: Вторник, 25.10.2016, 16:52 | Сообщение № 10

Группа: Проверенные

Ранг: Ветеран

Сообщений: 513

Репутация: 18 ±

Замечаний: 0% ±

Excel 2007

Цитата SLAVICK, 25.10.2016 в 11:41, в сообщении № 8

Сохраните личную книгу макросов как надстройку:
для этого можно такой макрос запустить из личной книги макросов:

Только заметил побочный эффект такого действия - пропал список доступных макросов при нажатии на кнопку "Макросы" на ленте

Ответить

krosav4ig

Дата: Вторник, 25.10.2016, 18:17 | Сообщение № 11

Группа: Друзья

Ранг: Старожил

Сообщений: 2347

Репутация: 989 ±

Замечаний: 0% ±

Excel 2007,2010,2013

Цитата Мурад, 25.10.2016 в 16:52, в сообщении № 10

побочный эффект

он легко лечится
и, кстати, не обязательно сохранять как надстройку, достаточно установить свойство IsAddin при открытии PERSONAL.XLSB
в стандартный модуль личной книги макросов
[vba]

Код

Sub Auto_Open()
    ThisWorkbook.IsAddin = True
    Application.OnKey "%{F8}", "ShowMacro"
End Sub
Sub ShowMacro()
    Dim wb As Workbook
    Set wb = ActiveWorkbook
    Application.ScreenUpdating = False
    With ThisWorkbook
        .IsAddin = False
        wb.Activate
        Application.CommandBars.ExecuteMso "PlayMacro"
        DoEvents
        .IsAddin = True
    End With
    Application.ScreenUpdating = True
End Sub

[/vba]и вместо тыканья по ленте жать Alt+F8

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Вторник, 25.10.2016, 18:23

Ответить

SLAVICK

Дата: Среда, 26.10.2016, 08:37 | Сообщение № 12

Группа: Модераторы

Ранг: Старожил

Сообщений: 2290

Репутация: 766 ±

Замечаний: 0% ±

2019

Хм. Может я чего не понимаю, но зачем столько действий и кода, если достаточно один раз сохранить книгу с включенной отметкой IsAddin и забыть про все мороки(что я и сделал(сделал и забыл

)).

Цитата krosav4ig, 25.10.2016 в 18:17, в сообщении № 11

и вместо тыканья по ленте жать Alt+F8

и чем это проще?
у мну на ленте сгруппировано(разбито на категории) свыше 100 макросов клацнул один раз по вкладке - второй по макросу... итого два клика. а так - попробуй найди в списке (особенно если не помнишь названия)...