Kullanıcı tarafından belirtilen bir hatanın bulunduğu alt hata numarası Değişken döndürür.
Söz dizimi
CVErr ( hatasayı )
Gerekli hata sayısıbağımsız değişken herhangi bir hata numarasıdır.
Açıklamalar
Kullanıcı tarafından oluşturulan yordamlarda kullanıcı tanımlı hatalar oluşturmak için CVErr işlevini kullanın. Örneğin, birkaç bağımsız değişkeni kabul eden ve normal olarak bir dize döndüren bir işlev oluşturmanız, işlevinizin kabul edilebilir bir aralık içinde olduğundan emin olmak için giriş bağımsız değişkenlerini değerlendirmesini silebilir. Böyle bir işlev yoksa, büyük olasılıkla işleviniz beklediğiniz şeyi geri getirmayacaktır. Bu durumda, CVErr size hangi eylemin yerine getirileni söyleyen bir hata numarası geri dönmenizi sağlar.
Hatanın örtülü dönüştürmesine izin verilmemektedir. Örneğin, CVErr'in dönüş değerini Değişken değişken bir ürüne doğrudan atayabilirsiniz. Bununla birlikte, CVErr tarafından döndürülen değerin açık dönüştürmesini (CInt,CDbl,gibi) gerçekleştirin ve bunu uygun değişkene veri türü.
Örnek
Not: Aşağıdaki örneklerde, bu işlevin Visual Basic for Applications (VBA) modülünde kullanımı gösterilir. VBA ile çalışma hakkında daha fazla bilgi için, rama'nın yanındaki açılan listede Geliştirici Başvurusu'nu seçin ve arama kutusuna bir veya birden çok terim yazın.
Bu örnekte, VarTypetürü vbError (10) olan bir Değişken vermek için CVErr işlevi 2013'te 2013'te bir değişken verir. Kullanıcı tanımlı işlev CalculateDouble bir sayı değilse hata döndürür. CVErr'i kullanıcı tanımlı yordamlardan kullanıcı tanımlı hatalarla dönmek veya çalıştırma hatasının işlenmesini ertelemek için kullanabilirsiniz. Değerin bir hatayı temsil ettiğini test etmek için IsError işlevini kullanın.
' Call CalculateDouble with an error-producing argument.
Sub Test()
Debug.Print CalculateDouble("345.45robert")
End Sub
' Define CalculateDouble Function procedure.
Function CalculateDouble(Number)
If IsNumeric(Number) Then
CalculateDouble = Number * 2 ' Return result.
Else
CalculateDouble = CVErr(2001) ' Return a user-defined error
End If ' number.
End Function
