формулу массивов через vba или по другому...

[FoxRiver]

Друзья, необходима помощь в реализации формулы массива через vba. Пример во вложении. Дело в том, что формула массива очень долго считается (пересчитывается). Поэтому хотелось бы рассчитывать таблицу в примере через макрос.

В первом столбце даты платежей которые должны были быть погашены но не были погашены. Во втором столбце суммы платежей которые должны были быть погашены но не погашены. В третьем столбце номера квартир по которым идут соответствующие платежи. Необходимо узнать сумму просроченных платежей по месяцам на сегодня.

[kalbasiatka]

Судя по первым столбцам, вы заранее знаете до какого года кто должен)

[FoxRiver]

Да именно так.

[maksim_serg]

макросом получиться еще дольше. Проверил

[FoxRiver]

скиньте пож макрос может там можно нижеследующее использовать чтобы ускорить.

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Application.EnableEvents = False
'ActiveSheet.DisplayPageBreaks = False
Application.DisplayStatusBar = False
'Application.DisplayAlerts = False

[maksim_serg]

Сделано необдуманно, на скорую руку. Эксперементируйте

[FoxRiver]

Спасибо большое!

[FoxRiver]

maksim_serg подскажите а можно ли ускорить ваш макрос используя информацию по ссылке: http://habrahabr.ru/post/158725/

[maksim_serg]

Его можно ускорить если уменьшить диапозон в формуле

[Hugo121]

Вот такой вариант UDF maksim_serg будет побыстрее раза в 3-4:

Function Задолжность(Список_дата, _
                     Список_сумма, _
                     Список_квартир, _
                     Квартира As String, _
                     Месяц) As Double
    Dim cell
    Dim D1 As Date
    Dim S1 As Double
    Dim dt As Date
    dt = DateTime.Now
    Список_дата = Список_дата.Value
    Список_квартир = Список_квартир.Value
    Месяц = Месяц.Value
    For Each cell In Список_квартир
        i = i + 1
        If cell = Квартира Then
            D1 = Список_дата(i, 1) - Список_дата(2, 1)
            If D1 < dt Then
                If D1 <> 0 Then
                    If DateTime.Month(D1) = DateTime.Month(Месяц) Then
                        If DateTime.Year(D1) = DateTime.Year(Месяц) Then
                            S1 = S1 + Список_сумма(i, 1) - Список_сумма(2, 1)
                        End If
                    End If
                End If
            End If
        End If
    Next

    Задолжность = S1
End Function

Правда в алгоритм не вникал - просто ускорил:

1,0625
0,84375
0,953125
vs прежний вариант
3,9375
3,53125
3,15625

P.S. Заглянул на habrahabr - ну да, примерно вот так и сделал