创建集中的错误处理程序-mathematical statistics with applications

时间:2024-06-22 07:59:53
【文件属性】:

文件名称:创建集中的错误处理程序-mathematical statistics with applications

文件大小:13.45MB

文件格式:PDF

更新时间:2024-06-22 07:59:53

excel,VBA

13.6 创建集中的错误处理程序 新术语 可以创建集中的错误处理程序来代替在每个过程中创建一个错误处理实用程序。集 中式错误处理程序是一个函数,它对所发生的每个错误进行处理,然后基于不同的错误号码 采取不同的措施。程序中需要进行错误处理的每个过程中仍然需要有 On Error语句,该语句跳 转到拥有Select Case语句的应用程序某个区域中, Select Case语句能够处理有集中式错误处理 程序返回的结果。Select Case语句有五种可能的情况: • 执行R e s u m e。 • 执行Resume Next。 • 执行Resume “行”。 • 退出该过程。 • 结束整个应用程序。 对应于每个错误,从集中式错误处理程序会返回一个相应的值到局部过程中,这个值的 范围是1~5。局部过程就使用这个返回值初始化相应措施。理解这个过程的最好方式就是实 践。要添加集中式错误处理程序的话,请执行下面的步骤: 1)添加一个模块到工作簿中,创建一个函数,命名为 H a n d l e E r r o r s,要确保它是一个 函数。 2)为该函数输入下面的代码: Function HandleErrors(iErrNum) As Integer Select Case iAction Case 5 'Invalid procedure call MsgBox Error(iErrNum) & " Contact Help Desk." iAction = 2 Case 7 'Out of memory MsBox "Close all unnecessary applications. " iAction = 1 Case 11 'Division by zero MsgBox "Zero is not a valid value. " iAction = 1 Case 48, 49,51 'Error in loading DLL MsgBox iErrNum & "Contact Help Desk. " iAction = 5 Case 57 'Device I/O error MsgBox "Insert Disk in Drive A." iAction = 1 Case Else MsgBox "Unrecoverable Error. " iAction = 5 End Select 114使用中文Excel 2000编程 2 4学时教程


网友评论