ten błąd niezgodności typów w Excel VBA występuje, gdy próbujesz przypisać wartość do zmiennej, która nie jest odpowiedniego typu.
Umieść przycisk polecenia w arkuszu i dodaj następujące wiersze kodu:
Dim liczba As Integer
numer = "rower"
Wynik po kliknięciu przycisku polecenia na arkuszu:
Objaśnienie: nie można przypisać wartości ciągu (rower) do zmiennej typu Integer.
Błąd niezgodności typów (błąd wykonania 13) często występuje podczas korzystania z funkcji InputBox w Excel VBA.
1. Umieść przycisk polecenia w arkuszu i dodaj następujące wiersze kodu:
Dim liczba As Integer
number = InputBox("Wprowadź liczbę", "Pierwiastek kwadratowy")
MsgBox "Pierwiastek kwadratowy z " & liczba & " to " & Sqr(liczba)
2. Kliknij przycisk polecenia na arkuszu, wprowadź wartość ciągu sto i kliknij OK.
Wynik:
3. Kliknij Koniec.
4. Aby wyświetlić przyjazny komunikat zamiast błąd niezgodności typów, zaktualizuj kod w następujący sposób.
Numer przyciemniania jako wariant
number = InputBox("Wprowadź liczbę", "Pierwiastek kwadratowy")
Jeśli IsNumeric(liczba) Wtedy
MsgBox "Pierwiastek kwadratowy z " & liczba & " to " & Sqr(liczba)
W przeciwnym razie
MsgBox "Proszę podać numer"
Zakończ, jeśli
Objaśnienie: zmienna typu Variant może przechowywać dowolny typ wartości (patrz pierwszy wiersz). Funkcja IsNumeric w Excel VBA sprawdza, czy wartość jest liczbą.
5. Powtórz krok 2.
Wynik:
6. Na koniec sprawdź, czy ten prosty kalkulator pierwiastkowy działa.
Wynik:
Wskazówka: pobierz plik Excel (prawa strona tej strony) i spróbuj.