ส่งกลับ ตัวแปร ของ ข้อผิดพลาด ชนิดย่อยที่มีหมายเลขข้อผิดพลาดที่ระบุโดยผู้ใช้
ไวยากรณ์
CVErr(errornumber)
อาร์กิวเมนต์ errornumberที่จําเป็นต้องมีคือหมายเลขข้อผิดพลาดที่ถูกต้อง
ข้อสังเกต
ใช้ฟังก์ชัน CVErr เพื่อสร้างข้อผิดพลาดที่ผู้ใช้กําหนดเองในกระบวนงานที่ผู้ใช้สร้างขึ้น ตัวอย่างเช่น ถ้าคุณสร้างฟังก์ชันที่ยอมรับหลายอาร์กิวเมนต์ และโดยปกติจะส่งกลับสตริง คุณสามารถให้ฟังก์ชันของคุณประเมินอาร์กิวเมนต์ที่ใส่เพื่อให้แน่ใจว่าอยู่ภายในช่วงที่ยอมรับได้ หากไม่มี อาจเป็นไปได้ว่าฟังก์ชันของคุณจะไม่ส่งกลับตามที่คุณคาดไว้ ในเหตุการณ์นี้ CVErr อนุญาตให้คุณส่งกลับหมายเลขข้อผิดพลาดที่บอกให้คุณทราบว่าต้องดําเนินการอะไร
โปรดทราบว่าไม่อนุญาตให้ แปลงข้อผิดพลาดโดย นัย ตัวอย่างเช่น คุณไม่สามารถกําหนดค่าที่ส่งกลับของ CVErr ให้กับตัวแปรที่ไม่ใช่ ตัวแปร ได้โดยตรง อย่างไรก็ตาม คุณสามารถทําการแปลงที่ชัดเจน (โดยใช้ CInt, CDbl และอื่นๆ) ของค่าที่ส่งกลับโดย CVErr และกําหนดเป็นตัวแปรของชนิดข้อมูลที่เหมาะสม
ตัวอย่าง
หมายเหตุ
ตัวอย่างต่อไปนี้จะสาธิตการใช้ฟังก์ชันนี้ในโมดูล Visual Basic for Applications (VBA) สําหรับข้อมูลเพิ่มเติมเกี่ยวกับการทํางานกับ VBA ให้เลือก การอ้างอิงสําหรับนักพัฒนา ในรายการดรอปดาวน์ที่อยู่ถัดจาก ค้นหา แล้วใส่คําอย่างน้อยหนึ่งคําในกล่องค้นหา
ตัวอย่างนี้ใช้ฟังก์ชัน CVErr เพื่อส่งกลับ ตัวแปร ที่ VarType เป็น vbError (10) ฟังก์ชัน CalculateDouble ที่ผู้ใช้กําหนดเองจะส่งกลับข้อผิดพลาดถ้าอาร์กิวเมนต์ที่ส่งผ่านไปยังฟังก์ชันนั้นไม่ใช่ตัวเลข คุณสามารถใช้ CVErr เพื่อส่งกลับข้อผิดพลาดที่ผู้ใช้กําหนดเองจากกระบวนการที่ผู้ใช้กําหนด หรือเพื่อเลื่อนการจัดการข้อผิดพลาดขณะทํางาน ใช้ฟังก์ชัน IsError เพื่อทดสอบว่าค่าแทนข้อผิดพลาดหรือไม่
' 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