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

[IgorGO]

см.вложение.
формулы. расчет происходит мнгновенно.
продполагается, что в 3-х первых колонках данные посортированы по квартирам от 1 до ...

[maksim_serg]

На то вы и программист, а я простой инженер-строитель, что б у Вас все быстрей было раза в три-четыре)

[Hugo121]

Я ничуть не программист... Так, обычный старший специалист, даже не инженер

[IgorGO]

maksim_serg, коллега)))
я тоже инженер-строитель ПГС (промышленное и гражданское строительство)

[maksim_serg]

не получилось оправдаться)))

[kuklp]

Гы) Я ваще молчу...

[Hugo121]

Я ускорил заменив работу с ячейками на работу с массивом (если будет не 500, а 1500 строк, то разница будет ещё более заметна), плюс заменил цепочку AND на вложенные IF-THEN ну и так, по мелочи...
Вообще я там выше чуть напутал, так правильно (но в сам алгоритм не вникал):

Function Задолжность(Список_дата, _
                     Список_сумма, _
                     Список_квартир, _
                     Квартира As String, _
                     Месяц) As Double
    Dim cell
    Dim D1 As Date
    Dim S1 As Double
    Dim dt As Date

    dt = Now
    Список_дата = Список_дата.Value
    Список_квартир = Список_квартир.Value
    Месяц = Месяц.Value
    i = 1
    For Each cell In Список_квартир
        i = i + 1
        If CStr(cell) = Квартира Then
            D1 = Список_дата(i - 1, 1)
            If D1 < dt Then
                If D1 <> 0 Then
                    If Month(D1) = Month(Месяц) Then
                        If Year(D1) = Year(Месяц) Then
                            S1 = S1 + Список_сумма(i - 1, 1)
                        End If
                    End If
                End If
            End If
        End If
    Next

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

[FoxRiver]

Огромное спасибо всем кто откликнулся! Низкий вам поклон и огромный респект!!! Аж голова кружится выбирай как говориться что хочешь ))

[FoxRiver]

IgorGO здравствуйте, помогите пожалуйста переделать формулы в вашем файле (вложено) чтобы учитывались только просроченные на сегодня платежи. Отметил в примере желтым цветом и примечанием.

[IgorGO]

пожалуйста, только система учета мягко говоря "странная":
1. данные и отчеты должны быть на разных листах
2. задолженность у плательщика автоматически начисляется каждого превого числа месяца (злостной она становиться, если не погашена на 20 число)
3. фиксировать надо факт поступления денег: дата, квартира, сумма