Как в VBA сделать проверку на наличие значения в списке?

Question

[ti_zh_vrach]

Добрый день.
Пытаюсь реализовать проверку:

For row_values = 2 To row_values_end
    Call do_any_here
    If something Then
        For row_db = 2 To row_db_end
            On Error GoTo error_handler
            If data_base.Cells(row_db, 6).Value <> special_values Then Err.Raise 1013, "another_sub", "неверные данные"
            Call do_any_there
            On Error GoTo 0
        Next row_db 
    End If
Next row_values

В special_values должны содержаться два значения String. Нужно, что бы ошибка не возникала если data_base.Cells(row_db, 6) равно хотя бы одному из двух значений в special_values. Вариантов data_base.Cells(row_db, 6) много. Нужна реализация, которая не требует большого количества шагов (в идеале - один). Дело в том, что эта проверка нужна для макроса, который может так проверять и не несколько сотен тысяч ячеек. Производительность макроса в целом - отдельный вопрос.

Comments

[Иван]

не совсем по сути вопроса но все же.
вы если что то высоконагруженное с большим объемом данных пишете, никогда так не делайте
data_base.Cells(row_db, 6).Value
нужно сначала собрать все данные в массив - он будет храниться в памяти.
все действия производить в ПАМЯТИ.
а в указанном вами коде, если вы для каждой итерации читаете ячейку с листа, это ужасно сказывается на производительности.

[ti_zh_vrach]

Иван, спасибо за совет. Этот вопрос уже изучаю. VBA до этого в глаза не видел. Да и вообще не настоящий сварщик. Задача, за которую взялся ради практики в боевых условиях, изначально состояла из переписывания чужого кода. Сейчас производительность выше в 24 раза. Но всё равно низкая. Можете посоветовать ещё что-то для повышения производительности?

Что уже сделал: переписал все While на For, циклы теперь не сложнее O(N^3) (понимаю, что это тоже плохо), кое-где прописал Exit For, объявил переменные, убрал все Select'ы, прописал .Value (но это скорее из-за проблем с данными), сделал обращения не по пользовательским именам, сделал отключение обновления экрана и пересчёта формул. Вроде это всё влияет на производительность.

[Иван]

Можете посоветовать ещё что-то для повышения производительности?

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

[ti_zh_vrach]

Иван, с первым учту. Такая особая необходимость была. Дальше будет под вопросом. Второе уже сделал с разбивкой по основным частям. Спасибо за советы!

Answer 1

[ti_zh_vrach]

Нашёл обходное решение.

If data_base.Cells(row_db, 6).Value <> "энач1" Then If data_base.Cells(row_db, 6).Value <> "энач2" Then Err.Raise 1013, "another_sub", "неверные данные"

Есть ещё вариант с Collections, который до конца не проработал. Но кажется, он тоже сведётся к двойному If. Или к перебору в цикле.
Вопрос в заголовке открыт.