tüübi mittevastavuse viga sisse Exceli VBA ilmneb siis, kui proovite määrata väärtust muutujale, mis ei ole õiget tüüpi.
Asetage oma töölehele käsunupp ja lisage järgmised koodiridad:
Hämardatud number täisarvuna
number = "jalgratas"
Tulemus, kui klõpsate lehel käsunuppu:
Selgitus: te ei saa stringinumbrit (bike) määrata täisarvulisele muutujale.
Tüübi mittevastavuse viga (käitustõrge 13) esineb sageli Exceli VBA funktsiooni InputBox kasutamisel.
1. Asetage oma töölehele käsunupp ja lisage järgmised koodiridad:
Hämardatud number täisarvuna
number = sisendkast ("Sisestage number", "Ruutjuur")
MsgBox "& number &" ruutjuur on "& Sqr (number)
2. Klõpsake lehel käsunuppu, sisestage stringi väärtus sada ja klõpsake nuppu OK.
Tulemus:
3. Klõpsa lõpp.
4. Sõbraliku sõnumi kuvamiseks selle asemel tüübi mittevastavuse viga, uuendage koodi järgmiselt.
Dim number Variandina
number = sisendkast ("Sisestage number", "Ruutjuur")
Kui IsNumeric (number) Siis
MsgBox "" & number & "ruutjuur on" & Sqr (number)
Muidu
MsgBox "Palun sisestage number"
Lõpp Kui
Selgitus: Variant tüüpi muutuja võib sisaldada mis tahes tüüpi väärtusi (vt esimest rida). Excel VBA funktsioon IsNumeric kontrollib, kas väärtus on number.
5. Korrake 2. sammu.
Tulemus:
6. Lõpuks kontrollige, kas see lihtne ruutjuure kalkulaator töötab.
Tulemus:
Näpunäide: laadige alla Exceli fail (selle lehe paremal küljel) ja proovige seda.