Ошибка времени выполнения 13 Тип несоответствия ~ когда Application.Inputbox Отмена

Question

Я прочитал несколько вопросов по этой проблеме, хотя, поскольку я новичок, я не мог понять свое личное решение.

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

Dim UserCol As String 
    Dim FirstRow As Integer 

    UserCol = Application.InputBox(Prompt:="In what Column do we search? (E.g. enter: A)", Type:=2) 
    If UserCol = False Then Exit Sub 
' On cancel works OK. But if you type "A" (no quotes) u get a run-time ERROR 13!  

    FirstRow = Application.InputBox(Prompt:="What is your data-table's first row? (E.g. enter: 2)", Type:=1) 
    If FirstRow = False Then Exit Sub 
' On both cancel & input works flawlessly. 

Я попытался удалить Type := 2, но не было никаких изменений.

Answer 1

Вы не можете обрабатывать строки как булевы (что вы делаете). Строка может выводить результат true/false, но не так, как вы это делаете. Попробуйте с этим кодом:

Dim UserCol As String 
    Dim FirstRow As Integer 

    UserCol = Application.InputBox(Prompt:="In what Column do we search? (E.g. enter: A)", Type:=2) 
    If Len(Trim(UserCol)) < 1 Then Exit Sub 
' On cancel works OK. But if you type "A" (no quotes) u get a run-time ERROR 13! 

    FirstRow = Application.InputBox(Prompt:="What is your data-table's first row? (E.g. enter: 2)", Type:=1) 
    If FirstRow < 1 Then Exit Sub 

Первое условие ложно (и Sub происходит выход), если длина («обрезанного») входной строки ниже, чем 1. Второе условие, если входной является строка не число.

ПРИМЕЧАНИЕ. Имейте в виду, что причина, по которой второе условие не вызывает ошибку, состоит в том, что целые числа «поддерживают логическое значение»; хотя здесь нет никакого реального смысла: если вы удалите это условие, ничего не изменится. Мое условие проверяет, что вы действительно хотите (строка больше или равна 1). Также помните, что InputBox поддерживает целые числа, но это обычно не так (с большинством элементов управления этого типа вам нужно будет получить входы как строку и преобразовать их в целое, прямо или неявно).

ОБНОВЛЕНИЕ -

куды для учета кликов Отменить кнопки:

Dim UserCol As String 
    Dim FirstRow As Integer 

    UserCol = Application.InputBox(Prompt:="In what Column do we search? (E.g. enter: A)", Type:=2) 

    If (LCase(UserCol) <> "false") Then 

    If Len(Trim(UserCol)) < 1 Then Exit Sub 
    ' On cancel works OK. But if you type "A" (no quotes) u get a run-time ERROR 13! 

    FirstRow = Application.InputBox(Prompt:="What is your data-table's first row? (E.g. enter: 2)", Type:=1) 
    If (FirstRow < 1) Then Exit Sub 
    End If 

Если первый InputBox отменяется «ложный» возвращаются (в виде строки), и если второй из них отменил 0 (и, таким образом, исходное условие может справиться с этим).