Mengembalikan Varian Kesalahan subtipe yang berisi nomor kesalahan yang ditentukan oleh pengguna.
Sintaks
CVErr ( errornumber )
Jumlah kesalahan yang diperlukanargumen adalah nomor 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 datayang 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 pengguna CalculateDouble 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
