使用VBA爲特定的Excel錯誤消息生成消息？

Question

有沒有辦法說錯誤1004出現，顯示消息「消息」，如果錯誤9，顯示消息「消息2」，而不是通用的非描述符怪胎說話消息爲最終用戶？

Answer 1

你要做的就是錯誤處理。

看到這個例子。您可以使用陷阱Err.Number

Sub Sample() 
    On Error GoTo Whoa 

    '~~> Rest of the code 

    Exit Sub 
Whoa: 
    Select Case Err.Number 
     Case 9 
      MsgBox "Message1" 
     Case 1004 
      MsgBox "Message2" 
    End Select 
End Sub 

隨訪

Sub Sample1() 
    On Error GoTo Whoa 

    '~~> Rest of the code 

    Exit Sub 
Whoa: 
    MsgBox GetErrMsg(Err.Number) 
End Sub 

Sub Sample2() 
    On Error GoTo Whoa 

    '~~> Rest of the code 

    Exit Sub 
Whoa: 
    MsgBox GetErrMsg(Err.Number) 
End Sub 

Function GetErrMsg(ErNo As Long) As String 
    Select Case ErNo 
     Case 9 
      GetErrMsg = "Message1" 
     Case 1004 
      GetErrMsg = "Message2" 
     Case Else 
      GetErrMsg = "Message3" 
    End Select 
End Function