VBA - Trả về từ một hàm trong trường hợp lỗi

Question

Tôi mới dùng VBA và muốn trả về từ một hàm khi tôi thấy lỗi. Không thể làm được. Bất kỳ con trỏ?

Function GetEditboxValue(control As IRibbonControl, text As String) As String 

    If Not IsMissing(text) Then 
     If Not IsNumeric(text) Then 
      MsgBox "Please enter numeric value only." 
      ' I WANT TO RETURN HERE 
     End If 
    End If 


    If control.id = "xyz" Then 
    spaceAboveTable = text 
    End If 


End Function 

Answer 1

Bạn cần phải đặt EXIT FUNCTION đó để thoát khỏi thực hiện thêm:

Function GetEditboxValue(control As IRibbonControl, text As String) As String 

    If Not IsMissing(text) Then 
     If Not IsNumeric(text) Then 
      MsgBox "Please enter numeric value only." 
      EXIT FUNCTION 
     End If 
    End If 


    If control.id = "xyz" Then 
    spaceAboveTable = text 
    End If 


End Function 

Answer 2

Bạn có thể sử dụng Exit Function sau MsgBox tuyên bố của bạn

Answer 3

Một lựa chọn khác là nâng cao một cách rõ ràng một lỗi sử dụng Err.Raise. Vì bạn không có trình xử lý lỗi nào trong hàm này (tức là, không có đường dây On Error ...), lỗi sẽ được truyền lên thông qua ngăn xếp cuộc gọi cho đến khi nó chạy vào trình xử lý lỗi.

Answer 4

Trong một ý nghĩa tổng quát (Tôi không thực sự nói bất cứ điều gì mà không được nói):

Function Foo(inputVar As Double) As Double 

    On Error GoTo ErrorHandler 

    ' Code assigning something to returnValue and defaultOutput 

    Foo = returnValue 

    Exit Function 

    ErrorHandler: 

    Foo = defaultOutput 

End Function 

Không có lý do nó đã được đôi, dĩ nhiên rồi.

(Edited bởi vì tôi đã có một "Exit Function" thứ hai thay vì "End Function.")