В ошибка несоответствия типа в Excel VBA возникает, когда вы пытаетесь присвоить значение переменной неправильного типа.
Поместите командную кнопку на свой рабочий лист и добавьте следующие строки кода:
Тусклое число как целое число
number = "велосипед"
Результат при нажатии кнопки команды на листе:
Объяснение: вы не можете присвоить строковое значение (велосипед) переменной типа Integer.
Ошибка несоответствия типа (ошибка времени выполнения 13) часто возникает при использовании функции InputBox в Excel VBA.
1. Поместите командную кнопку на свой рабочий лист и добавьте следующие строки кода:
Тусклое число как целое число
number = InputBox («Введите число», «Квадратный корень»)
MsgBox "Квадратный корень из" & числа & "равно" & Sqr (число)
2. Нажмите кнопку команды на листе, введите строковое значение 100 и нажмите OK.
Результат:
3. Нажмите End.
4. Чтобы отобразить дружеское сообщение вместо ошибка несоответствия типаобновите код следующим образом.
Тусклое число как вариант
number = InputBox («Введите число», «Квадратный корень»)
Если IsNumeric (число), то
MsgBox "Квадратный корень из" & числа & "равно" & Sqr (число)
Еще
MsgBox "Пожалуйста, введите номер"
Конец, если
Объяснение: переменная типа Variant может содержать любой тип значения (см. Первую строку). Функция IsNumeric в Excel VBA проверяет, является ли значение числом.
5. Повторите шаг 2.
Результат:
6. Наконец, проверьте, работает ли этот простой калькулятор квадратного корня.
Результат:
Совет: загрузите файл Excel (справа на этой странице) и попробуйте.