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

Вход

Регистрация

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

 

= Мир MS Excel/Параметр вычисления формул в книге - вручную - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_, DrMini  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Параметр вычисления формул в книге - вручную (Макросы/Sub)
Параметр вычисления формул в книге - вручную
ExcelDK Дата: Понедельник, 27.10.2025, 15:01 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 117
Репутация: 8 ±
Замечаний: 0% ±

2010
Здравствуйте, уважаемые знатоки!
Помогите пожалуйста, нужен макрос который переключал бы режим пересчёта формул в режим "вручную" всякий раз, как я возвращаюсь из остальных книг с автоматическим режимом, в свою, где всегда должен быть "вручную".
Обычно так бывает - сформировал отчёт, перевёл его в автоматический режим, сохранил, отправил. Вернулся в свой файл, а он уже в автоматическом режиме, разумеется, забыл переключить режим и наслаждаюсь крутящимся колёсиком...
 
Ответить
СообщениеЗдравствуйте, уважаемые знатоки!
Помогите пожалуйста, нужен макрос который переключал бы режим пересчёта формул в режим "вручную" всякий раз, как я возвращаюсь из остальных книг с автоматическим режимом, в свою, где всегда должен быть "вручную".
Обычно так бывает - сформировал отчёт, перевёл его в автоматический режим, сохранил, отправил. Вернулся в свой файл, а он уже в автоматическом режиме, разумеется, забыл переключить режим и наслаждаюсь крутящимся колёсиком...
Автор - ExcelDK
Дата добавления - 27.10.2025 в 15:01
and_evg Дата: Понедельник, 27.10.2025, 15:09 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 490
Репутация: 88 ±
Замечаний: 0% ±

Excel 2007
Добрый день.
В модуль книги
[vba]
Код
Private Sub Workbook_Activate()
Application.Calculation = xlCalculationManual
End Sub
[/vba]
 
Ответить
СообщениеДобрый день.
В модуль книги
[vba]
Код
Private Sub Workbook_Activate()
Application.Calculation = xlCalculationManual
End Sub
[/vba]
Автор - and_evg
Дата добавления - 27.10.2025 в 15:09
ExcelDK Дата: Понедельник, 27.10.2025, 15:19 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 117
Репутация: 8 ±
Замечаний: 0% ±

2010
and_evg, спасибо!
Да, работает! Я без нижнего подчёркивания пытался... :facepalm:
 
Ответить
Сообщениеand_evg, спасибо!
Да, работает! Я без нижнего подчёркивания пытался... :facepalm:
Автор - ExcelDK
Дата добавления - 27.10.2025 в 15:19
ExcelDK Дата: Понедельник, 27.10.2025, 16:45 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 117
Репутация: 8 ±
Замечаний: 0% ±

2010
Но, не годится. Копировать между файлами не даёт... Печалька)


Сообщение отредактировал ExcelDK - Понедельник, 27.10.2025, 16:50
 
Ответить
СообщениеНо, не годится. Копировать между файлами не даёт... Печалька)
Автор - ExcelDK
Дата добавления - 27.10.2025 в 16:45
_Boroda_ Дата: Вторник, 28.10.2025, 09:46 | Сообщение № 5
Группа: Админы
Ранг: Местный житель
Сообщений: 16954
Репутация: 6630 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
А так?
[vba]
Код
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Application.Calculation = 3
End Sub

Private Sub Workbook_Deactivate()
    Application.Calculation = 1
End Sub
[/vba]

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеА так?
[vba]
Код
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Application.Calculation = 3
End Sub

Private Sub Workbook_Deactivate()
    Application.Calculation = 1
End Sub
[/vba]
Автор - _Boroda_
Дата добавления - 28.10.2025 в 09:46
ExcelDK Дата: Вторник, 28.10.2025, 11:18 | Сообщение № 6
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 117
Репутация: 8 ±
Замечаний: 0% ±

2010
Цитата _Boroda_, 28.10.2025 в 09:46, в сообщении № 5 ()
А так?

