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

Question

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

кто-нибудь знает, как я могу получить пользовательскую функцию для переоценки себя (на основе измененных данных в электронной таблице)? Я пробовал F9 и Shift+F9, но они не работают. Единственное, что, кажется, работает, это редактирование ячейки с помощью вызова функции, а затем нажмите Enter. Есть идеи? Кажется, я помню, что мог это сделать...

699 8

excel excel-vba vba user-defined-functions

8 ответов:

Comments

Ничего не найдено.

vzczc · Accepted Answer · 2015-08-28 19:33:28

вы должны использовать Application.Volatile ваши функции:
Function doubleMe(d)
    Application.Volatile
    doubleMe = d * 2
End Function
затем он будет повторно оценивать каждый раз, когда изменяется книга (если ваш расчет установлен на автоматический).

Robert Mearns · Accepted Answer · 2013-07-21 20:58:18

еще немного информации о сочетаниях клавиш F9 для расчета в Excel

F9 пересчет всех листов во всех открытых книгах

Shift+ F9 вычисляет активный лист

Ctrl+ Alt+ F9 пересчет всех листов во всех открытых книгах (полный пересчет)

Shift + Ctrl+ Alt+ F9 перестраивает дерево зависимостей и выполняет полный пересчет

Brian Sullivan · Accepted Answer · 2015-04-21 18:33:04

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

score 9 · Accepted Answer · 2008-09-29 18:52:31

Если вы включаете все ссылки на данные электронной таблицы в список параметров UDF, Excel будет пересчитывать вашу функцию при каждом изменении ссылочных данных:
    Public Function doubleMe(d as variant)
    doubleMe=d*2
    end Function
вы также можете использовать приложение.Летучий, но это имеет тот недостаток, что ваш UDF всегда пересчитывается, даже когда это не нужно, потому что ссылочные данные не изменились.
    Public Function doubleMe()
    Application.Volatile
    doubleMe=Worksheets("Fred").Range("A1")*2
    end Function

ayman · Accepted Answer · 2014-12-03 21:22:59

для переключения на автоматический режим:
Application.Calculation = xlCalculationAutomatic    
для переключения на ручное управление:
Application.Calculation = xlCalculationManual    

MfJ · Accepted Answer · 2015-06-10 03:32:07

Он хорошо работает, чтобы обновить расчет лучше, чем диапазон(A:B).Вычислить
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

Prashanth · Accepted Answer · 2014-10-22 15:34:53

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

alex303411 · Accepted Answer · 2017-11-21 11:12:20

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