Есть пользовательская функция для моих расчетов. На листах эксель эта функция производит некоторые расчеты. Вот ее код:
При запуске и отладке кода иных процедур пошагово, неожиданно происходит "влет" в эту функцию. Так происходит пока не удалишь с листа все формулы с этой функцией. Не пойму как ее правильно отладить и почему так происходит.
Код |
---|
Function zapoln(table As Range, num_st As Integer, num_vhoda As Range, usmin As Integer, usmax As Integer) Application.Volatile Dim ax() Set arr = table Min = usmin Max = usmax s = num_st With table.Parent h = .Cells(.Rows.Count, 1).End(xlUp).Row End With 'количество элементов массива For i = 1 To h If arr(i, s) > Min And arr(i, s) < Max Then n = n + 1 ReDim Preserve ax(n) ' Preserve переопределение с сохр всех значений ax(n) = arr(i, 1) End If Next i arr = ax isk = num_vhoda.Row On Error GoTo Err_SomeName zapoln = arr(isk) Exit_SomeName: Exit Function Err_SomeName: zapoln = 0 Resume Exit_SomeName End Function |