Циклический пересчет формул после добавления макроса - Мир MS Excel

Версия для слабовидящих

= Мир MS Excel/Циклический пересчет формул после добавления макроса - Мир MS Excel

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

Циклический пересчет формул после добавления макроса (Формулы/Formulas)

Циклический пересчет формул после добавления макроса

Anis625 Дата: Среда, 26.05.2021, 08:26 | Сообщение № 1

Группа: Заблокированные

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

Сообщений: 674

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

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

Excel 2013

Добрый день, всем участникам форума!
Решил одну свою задачку (выполнение ряда макросов при пересчете значения формулы) готовым кодом в конкретный лист:

Private Sub Worksheet_Calculate() 'Updateby Extendoffice Dim Xrg As Range Set Xrg = Range("A8") If Not Intersect(Xrg, Range("A8")) Is Nothing Then Call Show Call Hide End If End Sub

При добавлении этого кода после каждого действия файл на несколько секунд-минут зависает в пересчете формул. В начале было много ячеек с формулой СЛУЧМЕЖДУ. Думал проблема в этом. Снес. Все равно пересчитывает. Других летучих формул нет.
Пробовал отключать в начале автоматически пересчет формул Application.Calculation = ... и включать в конце кода - увы пересчитывает. Причем даже на любом листе если просто добавлю любое число в любое место - пересчитывает моргая экраном.
Убираю код. Все нормально работает. Но остается не решенная задача с запуском других макросов при изменении результата расчеты формулы. Файл нужен будет? (большой, много зачищать нужно будет, если нужно будет подготовлю).
P.S. пытался в модуль код добавить и прописал ссылку на конкретный лист перед RANGE - не работает вообще.
Буду признателен за совет как подправить код.

Добрый день, всем участникам форума!
Решил одну свою задачку (выполнение ряда макросов при пересчете значения формулы) готовым кодом в конкретный лист:

Private Sub Worksheet_Calculate() 'Updateby Extendoffice Dim Xrg As Range Set Xrg = Range("A8") If Not Intersect(Xrg, Range("A8")) Is Nothing Then Call Show Call Hide End If End Sub

При добавлении этого кода после каждого действия файл на несколько секунд-минут зависает в пересчете формул. В начале было много ячеек с формулой СЛУЧМЕЖДУ. Думал проблема в этом. Снес. Все равно пересчитывает. Других летучих формул нет.
Пробовал отключать в начале автоматически пересчет формул Application.Calculation = ... и включать в конце кода - увы пересчитывает. Причем даже на любом листе если просто добавлю любое число в любое место - пересчитывает моргая экраном.
Убираю код. Все нормально работает. Но остается не решенная задача с запуском других макросов при изменении результата расчеты формулы. Файл нужен будет? (большой, много зачищать нужно будет, если нужно будет подготовлю).
P.S. пытался в модуль код добавить и прописал ссылку на конкретный лист перед RANGE - не работает вообще.
Буду признателен за совет как подправить код.Anis625

Сообщение отредактировал Anis625 - Среда, 26.05.2021, 08:27

Ответить

СообщениеДобрый день, всем участникам форума!
Решил одну свою задачку (выполнение ряда макросов при пересчете значения формулы) готовым кодом в конкретный лист:
[vba]

Private Sub Worksheet_Calculate()'Updateby Extendoffice Dim Xrg As Range Set Xrg = Range("A8") If Not Intersect(Xrg, Range("A8")) Is Nothing Then Call Show Call Hide End IfEnd Sub

[/vba]
При добавлении этого кода после каждого действия файл на несколько секунд-минут зависает в пересчете формул. В начале было много ячеек с формулой СЛУЧМЕЖДУ. Думал проблема в этом. Снес. Все равно пересчитывает. Других летучих формул нет.
Пробовал отключать в начале автоматически пересчет формул Application.Calculation = ... и включать в конце кода - увы пересчитывает. Причем даже на любом листе если просто добавлю любое число в любое место - пересчитывает моргая экраном.
Убираю код. Все нормально работает. Но остается не решенная задача с запуском других макросов при изменении результата расчеты формулы. Файл нужен будет? (большой, много зачищать нужно будет, если нужно будет подготовлю).
P.S. пытался в модуль код добавить и прописал ссылку на конкретный лист перед RANGE - не работает вообще.
Буду признателен за совет как подправить код.

Автор - Anis625
Дата добавления - 26.05.2021 в 08:26

Дата: Среда, 26.05.2021, 08:38 | Сообщение № 2

Группа: Заблокированные

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

Сообщений: 674

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

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

Excel 2013

Похоже не в той ветке создал тему. Перенесите, пожалуйста в ветку VBA

Ответить

Дата: Среда, 26.05.2021, 10:51 | Сообщение № 3

Группа: Заблокированные

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

Сообщений: 674

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

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

Excel 2013

На одном сайте нашел подсказку в виде использования TextBox на изменение в ячейке но не совсем понял как вкручивать в свой код

Ответить

Anis625 Дата: Среда, 26.05.2021, 11:36 | Сообщение № 4

Группа: Заблокированные

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

Сообщений: 674

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

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

Excel 2013

Решение нашел на дружественном (надеюсь) сайте:

Private Sub Worksheet_Change(ByVal Target As Range) If oldValue <> Cells(8, 1) Then Application.EnableEvents = False Application.ScreenUpdating = False Call Show Call Hide Application.EnableEvents = True Application.ScreenUpdating = True End If End Sub

Странно что его сразу не высмотрел, хотя в поиске он находил этот сайт

Сообщение отредактировал Anis625 - Среда, 26.05.2021, 11:36

Ответить

Дата: Среда, 26.05.2021, 14:08 | Сообщение № 5

Группа: Заблокированные

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

Сообщений: 674

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

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

