Всем добрый день!
Вопрос по функциям в VBA:
есть пользовательская функция, которая используется в книге много-много раз.
Так вот, эта функция пересчитывается каждый раз для всех ячеек. И занимает это порядка 10 секунд.
Можно ли как-то сократить это время?
Ведь при работе с книгой при любом изменении начинается этот длительный пересчет формул....
Привожу текст функции:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
Function TST (type As String, d_excel As Double) As Double
With Application
.ScreenUpdating = False
.EnableEvents = False
.Calculation = xlCalculationManual
End With
type_value =type
d_value = d_excel
last_row = Worksheets("source_sheet").UsedRange.Rows.Count
type_array = Worksheets("source_sheet").Range("A6:A" & CStr(last_row)).Value '<----- записываю все в массив, чтобы было быстрее
coef_a_array = Worksheets("source_sheet").Range("E6:E" & CStr(last_row)).Value
coef_B_array = Worksheets("source_sheet").Range("F6:F" & CStr(last_row)).Value
For i = 1 To UBound(type_array)
If array(i, 1) = type_value Then
coef_a = coef_a_array(i, 1) '<----- для каждого типа свои коэф-ты
coef_b = coef_B_array(i, 1)
Exit For
End If
Next
TST = Application.WorksheetFunction.Ln(d_value) * coef_a + coef_b
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = xlCalculationAutomatic
End With
End Function
