Домашняя страница 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
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 119
Репутация: 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
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 119
Репутация: 8 ±
Замечаний: 0% ±

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

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


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

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


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

2010
Cmivadwot, спасибо за отклик! Правильно сделали, что здесь не выложили код)
Не работает, не пойму в чём дело. При одной открытой книге спотыкается (желтая подсветка) на 3 макросе, при двух открытых на первом.
 
Ответить
СообщениеCmivadwot, спасибо за отклик! Правильно сделали, что здесь не выложили код)
Не работает, не пойму в чём дело. При одной открытой книге спотыкается (желтая подсветка) на 3 макросе, при двух открытых на первом.
Автор - ExcelDK
Дата добавления - 29.10.2025 в 11:02
_Boroda_ Дата: Среда, 29.10.2025, 12:56 | Сообщение № 9
Группа: Админы
Ранг: Местный житель
Сообщений: 16956
Репутация: 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
ExcelDK Дата: Среда, 29.10.2025, 14:30 | Сообщение № 10
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 119
Репутация: 8 ±
Замечаний: 0% ±

2010
Цитата _Boroda_, 29.10.2025 в 12:56, в сообщении № 9 ()
пойти другим путем и оптимизировать формулы в файле

Это да, это я оптимизировал как мог, формулы только в строке №1, везде ниже только значения. Макрос копирует из первой строки, вставляет ниже в видимые, пересчитывает, копирует и вставляет как значения.
Цитата _Boroda_, 29.10.2025 в 12:56, в сообщении № 9 ()
кусочек (весь не нужно, да и не влезет он) файла посмотреть

Боюсь даже кусочек не влезет, эта книга из 60 листов, часть из них сводные таблицы, куча макросов которые часть на заказ, часть копипаст, про некоторые вообще ничего не знаю, размер файла 145 МБ.
Цитата _Boroda_, 29.10.2025 в 12:56, в сообщении № 9 ()
предположу, что на этом листе у Вас ВПР

Да, вернее - комбинация смещ + поискпоз. Ещё куча текстовых формул.
На подготовку файла уйдёт куча времени, да и сплошь конфиденциальная инфа.
Сейчас попробую подготовить главный лист, на вашу почту отправлю @mail.ru


Сообщение отредактировал ExcelDK - Среда, 29.10.2025, 14:34
 
Ответить
Сообщение
Цитата _Boroda_, 29.10.2025 в 12:56, в сообщении № 9 ()
пойти другим путем и оптимизировать формулы в файле

Это да, это я оптимизировал как мог, формулы только в строке №1, везде ниже только значения. Макрос копирует из первой строки, вставляет ниже в видимые, пересчитывает, копирует и вставляет как значения.
Цитата _Boroda_, 29.10.2025 в 12:56, в сообщении № 9 ()
кусочек (весь не нужно, да и не влезет он) файла посмотреть

Боюсь даже кусочек не влезет, эта книга из 60 листов, часть из них сводные таблицы, куча макросов которые часть на заказ, часть копипаст, про некоторые вообще ничего не знаю, размер файла 145 МБ.
Цитата _Boroda_, 29.10.2025 в 12:56, в сообщении № 9 ()
предположу, что на этом листе у Вас ВПР

Да, вернее - комбинация смещ + поискпоз. Ещё куча текстовых формул.
На подготовку файла уйдёт куча времени, да и сплошь конфиденциальная инфа.
Сейчас попробую подготовить главный лист, на вашу почту отправлю @mail.ru
Автор - ExcelDK
Дата добавления - 29.10.2025 в 14:30
_Boroda_ Дата: Среда, 29.10.2025, 14:46 | Сообщение № 11
Группа: Админы
Ранг: Местный житель
Сообщений: 16956
Репутация: 6630 ±
Замечаний: ±

2003; 2007; 2010; 2013 RUS
Все, не нужно. Достаточно вот этого:
Цитата ExcelDK, 29.10.2025 в 14:30, в сообщении № 10 ()
комбинация смещ + поискпоз
Уберите СМЕЩ и будет Вам счастье. А если вдруг у Вас в ПОИСКПОЗ второй аргумент не ограниченный диапазон, а весь столбец (очень часто так делают), то перепишите на диапазон, можно просто на заведомо больший, чем количество строк в таблице для поиска (но без фанатизма)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
 
Ответить
СообщениеВсе, не нужно. Достаточно вот этого:
Цитата ExcelDK, 29.10.2025 в 14:30, в сообщении № 10 ()
комбинация смещ + поискпоз
Уберите СМЕЩ и будет Вам счастье. А если вдруг у Вас в ПОИСКПОЗ второй аргумент не ограниченный диапазон, а весь столбец (очень часто так делают), то перепишите на диапазон, можно просто на заведомо больший, чем количество строк в таблице для поиска (но без фанатизма)
Автор - _Boroda_
Дата добавления - 29.10.2025 в 14:46
ExcelDK Дата: Среда, 29.10.2025, 15:34 | Сообщение № 12
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 119
Репутация: 8 ±
Замечаний: 0% ±

2010
Поздно) Я отправил уже, здесь с задержкой обновляется. С формулами я как-то ещё смогу разобраться, с макросами не могу.
 
Ответить
СообщениеПоздно) Я отправил уже, здесь с задержкой обновляется. С формулами я как-то ещё смогу разобраться, с макросами не могу.
Автор - ExcelDK
Дата добавления - 29.10.2025 в 15:34
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Параметр вычисления формул в книге - вручную (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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