Mengembalikan Varian Subtipe Kesalahan yang berisi angka kesalahan yang ditentukan oleh pengguna.
Sintaks
CVErr(errornumber)
Argumen errornumberyang diperlukan adalah angka kesalahan apa pun yang valid.
Keterangan
Gunakan fungsi CVErr untuk membuat kesalahan yang ditentukan pengguna dalam prosedur yang dibuat pengguna. Misalnya, jika Anda membuat fungsi yang menerima beberapa argumen dan biasanya mengembalikan string, Anda bisa meminta fungsi Anda mengevaluasi argumen input untuk memastikan bahwa argumen tersebut berada dalam rentang yang dapat diterima. Jika tidak, kemungkinan fungsi Anda tidak akan mengembalikan apa yang Anda harapkan. Dalam kejadian ini, CVErr memungkinkan Anda untuk mengembalikan nomor kesalahan yang memberi tahu Anda tindakan apa yang harus dilakukan.
Perhatikan bahwa konversi implisit kesalahan tidak diperbolehkan . Misalnya, Anda tidak dapat menetapkan nilai pengembalian CVErr secara langsung ke variabel yang bukan Varian. Namun, Anda dapat melakukan konversi eksplisit (menggunakan CInt, CDbl, dan seterusnya) dari nilai yang dikembalikan oleh CVErr dan menetapkannya ke variabel tipe data yang sesuai.
Contoh
Catatan
Contoh yang mengikuti demonstrasi penggunaan fungsi ini dalam modul Visual Basic for Applications (VBA). Untuk informasi selengkapnya tentang bekerja dengan VBA, pilih Referensi Pengembang di daftar turun bawah di samping Cari dan masukkan satu istilah atau lebih di kotak pencarian.
Contoh ini menggunakan fungsi CVErr untuk mengembalikan Varian yang VarType-nyavbError (10). Fungsi yang ditentukan CalculateDouble pengguna mengembalikan kesalahan jika argumen yang dikirimkan ke dalamnya bukanlah angka. Anda dapat menggunakan CVErr untuk mengembalikan kesalahan yang ditentukan pengguna dari prosedur yang ditentukan pengguna atau untuk menangguhkan penanganan kesalahan run-time. Gunakan fungsi IsError untuk menguji jika nilai menunjukkan kesalahan.
' 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