Kullanıcı tarafından belirtilen bir hata numarası içeren hata alt türü değişkenini döndürür.
Söz dizimi
CVErr ( errornumber )
Gerekli hata numarasıbağımsız değişken geçerli 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, çeşitli bağımsız değişkenleri kabul eden ve normalde bir dize döndüren bir işlev oluşturursanız, işlevinizin kabul edilebilir aralık içinde olduklarından emin olmak için giriş bağımsız değişkenlerini değerlendirmesini sağlayabilirsiniz. Aksi takdirde, işlevinizin beklediğinizi döndürmemesi olasıdır. Bu olayda CVErr , hangi eylemi gerçekleştirmeniz gerektiğini belirten bir hata numarası döndürmenizi sağlar.
Bir Hatanın örtük dönüşümüne izin verilmediğini unutmayın. Örneğin, CVErr'ın dönüş değerini değişken olmayan bir değişken doğrudan atayamazsınız. Ancak, CVErr tarafından döndürülen değerin açık dönüştürmesini (CInt, CDbl vb.) gerçekleştirebilir ve bunu uygun veri türü değişkenine atayabilirsiniz.
Ö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, VarType değeri vbError (10) olan bir Değişkendöndürmek için CVErr işlevi kullanılır. kullanıcı tanımlı işlev CalculateDouble , geçirilen bağımsız değişken bir sayı değilse hata döndürür. CVErr'ı kullanarak kullanıcı tanımlı yordamlardan kullanıcı tanımlı hatalar döndürebilir veya bir çalışma zamanı hatasının işlenmesini erteleyebilirsiniz. Değerin bir hatayı temsilip temsil etmediğ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
