如何避免运行时错误与themecolor

Question

在宏的某个点，我想删除我的单元格中使用绿色文本完成的所有评论。

为此，我只需使用2“for”循环：

For Each WS In WB.Worksheets 
For Each cell In WS.UsedRange.Cells 

    If cell.Font.ThemeColor = xlThemeColorAccent3 Then 
     cell.Value = "" 

    End If 
Next 
Next 

但有些时候的themeColor相关似乎没有定义和代码停止与“5”无效的过程调用或参数运行时错误。

我试图自己找到解决方案。由于我有很多其他颜色，我无法为每个单元格设置默认值。

如何避免此运行时错误？

Answer 1

如果它只是避免它，你可以创建一些不那么好样的try-catch的（至极不VBA存在），就像这样：

For Each WS In WB.Worksheets 
     For Each cell In WS.UsedRange.Cells 

      on error goto 1 
      If cell.Font.ThemeColor = xlThemeColorAccent3 Then 
       cell.Value = "" 

      End If 
1   on error goto 0 

     Next 
    Next