Книги Excel могут быть довольно сложными. Фактически, можно создавать книги, расчет которых может занять несколько часов. Единственная проблема с этим, конечно, заключается в том, что когда вы открываете книгу, она автоматически пересчитывает, если у вас настроен Excel для этого. Это означает, что в некоторых случаях простое открытие книги может занять несколько часов.

Одно из решений, конечно, — отключить автоматический пересчет перед открытием книги. Если вы похожи на меня, это решение не очень хорошее, потому что и моя память.

Лучшее решение — отключить автоматический пересчет для определенных книг. Поскольку Excel не позволяет указывать ручной или автоматический пересчет для каждой книги отдельно, вам нужно будет добавить эту функцию с помощью макроса, который автоматически запускается при открытии книги. Этот макрос может отключить автоматический пересчет, как показано здесь:

Private Sub Workbook_Open()

Application.Calculation = xlManual     Application.CalculateBeforeSave = False End Sub

Этот макрос необходимо поместить в окно проекта ThisWorkbook. Это означает, что вы должны открыть книгу, нажать Alt + F11, чтобы открыть редактор VBA, а затем дважды щелкнуть объект ThisWorkbook в обозревателе объектов (верхний левый угол окна редактора VBA).

При желании вы также можете разместить еще один макрос сразу после предыдущего. Этот макрос запускается автоматически при закрытии книги и в этом случае снова включает автоматический пересчет:

Private Sub Workbook_BeforeClose(Cancel As Boolean)

Application.Calculation = xlAutomatic     Application.CalculateBeforeSave = True End Sub

При использовании этого макроса следует помнить одно важное предостережение. Вы можете установить режим расчета только для приложения в целом. Таким образом, если автоматический пересчет отключен, никакие другие рабочие листы также не будут пересчитаны автоматически.

_Примечание: _

Если вы хотите узнать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах ExcelTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / excelribbon-ExcelTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (11577) применим к Microsoft Excel 2007, 2010, 2013, 2016, 2019 и Excel в Office 365. Вы можете найти версию этого совета для старого интерфейса меню Excel здесь:

link: / excel-Forcing_Manual_Calculation_For_a_Workbook [Принудительный ручной расчет для рабочей книги].