Моя команда поиска не может найти записи, если оболочки не верны

Question

Моя команда find не может найти записи, если регистр неверен. Я использовал эту команду:

Do Until Cells(i, j) = txttno
    i = i + 1
    If Cells(i, j) = "" Then
    MsgBox ("Record does not exist")
    Exit Sub
    End If

Loop

Итак, когда я хочу найти пример: "P-100", я должен набрать "P-100", он не будет работать, когда я наберу "p-100".

Answer 1

Range.find Команда сохраняет настройки для каждого параметра так же, как Find диалоговое окно в Excel делает.

VBA help рекомендует

Если вы не укажете значения для этих аргументов при следующем вызове метода, будут использованы сохраненные значения. Установка этих аргументов изменяет настройки в диалоговом окне "Поиск", а изменение настроек в диалоговом окне "Поиск" изменяет сохраненные значения, которые используются, если вы пропустите аргументы. Чтобы избежать проблем, устанавливайте эти аргументы явно каждый раз, когда вы используете этот метод.

Вполне возможно, что в последний раз вы использовали Find В Excel или VBA вы выполняли поиск с учетом регистра, и этот параметр сохранился в вашем вызове VBA.