Online Reference

Home

Microsoft Reference

Knowledge

Developer

VBA

Error Handling and Message Function

ดาวน์โหลดคู่มือ

CVErr Function

ส่งออกค่าเป็นประเภทข้อมูล Variant ประเภทย่อยเป็น Error ที่เก็บหมายเลขของค่าความผิดพลาดที่กำหนดโดยผู้ใช้

ไวยากรณ์

CVErr(errornumber )

อากิวเมนต์ errornumber ต้องเป็นหมายเลขความผิดพลาดที่มีอยู่จริง

ลักษณะการประยุกต์

ฟังก์ชัน CVErr ใช้ในการสร้างการแสดงความผิดพลาดที่ผู้ใช้กำหนดใน procedure เช่น ถ้าสร้างฟังก์ชันที่ยอมรับหลายอากิวเมนต์และส่งออกค่าเป็นข้อความ ซึ่งสามารถกำหนดฟังก์ชันในการตรวจสอบค่านำเข้าเพื่อทำให้มั่นใจว่าค่าที่นำเข้าอยู่ในช่วงที่ยอมรับ ถ้าไม่ตรวจสอบฟังก์ชันที่กำหนดอาจจะไม่สามารถส่งค่าตามที่คาดได้ ในเหตุการณ์นี้ ฟังก์ชัน CVErr ยินยอมให้ส่งออกหมายเลขความผิดพลาดเพื่อแจ้งถึงการทำงาน

ฟังก์ชัน CVErr ไม่ยินยอมให้แปลงค่าแบบโดยนัยของความผิดพลาดที่ปรากฏ เช่น ไม่สามารถกำหนดค่าให้ตัวแปรที่ไม่ใช้ประเภทข้อมูล Variant ในการส่งออกค่าของฟังก์ชัน CVErr โดยตรง แต่สามารถทำได้โดยการแปลงแบบชัดแจ้ง (โดยใช้ฟังก์ชัน Cint, CDbl เป็นต้น) ของค่าที่ส่งออกโดยฟังก์ชัน CVErr และกำหนดให้กับตัวแปรที่มีประเภทข้อมูลที่เหมาะสม

ดูเพิ่มเติม

Data Type Summary, ฟังก์ชัน IsError

ตัวอย่าง

ตัวอย่างการใช้ฟังก์ชัน CVErr ในการส่งค่าเป็น Variant และ VarType เป็น vbError (10) โดย Function CalculateDouble เป็นฟังก์ชันผู้ใช้กำหนดเองให้ส่งออกค่าความผิดพลาด ถ้าอากิวเมนต์ที่ส่งเข้าไปไม่ใช่ตัวเลข ซึ่งสามารถใช้ฟังก์ชัน CVErr ในการส่งออกค่าความผิดพลาดที่กำหนดเองจาก Procedure ที่สร้างขึ้นหรือควบคุมความผิดพลาด run-time error ใช้ฟังก์ชัน IsError ในการทดสอบค่า

' เรียก CalculateDouble ที่มีอากิวเมนต์สร้างค่าความผิดพลาด
Sub Test()
Debug.Print CalculateDouble("345.45robert")
End Sub

' กำหนดฟังก์ชัน CalculateDouble Function
Function CalculateDouble(Number)

  If IsNumeric(Number) Then
    CalculateDouble = Number * 2       ' ส่งออกค่าผลลัพธ์
  Else
    CalculateDouble = CVErr(2001)     ' ส่งออกค่าความผิดพลาดที่ผู้ใช้กำหนดเอง
  End If     ' ตัวเลข

End Function