ส่งกลับ ตัวแปร ของ ข้อผิดพลาด ชนิดย่อยที่มี หมายเลขข้อผิดพลาด ที่ระบุโดยผู้ใช้
ไวยากรณ์
CVErr ( 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
