NS tür uyuşmazlığı hatası içinde Excel VBA'sı doğru türde olmayan bir değişkene değer atamaya çalıştığınızda oluşur.
Çalışma sayfanıza bir komut düğmesi yerleştirin ve aşağıdaki kod satırlarını ekleyin:
Dim sayı olarak Tamsayı
sayı = "bisiklet"
Sayfadaki komut düğmesine tıkladığınızda sonuç:
Açıklama: Tamsayı türünde bir değişkene bir dize değeri (bisiklet) atayamazsınız.
Tür uyuşmazlığı hatası (çalışma zamanı hatası 13) genellikle Excel VBA'da InputBox işlevi kullanılırken ortaya çıkar.
1. Çalışma sayfanıza bir komut düğmesi yerleştirin ve aşağıdaki kod satırlarını ekleyin:
Dim sayı olarak Tamsayı
sayı = InputBox("Bir sayı girin", "Kare Kök")
MsgBox "" & sayı & " ifadesinin karekökü " & Sqr(sayı)
2. Sayfadaki komut düğmesine tıklayın, yüz dize değerini girin ve Tamam'a tıklayın.
Sonuç:
3. Bitir'e tıklayın.
4. Mesaj yerine dostça bir mesaj görüntülemek için tür uyuşmazlığı hatası, kodu aşağıdaki gibi güncelleyin.
Dim numarası Varyant olarak
sayı = InputBox("Bir sayı girin", "Kare Kök")
Eğer Sayısal(sayı) ise
MsgBox "" & sayı & " ifadesinin karekökü " & Sqr(sayı)
Başka
MsgBox "Lütfen bir sayı giriniz"
Bitir
Açıklama: Variant türünde bir değişken, herhangi bir değer türünü tutabilir (ilk satıra bakın). Excel VBA'daki IsNumeric işlevi, bir değerin sayı olup olmadığını kontrol eder.
5. 2. adımı tekrarlayın.
Sonuç:
6. Son olarak, bu basit karekök hesaplayıcının çalışıp çalışmadığını kontrol edin.
Sonuç:
İpucu: Excel dosyasını indirin (bu sayfanın sağ tarafı) ve deneyin.
