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

Вход

Регистрация

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

 

= Мир MS Excel/Автапересчет функции УДФ - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Автапересчет функции УДФ (Функции/Function)
Автапересчет функции УДФ
Обитатель Дата: Воскресенье, 22.05.2016, 14:58 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 7
Репутация: 0 ±
Замечаний: 20% ±

Excel 2007
Добрый день.
есть УДФ, считающая кол-во листов со статусом видимые
как сделать её что бы пересчет происходил автоматически при изменение видимости листов?
К сообщению приложен файл: 9251354.xlsm(15Kb)
 
Ответить
СообщениеДобрый день.
есть УДФ, считающая кол-во листов со статусом видимые
как сделать её что бы пересчет происходил автоматически при изменение видимости листов?

Автор - Обитатель
Дата добавления - 22.05.2016 в 14:58
SLAVICK Дата: Воскресенье, 22.05.2016, 18:12 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 1839
Репутация: 614 ±
Замечаний: 0% ±

2007,2010,2013,2016
В функцию добавьте
[vba]
Код
Application.Volatile
[/vba]
и в модуль книги:
[vba]
Код
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Calculate
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Calculate
End Sub
[/vba]
К сообщению приложен файл: 7942857.xlsm(16Kb)


Иногда все проще чем кажется с первого взгляда.
 
Ответить
СообщениеВ функцию добавьте
[vba]
Код
Application.Volatile
[/vba]
и в модуль книги:
[vba]
Код
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Calculate
End Sub
Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Calculate
End Sub
[/vba]

Автор - SLAVICK
Дата добавления - 22.05.2016 в 18:12
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Автапересчет функции УДФ (Функции/Function)
Страница 1 из 11
Поиск:

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