Получение Excel для обновления данных на листе из VBA

Ответ 1

Следующие строки сделают свое дело:

ActiveSheet.EnableCalculation = False  
ActiveSheet.EnableCalculation = True  

Изменить: метод .Calculate() не будет работать для всех функций. Я проверил это на листе с надстройкой функций массива. .CalculateFull() лист, который я использую, достаточно сложен, поэтому я не хочу тестировать метод .CalculateFull(), но он может работать.

Ответ 2

Это должно сделать трюк...

'recalculate all open workbooks
Application.Calculate

'recalculate a specific worksheet
Worksheets(1).Calculate

' recalculate a specific range
Worksheets(1).Columns(1).Calculate

Ответ 3

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

Убедитесь, что у вас есть следующий script

ActiveSheet.EnableCalculation = True

Примените уравнение выбора.

Cells(RowA,ColB).Formula = Cells(RowA,ColB).Formula

Затем это может быть закодировано по мере необходимости.

Ответ 4

Вы также можете попробовать

Application.CalculateFull

или

Application.CalculateFullRebuild

если вы не возражаете восстановить все открытые книги, а не только активный рабочий лист. (CalculateFullRebuild также восстанавливает зависимости.)

Ответ 5

У меня возникла проблема с отключением фонового изображения (водяного знака DRAFT) в VBA. Мое изменение не показывалось (что было выполнено с помощью метода Sheets(1).PageSetup.CenterHeader = ""), поэтому мне нужен был способ обновления. Подход ActiveSheet.EnableCalculation частично сделал трюк, но не покрывал неиспользуемые ячейки.

В конце концов я нашел то, что мне нужно, с одним лайнером, который заставлял изображение исчезать, когда оно больше не было установлено: -

Application.ScreenUpdating = True

Ответ 6

После обновления подключения к данным некоторые UDF не выполнялись. Используя подпрограмму, я пытался пересчитать один столбец с помощью:

Sheets("mysheet").Columns("D").Calculate

Но вышеприведенное утверждение не имело никакого эффекта. Ни одно из вышеперечисленных решений не помогло, за исключением того, что предложение kambeeks заменить формулы сработало и было быстрым, если во время обновления включился ручной пересчет. Нижеприведенный код решил мою проблему, даже если он не был полностью ответственен за комментарий OP "kluge", он предоставил быстрое/надежное решение для принудительного пересчета указанных пользователем ячеек.

Application.Calculation = xlManual
DoEvents
For Each mycell In Sheets("mysheet").Range("D9:D750").Cells
    mycell.Formula = mycell.Formula
Next
DoEvents
Application.Calculation = xlAutomatic

Ответ 7

Я вижу ответы на вопрос о том, как обновить одиночный лист и все открытые книги, но не как рассчитать все листы из активной книги, и это то, что мне нужно.

Я тестировал этот код и делает трюк. Вот он:

Sub CalcActiveWbook()
    Dim wks As Worksheet
    Application.Calculation = xlManual
    For Each wks In ActiveWorkbook.Worksheets
        wks.Calculate
    Next
    Set wks = Nothing
End Sub

Это имеет очевидное преимущество перед Application.Calculate, что может вызвать проблемы при открытии большого или большого количества книг.