如何避免運行時錯誤與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