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

Вход

Регистрация

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

 

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

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

Excel 2007
Добрый день.
есть УДФ, считающая кол-во листов со статусом видимые
как сделать её что бы пересчет происходил автоматически при изменение видимости листов?
К сообщению приложен файл: 9251354.xlsm (14.5 Kb)
 
Ответить
СообщениеДобрый день.
есть УДФ, считающая кол-во листов со статусом видимые
как сделать её что бы пересчет происходил автоматически при изменение видимости листов?
Автор - Обитатель
Дата добавления - 22.05.2016 в 14:58
SLAVICK Дата: Воскресенье, 22.05.2016, 18:12 | Сообщение № 2
Группа: Модераторы
Ранг: Старожил
Сообщений: 2290
Репутация: 766 ±
Замечаний: 0% ±

2019
В функцию добавьте
[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 (15.9 Kb)

Иногда все проще чем кажется с первого взгляда.
 
Ответить
СообщениеВ функцию добавьте
[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 из 1
  • 1
Поиск:

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