Excel 2013

Только маленький нюанс у этого кода - когда включаю его в лист при любом действии он похоже включается (хотя значение ячейки не меняется) и задержка после каждого изменения в любом месте книги на 1-1,5с (заметно визуально). Вроде отключают обновление экрана.
Подскажите, пожалуйста, нужно для этого отдельную тему создать с вопросом?

Ответить

Serge_007 Дата: Среда, 26.05.2021, 14:20 | Сообщение № 6

Группа: Админы

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

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Здравствуйте

Цитата Anis625, 26.05.2021 в 14:08, в сообщении № 5 (

писал(а)):

...отключают обновление экрана...

Цитата Anis625, 26.05.2021 в 11:36, в сообщении № 4 (

писал(а)):

Application.ScreenUpdating = False

- эта строка отключает обновление экрана

Цитата Anis625, 26.05.2021 в 14:08, в сообщении № 5 (

писал(а)):

нужно для этого отдельную тему создать с вопросом?

Если вопрос относится к "Циклическому пересчету формул после добавления макроса", то отдельная тема не требуется

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Anis625 Дата: Среда, 26.05.2021, 14:26 | Сообщение № 7

Группа: Заблокированные

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

Сообщений: 674

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

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

Excel 2013

Serge_007,
К этому же вопросу относится, т.к. код до конца не отрабатывает как необходимо

Попробовал сделать так:

Private Sub Worksheet_Change(ByVal Target As Range) If oldValue = Cells(8, 1) Then End Sub Else Application.EnableEvents = False Application.ScreenUpdating = False Call Show Call Hide Application.EnableEvents = True Application.ScreenUpdating = True End If End Sub

Выдает ошибку =(

Сообщение отредактировал Anis625 - Среда, 26.05.2021, 14:26

Ответить

Serge_007 Дата: Среда, 26.05.2021, 14:27 | Сообщение № 8

Группа: Админы

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

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Цитата Anis625, 26.05.2021 в 14:26, в сообщении № 7 (

писал(а)):

Then End Sub

- это что?

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Дата: Среда, 26.05.2021, 14:35 | Сообщение № 9

Группа: Заблокированные

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

Сообщений: 674

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

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

Excel 2013

Serge_007, :'(

:'(

Exit sub тоже не помог

Ответить

Дата: Среда, 26.05.2021, 14:37 | Сообщение № 10

Группа: Админы

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

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Цитата Anis625, 26.05.2021 в 14:35, в сообщении № 9 (

писал(а)):

Exit sub тоже не помог

Надо-то что?
Можете своими словами сформулировать что не получается сделать?

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Anis625 Дата: Среда, 26.05.2021, 14:47 | Сообщение № 11

Группа: Заблокированные

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

Сообщений: 674

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

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

Excel 2013

Serge_007,
При добавлении кода макрос (из сообщения 4) включается (т.е. запускаются макросы Hide и Show) при действии в любом месте книги (даже просто если число какое нибудь написать). Решил подправить код, предположил что при условии

oldValue = Cells(8, 1)

вообще ничего происходить не будет. Не получается подправить.

Ответить

Serge_007 Дата: Среда, 26.05.2021, 14:51 | Сообщение № 12

Группа: Админы

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

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Цитата Anis625, 26.05.2021 в 14:47, в сообщении № 11 (

писал(а)):

макрос включается при действии в любом месте книги

Естественно, макрос же в модуле листа и запускается по событию изменений на листе

Цитата Anis625, 26.05.2021 в 14:26, в сообщении № 7 (

писал(а)):

Worksheet_Change

Сделать что надо? Что бы макрос по кнопке запускался? Или по другому событию? Или по расписанию? Или ещё как?

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Дата: Среда, 26.05.2021, 14:55 | Сообщение № 13

Группа: Заблокированные

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

Сообщений: 674

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

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

Excel 2013

Цитата Serge_007, 26.05.2021 в 14:51, в сообщении № 12 (

писал(а)):

запускается по событию изменений на листе

Я думал, что если указал ячейку A8 то макрос только ее смотрит.
Нужно чтобы при изменении (результата расчета формулы, любое изменение) ячейки А8 срабатывали два макроса Hide и Show. А если не меняется значение, то ничего не происходило.

Ответить

Дата: Среда, 26.05.2021, 15:23 | Сообщение № 14

Группа: Админы

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

Сообщений: 16475

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

Замечаний: ±

Excel 2016

Цитата Anis625, 26.05.2021 в 14:55, в сообщении № 13 (

писал(а)):

Нужно чтобы при изменении (результата расчета формулы, любое изменение) ячейки А8 срабатывали два макроса Hide и Show

Почитайте тему - обучалку: Прошу помочь разобраться в макросе с Target и Intersect
Это как раз решение Вашей задачи

ЮMoney:41001419691823 | WMR:126292472390

Ответить

Anis625 Дата: Среда, 26.05.2021, 15:36 | Сообщение № 15

Группа: Заблокированные

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

Сообщений: 674

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

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

Excel 2013

Serge_007,
Добавил в начале

If Not Intersect(Target, Range("A:A")) Is Nothing Then

+ в конце End If и проблема решилась

Спасибо Вам огромное за то, что направили на обучение =)

Ответить

Anis625 Дата: Среда, 26.05.2021, 15:37 | Сообщение № 16

Группа: Заблокированные

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

Сообщений: 674

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

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

Excel 2013

Финальный код (вдруг кому пригодится):

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A:A")) Is Nothing Then If oldValue <> Cells(8, 1) Then Application.EnableEvents = False Application.ScreenUpdating = False Call Show Call Hide Application.EnableEvents = True Application.ScreenUpdating = True End If End If End Sub

Ответить

Циклический пересчет формул после добавления макроса (Формулы/Formulas)

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

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