求问：On Error 规避了错误，又如何记录下引起错误的有关信息？

以下代码的作用是将列字段“级别”中是A级、B级、C级、D级的所用项目显示出来，问题是如何将Range("F5:F10")中的其他所有非列字段“级别”项目用Magbox显示出来(即要找出E级、F级)？

代码应当如何改写？

Sub Macro2() ' ' With ActiveSheet.PivotTables("数据透视表1").PivotFields("级别") For Each cel In Range("F5:F10") On Error GoTo 1 .PivotItems(cel.Text).Visible = True Next cel End With Exit Sub 1: MsgBox cel.Text End Sub

（问题类型：On Error 规避了错误，又如何记录下引起错误的有关信息？）

Yhj4WVTD.rar (8.35 KB, 下载次数: 11)

2005-5-25 09:46 上传

点击文件名下载附件
求问：On Error 规避了错误，又如何记录下引起错误的有关信息？

下面是我在excel2003的VBA帮助中搜索"error collection"得到的

Sub DescriptionX()

Dim dbsTest As Database

On Error GoTo ErrorHandler ' Intentionally trigger an error.

Set dbsTest = OpenDatabase("NoDatabase")

Exit Sub

ErrorHandler:

Dim strError As String

Dim errLoop As Error ' Enumerate Errors collection and display properties of

' each Error object.

For Each errLoop In Errors

With errLoop

strError = "Error #" & .Number & vbCr

strError = strError &" " & .Description & vbCr

strError = strError &" (Source: " & .Source & ")" & vbCr

strError = strError & "Press F1 to see topic " & .HelpContext & vbCr

strError = strError &" in the file " & .HelpFile & "."

End With

MsgBox strError

Next

Resume Next

End Sub

加多一句： Resume Next

Sub Macro2() With ActiveSheet.PivotTables("数据透视表1").PivotFields("级别") For Each cel In Range("F5:F10") On Error GoTo 1 .PivotItems(cel.Text).Visible = True Next cel End With Exit Sub 1: MsgBox cel.Text Resume Next End Sub

多谢Foshan！金玉之言啊

从来没用过Resume Next！从某种程度来说也是需求把它挤兑出来了。

同时感谢fukw...

很巧妙，没用过！