作者home0303 (Blue night)
看板Office
标题[算表] 回圈内使用On Error Goto
时间Wed Apr 11 10:28:35 2018
软体:EXCEL
版本:2010
Sub 隐藏栏位()
Set MM = ActiveSheet
Sheets("栏位清单").Select
For i = 2 To Application.CountA([A:A])
On Error GoTo Err
依序 = Cells(i, "A").Value
隐藏注记 = Cells(i, "A").Offset(0, 1).Value
MM.Select
[1:1].Select
Selection.Find(What:=依序, LookAt:=xlWhole).Select
Selection.EntireColumn.Hidden = 隐藏注记
Err:
Sheets("栏位清单").Select
Next
MM.Select
End Sub
MM工作表内有过多资料栏位 故我另设一个集合栏位标题的工作表【栏位清单】
用以控制MM工作表的显示栏位
当栏位清单的某一项是MM工作表没有的时候会报错 故在回圈内设一OnErrorGoto
可是只有第一次可以跳过错误 第二次还是会出错
请问应该如何改正
谢谢
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 59.124.41.19
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1523413718.A.6FF.html
2F:→ home0303: 好强 谢谢S大 04/11 10:55