Не обновляется формула - VBA

Узнай цену своей работы

Формулировка задачи:

Последний вопрос на сегодня... Есть пользовательская функция, но при изменении значений (переменных для данной функции) ответ не изменяется. Нужно жать F2 в ячейке ответа, энтер, и только потом формула пересчитывается. Люди подскажите как решить эту проблему, если это возможно? Спасибо!

Решение задачи: «Не обновляется формула»

textual
Листинг программы
If WorksheetFunction.CountIf(Range("AKTIV_RANGE"), KONTS) = 1 Then
Bsaldo = Ssaldo + Result
Else
If WorksheetFunction.CountIf(Range("PASSIVE_RANGE"), KONTS) = 1 Then
Bsaldo = Ssaldo - Result
Else
************ A chto esli ti padaesh' v etu yamu? ************************
End If
End If
Tozhe otnositsya k
For r = 1 To Kredits.Rows.Count
    If KNosaukums(r) = Nosaukums Then
        If Kredits(r) = KONTS Then
            If Kbrokeris(r) = Brokeris Then
                If ValutKods(r) = Valuta Then
                    Result = Result - summa(r)
                Else
                    ????????
                End If
            Else
                    ????????
            End If
       Else
              ????????
        End If
    Else
            ???????
    End If
Next r

Оцени полезность:

6   голосов , оценка 4.5 из 5
Похожие ответы