tipa neatbilstības kļūda iekšā Excel VBA rodas, mēģinot piešķirt vērtību mainīgajam mainīgajam.
Ievietojiet komandas pogu savā darblapā un pievienojiet šādas koda rindiņas:
Dim numurs kā vesels skaitlis
numurs = "velosipēds"
Rezultāts, noklikšķinot uz komandas pogas lapā:
Paskaidrojums: virknes vērtību (velosipēds) nevar piešķirt mainīgajam, kura tips ir vesels skaitlis.
Veida neatbilstības kļūda (izpildlaika kļūda 13) bieži rodas, izmantojot funkciju InputBox programmā Excel VBA.
1. Ievietojiet komandas pogu savā darblapā un pievienojiet šādas koda rindiņas:
Dim skaitlis kā vesels skaitlis
numurs = InputBox ("Ievadiet numuru", "Kvadrātveida sakne")
MsgBox "" & skaits & "kvadrātsakne ir" & Sqr (skaitlis)
2. Lapā noklikšķiniet uz komandu pogas, ievadiet virknes vērtību simts un noklikšķiniet uz Labi.
Rezultāts:
3. Noklikšķiniet uz Beigas.
4. Lai parādītu draudzīgu ziņojumu, nevis tipa neatbilstības kļūda, atjauniniet kodu šādi.
Dim numurs Kā variants
numurs = InputBox ("Ievadiet numuru", "Kvadrātveida sakne")
Ja IsNumeric (skaitlis) Tad
MsgBox "" & skaits & "kvadrātsakne ir" & Sqr (skaitlis)
Citādi
MsgBox "Lūdzu, ievadiet numuru"
Beigas Ja
Paskaidrojums: Variant tipa mainīgajam var būt jebkura veida vērtība (sk. Pirmo rindu). Funkcija IsNumeric programmā Excel VBA pārbauda, vai vērtība ir skaitlis.
5. Atkārtojiet 2. darbību.
Rezultāts:
6. Visbeidzot, pārbaudiet, vai šis vienkāršais kvadrātsaknes kalkulators darbojas.
Rezultāts:
Padoms: lejupielādējiet Excel failu (šīs lapas labajā pusē) un izmēģiniet to.
