Ускорьте простые пользовательские функции

Question

Пользовательские функции, написанные в Excel VBA, работают намного медленнее, чем функции, просто написанные на ячейках листа. Есть ли способ запустить их быстрее? В качестве примера у меня есть очень простой и определенные пользователем функции:

Function myweekday(mydate As Double) 
    myweekday = Weekday(mydate) 
End Function 

В основном это делает то же самое, что встроенная функция = будний день(). Однако выполнение этого на 50 000 ячеек занимает около 5 секунд для вычисления, тогда как простое использование встроенной функции занимает долю секунды.

Что я могу сделать, чтобы пользовательские функции выполнялись быстрее?

Answer 1

Вместо этого вы можете передавать значения в виде диапазона и возвращать сразу все значения в массиве. Я просто попробовал это на 50 000 строк, и он мгновенно вернул все значения. Вам нужно будет ввести UDF с помощью CTRL + SHIFT + ENTER.

Function myweekday(mydate As Range) As Variant 

Dim vMydate As Variant 
Dim vMyWeekDay As Variant 
Dim i As Long 

vMydate = mydate.Value2 
ReDim vMyWeekDay(1 To UBound(vMydate), 1 To 1) 

    For i = 1 To UBound(vMydate) 
     vMyWeekDay(i, 1) = Weekday(vMydate(i, 1)) 
    Next i 

myweekday = vMyWeekDay 

End Function