Многократное вычисление функцией

@Султанов · Регистрация: 25.01.2013

Author24 — интернет-сервис помощи студентам

Доброе время суток форумчане!

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

Visual Basic

    For i = 1 To UBound(Диапазон2)
        If усл(1) = True And усл(2) = True And усл(3) = False Then
            If Not IsEmpty(Диапазон2(i, ПозСтолб1)) And Not IsEmpty(Диапазон2(i, ПозСтолб2)) Then
                eq = QuickEquality(CSL(Диапазон2(i, ПозСтолб1)) & " " & CSL(Диапазон2(i, ПозСтолб2)), _
                        CSL(ИскЗнач1) & " " & CSL(ИскЗнач2), ИгнорСимв)
                If eq > eqmax Then
                    eqmax = eq
                    ВПР2 = Диапазон2(i, ПозСтолб2)
                    'Exit For
                End If
            End If
        End If
    Next i

@Султанов · 07.11.2014, 07:24 **[ТС]**

при изменении одной ячейки функция была вызвана 199 раз, как закрепить вызов функции один раз?

@KoGG · 10.11.2014, 14:26

Достаточно убрать строку

Visual Basic

1	Application.Volatile True

она здесь не нужна.
При изменении в ячейках аргументах, функция все равно пересчитывается.

@Султанов · 10.11.2014, 17:20 **[ТС]**

Сообщение от KoGG

Достаточно убрать строку
Код Visual Basic
1
Application.Volatile True

ошибка была моя в составлении алгоритма, значит надо учиться на ошибках

@Султанов 54 / 39 / 3 Регистрация: 25.01.2013 Сообщений: 368
	07.11.2014, 07:24 [ТС]	2
	при изменении одной ячейки функция была вызвана 199 раз, как закрепить вызов функции один раз? 0

@Султанов 54 / 39 / 3 Регистрация: 25.01.2013 Сообщений: 368
	10.11.2014, 17:20 [ТС]	4
	Сообщение от KoGG Достаточно убрать строку Код Visual Basic 1 Application.Volatile True ошибка была моя в составлении алгоритма, значит надо учиться на ошибках 0