Az típushiba hiba ban ben Excel VBA akkor fordul elő, amikor egy értéket próbál hozzárendelni egy nem megfelelő típusú változóhoz.
Helyezzen el egy parancsgombot a munkalapon, és adja hozzá a következő kódsorokat:
Halvány szám Egész számként
szám = "kerékpár"
Eredmény, ha rákattint a parancsikonra a lapon:
Magyarázat: nem adhat hozzá karakterláncértéket (kerékpár) az Integer típusú változóhoz.
Az Excel VBA InputBox funkciójának használatakor gyakran előfordul a típus-eltérési hiba (futásidejű hiba 13).
1. Helyezzen el egy parancsgombot a munkalapon, és adja hozzá a következő kódsorokat:
Halvány szám Egész számként
szám = InputBox ("Adjon meg egy számot", "Négyzetgyök")
MsgBox "A" & szám & "négyzetgyöke" & Sqr (szám)
2. Kattintson a parancsgombra a lapon, írja be a százas karakterlánc értékét, majd kattintson az OK gombra.
Eredmény:
3. Clik End.
4. Barátságos üzenet megjelenítése a helyett típushiba hiba, frissítse a kódot az alábbiak szerint.
Dim szám Variantként
szám = InputBox ("Adjon meg egy számot", "Négyzetgyök")
Ha IsNumeric (szám) Akkor
MsgBox "A" & szám & négyzetgyöke "& Sqr (szám)
Más
MsgBox "Kérjük, adjon meg egy számot"
Vége Ha
Magyarázat: A Variant típusú változó bármilyen típusú értéket tartalmazhat (lásd az első sort). Az Excel VBA IsNumeric függvénye ellenőrzi, hogy az érték szám -e.
5. Ismételje meg a 2. lépést.
Eredmény:
6. Végül ellenőrizze, hogy működik -e ez az egyszerű négyzetgyök -számológép.
Eredmény:
Tipp: töltse le az Excel fájlt (ennek az oldalnak a jobb oldalán), és próbálja ki.