powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / мистика Calculate
2 сообщений из 2, страница 1 из 1
мистика Calculate
    #35865887
karambol
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Столкнулся с непонятной мне проблеммой использования метода Calculate.
Вот код:
Код: plaintext
1.
2.
Range(ActiveWindow.RangeSelection.Address).Calculate
'ActiveWindow.RangeSelection.Calculate
Привязал к событию кнопочки на листе Excel-я. Но срабатывает только первый раз. Когда выделяю ранж повторно - не срабатывает.
В ячейках, которые хочу пересчитать, мои юзер-формулы, мож это както влияет. F9, соответственно тож не срабатывает. Если указатель укажу в строку формулы и затем отобью - сработает.
Может я некорректно чтото делаю? Как правилдьно использовать метод Calculate? (чтобы срабатывало всегда)
...
Рейтинг: 0 / 0
мистика Calculate
    #35866422
sergeyvg
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
я использую такие варианты, например в ячейке A1 формула =test1()
1. если в ячейке используются мои функции, то в текст функции добавляю строку с Application.Volatile, например
Код: plaintext
1.
2.
3.
Function test1()
  test1 = Range("b1").Value
  Application.Volatile
End Function
Но иногда с этим проблемы, либо долго, т.к. пересчет по любому чиху, либо не дает корректировать ячейки внутри функции.

2. в формулах ячеек, которые должны пересчитываться, добавляю контрольную ячейку, тогда формула в ячейке выглядит так =test1() & C1
потом в процедуре, которую запускаю при необходимости пересчета, пишу, например
Код: plaintext
1.
2.
Sub test2()
  Range("c1").Clear
End Sub
...
Рейтинг: 0 / 0
2 сообщений из 2, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / мистика Calculate
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]