Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/UDF: не возвращает правильное значение с разных листов/книг - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » UDF: не возвращает правильное значение с разных листов/книг (Макросы/Sub)
UDF: не возвращает правильное значение с разных листов/книг
mick-77 Дата: Воскресенье, 12.07.2020, 13:14 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 35
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Добрый день!

Создал UDF для подсчёта количества одинаковых вертикальных данных, назовём их рисунками, по столбцам. Образец "рисунка", или аргумент, для поиска указывается в А1.
Столкнулся со следующей проблемой.
На листе1 книги1 указал формулы, возвращающие результат поиска по листам книги1 и книги2.
Однако при работе формулы с книгой2 возникает странности: при пересчете формулы возникает возврат ошибочного значения соседней формулы, работающей по книге1. И наоборот. Также при указании на другую книгу может вернуться ЗНАЧ.
Здесь на форуме меня уже ставили на путь истинный, когда я настраивал работу формулы по разным листам одной книги - http://www.excelworld.ru/forum/10-44069-1
Может, кто-нибудь подскажет, что нужно добавить в коде для работы формулы по разным книгам.
Спасибо!

Файл с примером и кодом UDF прикрепил
К сообщению приложен файл: 01.xlsm (42.5 Kb) · 02.xlsm (38.2 Kb)
 
Ответить
СообщениеДобрый день!

Создал UDF для подсчёта количества одинаковых вертикальных данных, назовём их рисунками, по столбцам. Образец "рисунка", или аргумент, для поиска указывается в А1.
Столкнулся со следующей проблемой.
На листе1 книги1 указал формулы, возвращающие результат поиска по листам книги1 и книги2.
Однако при работе формулы с книгой2 возникает странности: при пересчете формулы возникает возврат ошибочного значения соседней формулы, работающей по книге1. И наоборот. Также при указании на другую книгу может вернуться ЗНАЧ.
Здесь на форуме меня уже ставили на путь истинный, когда я настраивал работу формулы по разным листам одной книги - http://www.excelworld.ru/forum/10-44069-1
Может, кто-нибудь подскажет, что нужно добавить в коде для работы формулы по разным книгам.
Спасибо!

Файл с примером и кодом UDF прикрепил
Автор - mick-77
Дата добавления - 12.07.2020 в 13:14
Hugo Дата: Воскресенье, 12.07.2020, 14:31 | Сообщение № 2
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3690
Репутация: 790 ±
Замечаний: 0% ±

365
Не особо вникал, но думаю нужно ещё добавить книгу:
[vba]
Код

    intRow = Workbooks(RangeForSearch.Parent.Parent.Name).Sheets(RangeForSearch.Parent.Name).Range(RangeForSearch.Address).End(xlUp).Row
    count = 0: count2 = 0
    For c = CombLen To intRow
        arrVert = Workbooks(RangeForSearch.Parent.Parent.Name).Sheets(RangeForSearch.Parent.Name).Range(ColumnName & c & ":" & ColumnName & c + CombLen - 1).Value

[/vba]

webmoney: E265281470651 Z422237915069
USDT TRC20: TN8XeEF17o5KPBD9pNwYzNyruycuAc2mVD
 
Ответить
СообщениеНе особо вникал, но думаю нужно ещё добавить книгу:
[vba]
Код

    intRow = Workbooks(RangeForSearch.Parent.Parent.Name).Sheets(RangeForSearch.Parent.Name).Range(RangeForSearch.Address).End(xlUp).Row
    count = 0: count2 = 0
    For c = CombLen To intRow
        arrVert = Workbooks(RangeForSearch.Parent.Parent.Name).Sheets(RangeForSearch.Parent.Name).Range(ColumnName & c & ":" & ColumnName & c + CombLen - 1).Value

[/vba]
Автор - Hugo
Дата добавления - 12.07.2020 в 14:31
mick-77 Дата: Воскресенье, 12.07.2020, 16:28 | Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 35
Репутация: 0 ±
Замечаний: 0% ±

Excel 2007
Спасибо, Hugo, за помощь!
Заработало.
 
Ответить
СообщениеСпасибо, Hugo, за помощь!
Заработало.
Автор - mick-77
Дата добавления - 12.07.2020 в 16:28
Мир MS Excel » Вопросы и решения » Вопросы по VBA » UDF: не возвращает правильное значение с разных листов/книг (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!