The грешка при несъответствие на типа в Excel VBA възниква, когато се опитате да присвоите стойност на променлива, която не е от правилния тип.
Поставете команден бутон на работния си лист и добавете следните кодови редове:
Затъмнете числото като цяло число
номер = "велосипед"
Резултат, когато щракнете върху командния бутон на листа:
Обяснение: не можете да присвоите стойност на низ (велосипед) на променлива от тип Integer.
Грешката при несъответствие на типа (грешка по време на изпълнение 13) често възниква при използване на функцията InputBox в Excel VBA.
1. Поставете команден бутон на работния си лист и добавете следните кодови редове:
Затъмнете числото като цяло число
number = InputBox ("Въведете число", "Квадратно коренче")
MsgBox "Квадратният корен от" & номер & "е" & Sqr (номер)
2. Щракнете върху командния бутон на листа, въведете стойността на низа сто и щракнете върху OK.
Резултат:
3. Щракнете End.
4. За да се покаже приятелско съобщение вместо грешка при несъответствие на типа, актуализирайте кода, както следва.
Затъмнете числото като вариант
number = InputBox ("Въведете число", "Квадратно коренче")
If IsNumeric (число) Тогава
MsgBox "Квадратният корен от" & номер & "е" & Sqr (номер)
Иначе
MsgBox "Моля, въведете номер"
Край Ако
Обяснение: променлива от тип Variant може да съдържа всякакъв вид стойност (вижте първия ред). Функцията IsNumeric в Excel VBA проверява дали дадена стойност е число.
5. Повторете стъпка 2.
Резултат:
6. Накрая проверете дали този прост калкулатор с квадратен корен работи.
Резултат:
Съвет: изтеглете файла Excel (дясната страна на тази страница) и опитайте.