Match возвращает прикладную или объектную ошибку VBA

Я использовал WorksheetFunction.Match почти одинаково, и во второй раз я получаю сообщение об ошибке. Вот первый раз:

'First find the minimum for the inlet
Dim InletRange As Range
Set InletRange = Range(Cells(9, 2), Cells(LastRow, 2))
InletRange.Activate

InletMin = WorksheetFunction.MIn(InletRange)

peak = WorksheetFunction.Match(InletMin, (InletRange))

In_PeakTime = sht.Cells(8 + peak, 1)

Он возвращает результат Variant/Double для пика и отлично работает для In_PeakTime.

Затем я использую почти идентичный скрипт для поиска Out_PeakTime.

Я получаю сообщение об ошибке в строке opeak. Ошибка времени выполнения "1004": ошибка приложения или объекта

Значение OutletMin - Variant/Double 5.22, и я дважды проверил, что диапазон правильный, и это так. Он выбирает только другие двойники, и значение 5,22 определенно там, потому что я нашел Min из этого диапазона.

'Second find the minimum for the outlet
Dim OutletRange As Range
Set OutletRange = Range(Cells(9, 4), Cells(LastRow, 4))
OutletRange.Activate

OutletMin = WorksheetFunction.MIn(OutletRange)

opeak = WorksheetFunction.Match(OutletMin, OutletRange)

Out_PeakTime = sht.Cells(8 + opeak, 1)

Какие-либо предложения?

0 ответов

Другие вопросы по тегам