Excel/VBA：跳过错误并继续执行代码

Seth 发表于 Dev

赛斯

问题：我的宏没有做我想要的。我有一个多列的excel文件。我想要的是宏

寻找特定的头文件（如果它们存在于文件中），然后
选择整列并
按照脚本中的指定调整其大小。如果文件中不存在指定的标头，则代码应移至下一个标头而不会出现任何错误。

下面的代码将“问题描述”的大小从 50 更改为 6，尽管 6 是“需要纠正措施”的大小？标头（在这种情况下不适用，因为该标头不存在，因此 6 s/b 的调整大小要求被简单地忽略）。

但这并没有发生。相反，先前条件的大小（将“问题描述”的列大小更改为 50 ）确实更改为 6。

我应该使用不同的方法来编写这个宏并避免使用 OnErrorResumeNext 吗？

Sub Resize_specific_columns_OnErrResNxt()

'
' finds specific columns based on changed header names and resize them


    On Error Resume Next
     Cells.Find(what:="data domain", After:=ActiveCell, LookIn:= _
        xlValues, lookat:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext _
        , MatchCase:=False, SearchFormat:=False).Activate
    ActiveCell.EntireColumn.Select
    Selection.ColumnWidth = 8


    On Error Resume Next
     Cells.Find(what:="eDIM#", After:=ActiveCell, LookIn:= _
        xlValues, lookat:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext _
        , MatchCase:=False, SearchFormat:=False).Activate
    ActiveCell.EntireColumn.Select
    Selection.ColumnWidth = 6


    On Error Resume Next
     Cells.Find(what:="Problem Description", After:=ActiveCell, LookIn:= _
        xlValues, lookat:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext _
        , MatchCase:=False, SearchFormat:=False).Activate
    ActiveCell.EntireColumn.Select
    Selection.ColumnWidth = 50


    On Error Resume Next
     Cells.Find(what:="Corrective Action Required?", After:=ActiveCell, LookIn:= _
        xlValues, lookat:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext _
        , MatchCase:=False, SearchFormat:=False).Activate
    ActiveCell.EntireColumn.Select
    Selection.ColumnWidth = 6

斯莱

On Error Resume Next 继续到下一个“行”，但 3 行可以合并为 1：

On Error Resume Next

Cells.Find("data domain").EntireColumn.ColumnWidth = 8

Cells.Find("eDIM#").EntireColumn.ColumnWidth = 6

Cells.Find("Problem Description").EntireColumn.ColumnWidth = 50

Cells.Find("Corrective Action Required?").EntireColumn.ColumnWidth = 6

On Error Goto 0     ' optional if there is more code after that should not ignore errors

本文收集自互联网，转载请注明来源。

如有侵权，请联系 [email protected] 删除。