Henüz Error Handling'e aşina değilseniz, öncelikle bu örneği okumanızı şiddetle tavsiye ederiz. içinde bir hata olduğunda Excel VBA'sı oluşur, özellikleri Hata nesnesi bilgilerle doldurulur.
Durum:
Aşağıdaki program sayıların karekökünü hesaplar.
1. Çalışma sayfanıza bir komut düğmesi yerleştirin ve aşağıdaki kod satırlarını ekleyin:
Aralık Olarak Karart, Aralık Olarak Hücre
Set rng = Seçim
Her hücre için rng'de
GoTo InvalidValue Hatasında:
cell.Value = Sqr(hücre.Değer)
Sonraki hücre
Alt Çıkış
Geçersiz değer:
MsgBox Err.Number & " " & Err.Description & " at hücre " & hücre.Adres
Devam Et Sonraki
Range("B2:B6") öğesini seçip sayfadaki komut düğmesini tıkladığınızda sonuç:
Açıklama: Bir hata oluştuğunda, Err nesnesinin number özelliği, mevcut hatanın benzersiz bir hata numarası ile doldurulur ve Description özelliği, mevcut hatanın hata açıklaması ile doldurulur.
2. Bu açıklamalar, programınızın kullanıcıları için pek yardımcı olmayabilir. Makronun son kısmını aşağıdaki gibi değiştirerek hata mesajlarını daha kullanıcı dostu hale getirebilirsiniz:
Geçersiz değer:
Vaka Hata Numarası Seçin
Vaka = 5
MsgBox "Hücredeki negatif sayının karekökü hesaplanamıyor" & hücre.Adres
Vaka = 13
MsgBox "Hücredeki metnin karekökü hesaplanamıyor" & hücre.Adres
Seçimi Bitir
Devam Et Sonraki
İpucu: Select Case yapısı hakkında daha fazla bilgi edinmek için Select Case programımıza göz atın.
Sonuç: