автоматически пересчитывать формулы в данной книге.

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » автоматически пересчитывать формулы в данной книге. (Макросы/Sub)

koyaanisqatsi

Дата: Среда, 27.03.2019, 13:57 | Сообщение № 1

Группа: Проверенные

Ранг: Ветеран

Сообщений: 713

Репутация: 15 ±

Замечаний: 0% ±

Excel 2010

Здравствуйте.
У нас иногда возникает проблема с персчетом формул. С чем это может быть связано я уже понял - отключается галочка пересчитывать формулы автоматически.
Нашел даже информацию как она может слетать

"во время работы был открыт какой-то файл, в котором был установлен ручной пересчет формул. А если открыть такой файл - то для всех открытых файлов автоматически устанавливается ручной пересчет формул. И формулы будут пересчитываться только если выделить нужную ячейку, нажать F2-Enter или нажать сочетание клавиш Shift+F9 для пересчета формул во всей книге"
Ну или еще какой вариант.

Есть ли какая-то возможность может быть силами макроса или настройками книги запретить ручной подсчет формул ? То-есть оставить только один вариант просчета "Автоматический подсчет формул"

Спасибо.

Ответить

_Boroda_

Дата: Среда, 27.03.2019, 15:28 | Сообщение № 2

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

Репутация: 6481 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

Открываете макросы (Альт F11), ищите Персонал (если нет - создаете https://u.to/GOD9FA ), в нем ищете модуль "ЭтаКнига", даблклик на нее, откроется окно для кода, туда пишете
[vba]

Код

Private WithEvents App As Application
Private Sub Workbook_Open()
    Set App = Application
End Sub
Private Sub App_WorkbookOpen(ByVal Wb As Workbook)
    On Error Resume Next
    Application.Calculation = xlCalculationAutomatic
End Sub

[/vba]
закрываете Excel (с сохранением изменений). Открываете Excel

* Решение про App не мое. Давным-давно откуда-то упер. Здесь только дописал кусок про автопересчет

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

koyaanisqatsi

Дата: Среда, 27.03.2019, 17:58 | Сообщение № 3

Группа: Проверенные

Ранг: Ветеран

Сообщений: 713

Репутация: 15 ±

Замечаний: 0% ±

Excel 2010

_Boroda_, Примного благодарен. Это оказалось весьма актуально когда работает много людей в одном файле.
Единственный вопрос наперед. В таком режиме самопроизвольно отключаться не будет ? Просто предполагаю вдруг Эксель может отключить авто пересчет ну скажем если много формул и он думает что тратит на это слишком много времени ? Или так не бывает ?

Ответить

_Boroda_

Дата: Среда, 27.03.2019, 18:00 | Сообщение № 4

Группа: Модераторы

Ранг: Местный житель

Сообщений: 16675

Репутация: 6481 ±

Замечаний: 0% ±

2003; 2007; 2010; 2013 RUS

Ответить

koyaanisqatsi

Дата: Среда, 27.03.2019, 18:18 | Сообщение № 5

Группа: Проверенные

Ранг: Ветеран

Сообщений: 713

Репутация: 15 ±

Замечаний: 0% ±

Excel 2010

_Boroda_, а если в эту книгу в Private Sub записать, то не получится ? обязательно создавать отдельный эксель файл ? А его как будет находить Эксель ?

Сообщение отредактировал koyaanisqatsi - Среда, 27.03.2019, 18:19

Ответить

koyaanisqatsi

Дата: Среда, 27.03.2019, 18:38 | Сообщение № 6

Группа: Проверенные

Ранг: Ветеран

Сообщений: 713

Репутация: 15 ±

Замечаний: 0% ±

Excel 2010

_Boroda_, ну он по крайне мере начал включать просчет формул при запуске. но отключить по прежнему можно ((( остается лишь надеяться чтобы оно не отключилось.

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » автоматически пересчитывать формулы в данной книге. (Макросы/Sub)

Страница 1 из 1
1