Так годится) Спасибо!
 
Ответить
Сообщение
Цитата _Boroda_, 28.10.2025 в 09:46, в сообщении № 5 ()
А так?

Так годится) Спасибо!
Автор - ExcelDK
Дата добавления - 28.10.2025 в 11:18
ExcelDK Дата: Вторник, 28.10.2025, 12:28 | Сообщение № 7
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 117
Репутация: 8 ±
Замечаний: 0% ±

2010
Но, есть всё таки дыры, при простом переходе из книги с автоматическом режимом в мою, с ручным, моя остаётся в автоматическом режиме. В плохом случае я в этот момент очищаю или устанавливаю автофильтр, соответственно виснет.


Сообщение отредактировал ExcelDK - Вторник, 28.10.2025, 12:34
 
Ответить
СообщениеНо, есть всё таки дыры, при простом переходе из книги с автоматическом режимом в мою, с ручным, моя остаётся в автоматическом режиме. В плохом случае я в этот момент очищаю или устанавливаю автофильтр, соответственно виснет.
Автор - ExcelDK
Дата добавления - 28.10.2025 в 12:28
ExcelDK Дата: Среда, 29.10.2025, 11:02 | Сообщение № 8
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 117
Репутация: 8 ±
Замечаний: 0% ±

2010
Cmivadwot, спасибо за отклик! Правильно сделали, что здесь не выложили код)
Не работает, не пойму в чём дело. При одной открытой книге спотыкается (желтая подсветка) на 3 макросе, при двух открытых на первом.
 
Ответить
СообщениеCmivadwot, спасибо за отклик! Правильно сделали, что здесь не выложили код)
Не работает, не пойму в чём дело. При одной открытой книге спотыкается (желтая подсветка) на 3 макросе, при двух открытых на первом.
Автор - ExcelDK
Дата добавления - 29.10.2025 в 11:02
_Boroda_ Дата: Среда, 29.10.2025, 12:56 | Сообщение № 9
Группа: Админы
Ранг: Местный житель
Сообщений: 16954
Репутация: 6630 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Цитата ExcelDK, 29.10.2025 в 11:02, в сообщении № 8 ()
Правильно сделали, что здесь не выложили код)
Нет, не правильно. Форум для того и существует, чтобы сюда, а не в личку, коды класть. Пусть даже и не всегда верные

Цитата ExcelDK, 28.10.2025 в 12:28, в сообщении № 7 ()
Но, есть всё таки дыры,
ExcelDK, может, пойти другим путем и оптимизировать формулы в файле? Было бы неплохо кусочек (весь не нужно, да и не влезет он) файла посмотреть
По вот этому
Цитата ExcelDK, 28.10.2025 в 12:28, в сообщении № 7 ()
в этот момент очищаю или устанавливаю автофильтр, соответственно виснет.
предположу, что на этом листе у Вас ВПР есть, так? Если да и приложить файл не получается, то приложите точную формулу, какая в файле прописана

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
Сообщение
Цитата ExcelDK, 29.10.2025 в 11:02, в сообщении № 8 ()
Правильно сделали, что здесь не выложили код)
Нет, не правильно. Форум для того и существует, чтобы сюда, а не в личку, коды класть. Пусть даже и не всегда верные

Цитата ExcelDK, 28.10.2025 в 12:28, в сообщении № 7 ()
Но, есть всё таки дыры,
ExcelDK, может, пойти другим путем и оптимизировать формулы в файле? Было бы неплохо кусочек (весь не нужно, да и не влезет он) файла посмотреть
По вот этому
Цитата ExcelDK, 28.10.2025 в 12:28, в сообщении № 7 ()
в этот момент очищаю или устанавливаю автофильтр, соответственно виснет.
предположу, что на этом листе у Вас ВПР есть, так? Если да и приложить файл не получается, то приложите точную формулу, какая в файле прописана
Автор - _Boroda_
Дата добавления - 29.10.2025 в 12:56
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Параметр вычисления формул в книге - вручную (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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