Обновить Результаты Функции Excel VBA

Вы должны использовать Application.Volatile в верхней части вашей функции:

Function doubleMe(d)
    Application.Volatile
    doubleMe = d * 2
End Function

Затем он будет повторно оценивать каждый раз, когда книга изменяется (если ваш расчет установлен в автоматический режим).

Некоторые дополнительные сведения о сочетаниях клавиш F9 для вычисления в Excel

• F9 пересчитывает все листы во всех открытых книгах
• Shift + F9 пересчитывает активный лист
• Ctrl + Alt + F9 пересчет всех листов во всех открытых книгах (полный пересчет)
• Shift + Ctrl + Alt + F9 перестраивает дерево зависимостей и выполняет полный пересчет

Ладно, я сам нашел это место. Вы можете использовать Ctrl + Alt + F9 чтобы добиться этого.

Если вы включаете ALL ссылок на данные электронной таблицы в список параметров UDF, то Excel будет пересчитывать вашу функцию при каждом изменении ссылочных данных:

Public Function doubleMe(d As Variant)
    doubleMe = d * 2
End Function

Вы также можете использовать Application.Volatile, но это имеет недостаток в том, что ваш UDF всегда пересчитывается - даже когда это не нужно, потому что ссылочные данные не изменились.

Public Function doubleMe()
    Application.Volatile
    doubleMe = Worksheets("Fred").Range("A1") * 2
End Function

Для переключения на автоматический режим:

Application.Calculation = xlCalculationAutomatic    

Чтобы перейти на ручное управление:

Application.Calculation = xlCalculationManual    

Это обновляет расчет лучше, чем Range(A:B).Calculate :

Public Sub UpdateMyFunctions()
    Dim myRange As Range
    Dim rng As Range

    ' Assume the functions are in this range A1:B10.
    Set myRange = ActiveSheet.Range("A1:B10")

    For Each rng In myRange
        rng.Formula = rng.Formula
    Next
End Sub

Application.Volatile не работает для пересчета формулы с моей собственной функцией внутри. Я использую следующую функцию: Application.CalculateFull

Public Sub UpdateMyFunctions()
    Dim myRange As Range
    Dim rng As Range

    'Considering The Functions are in Range A1:B10
    Set myRange = ActiveSheet.Range("A1:B10")

    For Each rng In myRange
        rng.Formula = rng.Formula
    Next
End Sub