De type niet-overeenkomende fout in Excel VBA treedt op wanneer u een waarde probeert toe te wijzen aan een variabele die niet van het juiste type is.
Plaats een opdrachtknop op uw werkblad en voeg de volgende coderegels toe:
Dim nummer Als geheel getal
nummer = "fiets"
Resultaat wanneer u op de opdrachtknop op het werkblad klikt:
Toelichting: je kunt geen stringwaarde (fiets) toekennen aan een variabele van het type Integer.
De type mismatch-fout (runtime-fout 13) komt vaak voor bij gebruik van de InputBox-functie in Excel VBA.
1. Plaats een opdrachtknop op uw werkblad en voeg de volgende coderegels toe:
Dim nummer Als geheel getal
nummer = InputBox ("Voer een getal in", "Vierkante wortel")
MsgBox "De vierkantswortel van " & nummer & " is " & Sqr(nummer)
2. Klik op de opdrachtknop op het blad, voer de tekenreekswaarde honderd in en klik op OK.
Resultaat:
3. Klik op Einde.
4. Om een vriendelijk bericht weer te geven in plaats van de type niet-overeenkomende fout, werk de code als volgt bij.
Dim nummer Als Variant
nummer = InputBox ("Voer een getal in", "Vierkante wortel")
Als IsNumeriek(getal) Dan
MsgBox "De vierkantswortel van " & nummer & " is " & Sqr(nummer)
Anders
MsgBox "Voer een nummer in"
Stop als
Toelichting: een variabele van het type Variant kan elk type waarde bevatten (zie eerste regel). De functie IsNumeric in Excel VBA controleert of een waarde een getal is.
5. Herhaal stap 2.
Resultaat:
6. Controleer ten slotte of deze eenvoudige vierkantswortelcalculator werkt.
Resultaat:
Tip: download het Excel-bestand (rechterkant van deze pagina) en probeer het eens.
