В VBA Попытка поиска по массиву с вводом из диапазона - PullRequest
Новая
       37

В VBA Попытка поиска по массиву с вводом из диапазона

0 голосов
/ 26 июня 2019

Я пытаюсь взять 5 входных данных из 5 ячеек в столбце (все числа) и посмотреть, соответствуют ли они массиву, который я установил. В идеале я хотел бы, чтобы значение массива игнорировалось после того, как совпадение было найдено. После того, как совпадение найдено, мне просто нужно изменить значение ячейки на 1 или 0 (эта часть мне не нужна)

Я пробовал. Найти и несколько других вещей. Очевидно, что код здесь не будет работать 

Sub Q1()
    Dim arr1(5) As Variant
        arr1(0) = 100
        arr1(1) = 125
        arr1(2) = 150
        arr1(3) = 252
        arr1(4) = 253

Dim Find1 As String

Dim rng As Range

Set rng = arr1(5).Find()

If rng Is Nothing Then

    Debug.Print "Nope"

Else

    Debug.Print "Correct"

    End If

End Sub

Получение ошибки времени выполнения 424.

...