Fungsi CVErr

Penting: Artikel ini adalah terjemahan mesin, lihat penafian. Temukan versi bahasa Inggris artikel di sini sebagai rujukan Anda.

Mengembalikan varian subtipe kesalahan berisi nomor kesalahan ditentukan oleh pengguna.

Sintaks

CVErr ( errornumber )

Diperlukan errornumberargumen adalah angka valid kesalahan.

Keterangan

Gunakan fungsi CVErr untuk membuat kesalahan yang ditentukan pengguna di prosedur dibuat oleh pengguna. Misalnya, jika Anda membuat fungsi yang menerima beberapa argumen dan biasanya mengembalikan string, Anda bisa memiliki Anda fungsi yang mengevaluasi argumen input untuk memastikan mereka dalam rentang yang dapat diterima. Jika tidak, ada kemungkinan fungsi Anda tidak akan kembali apa yang Anda harapkan. Dalam hal ini, CVErr memungkinkan Anda untuk mengembalikan jumlah kesalahan yang memberitahu Anda tindakan yang akan diambil.

Perhatikan bahwa implisit konversi kesalahan tidak diperbolehkan. Misalnya, Anda tidak bisa langsung menetapkan nilai yang dikembalikan CVErr untuk variabel yang bukan varian. Namun, Anda bisa melakukan eksplisit konversi (menggunakan CInt, CDbl, dan seterusnya) nilai yang dikembalikan oleh CVErr dan menetapkan yang ke variabel sesuai tipe data.

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 adalah vbError (10). Fungsi yang ditentukan pengguna CalculateDouble mengembalikan kesalahan jika tidak ada argumen yang dilewatkan ke angka. Anda bisa menggunakan CVErr untuk mengembalikan kesalahan yang ditentukan pengguna dari prosedur yang ditentukan pengguna atau ditangguhkan penanganan kesalahan run-time. Gunakan fungsi IsError untuk menguji apakah nilai merupakan 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

Catatan: Penafian Terjemahan Mesin: Artikel ini telah diterjemahan oleh sistem komputer tanpa campur tangan manusia. Microsoft menawarkan terjemahan mesin ini untuk membantu pengguna yang bukan penutur bahasa Inggris agar dapat menikmati konten tentang produk, layanan, dan teknologi Microsoft. Karena artikel ini diterjemahkan oleh mesin, mungkin akan terdapat kesalahan kosa kata, sintaksis, atau tata bahasa.

Kembangkan keterampilan Anda
Jelajahi pelatihan
Dapatkan fitur baru terlebih dahulu
Gabung ke Office Insiders

Apakah informasi ini bermanfaat?

Terima kasih atas umpan balik Anda!

Terima kasih atas umpan balik Anda! Sepertinya menghubungkan Anda ke salah satu agen dukungan Office kami akan sangat membantu.

×