Hàm CVErr

Trả về Biến thể của loại con Lỗi chứa một số lỗi được xác định bởi người dùng.

Cú pháp

CVErr(errornumber)

Đối số errornumberbắt buộc là bất kỳ số lỗi hợp lệ nào.

Chú thích

Sử dụng hàm CVErr để tạo lỗi do người dùng xác định trong các thủ tục do người dùng tạo. Ví dụ: nếu bạn tạo một hàm chấp nhận một số tham đối và thường trả về một chuỗi, bạn có thể để hàm của mình đánh giá các tham đối đầu vào để đảm bảo chúng nằm trong phạm vi chấp nhận được. Nếu không, có thể hàm của bạn sẽ không trả về kết quả mong đợi. Trong sự kiện này, CVErr cho phép bạn trả về một số lỗi cho bạn biết cần thực hiện hành động nào.

Lưu ý rằng không cho phép chuyển đổi ngầm Lỗi . Ví dụ: bạn không thể gán trực tiếp giá trị trả về của CVErr cho một biến không phải là Biến_thể. Tuy nhiên, bạn có thể thực hiện chuyển đổi rõ ràng (bằng CInt, CDbl, v.v.) của giá trị do CVErr trả về và gán giá trị đó vào một biến có kiểu dữ liệu phù hợp.

Ví dụ

Ví dụ này sử dụng hàm CVErr để trả về Biến thể có VarType là vbError (10). Hàm CalculateDouble do người dùng xác định sẽ trả về lỗi nếu đối số được đưa đến hàm đó không phải là số. Bạn có thể sử dụng CVErr để trả về lỗi do người dùng xác định từ các thủ tục do người dùng xác định hoặc để trì hoãn việc xử lý lỗi thời gian chạy. Sử dụng hàm IsError để kiểm tra xem giá trị có thể hiện lỗi hay không.

' 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