|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
各位高手,我有一个msgbox的问题无法解决,想要请教一下。
【代码(非全部)】:
On Error GoTo b
Workbooks.Open (wp & dep1 & "\" & wb)
Sheets(yer1).Range("A1").Select
Selection.AutoFilter
If typ1 = "ALL" Then
On Error GoTo a
Sheets(yer1).Range("a2").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy ThisWorkbook.Worksheets("approval search").Cells(17, 2)
Else
Worksheets(yer1).Cells(1, 1).AutoFilter Field:=2, Criteria1:=typ1
On Error GoTo a
Sheets(yer1).Range("a2").CurrentRegion.SpecialCells(xlCellTypeVisible).Copy ThisWorkbook.Worksheets("approval search").Cells(17, 2)
End If
Exit Sub
a: MsgBox ([V2].Value)
Exit Sub
b: MsgBox ([V3].Value)
End Sub
【问题】:on error goto a时,a: msgbox有窗口弹出,但显示内容为空白(※V2单元格内容:无法打开文件)。但on error goto b时,弹出窗口可以显示出所引用单元格V3的内容(※V3单元格内容:没有权限)
我试过将a: MsgBox ([V2].Value)改写成a: MsgBox ("无法打开文件"),修改后可以显示。但引用单元格时,无论是哪个单元格都无法显示。
请问有何解决方法?{:soso_e132:}
|
|