VBA无填充色无法运行

为什么白色可以运行，无色不可以？

    If Not ActiveSheet.Cells(i, 10).Comment Is Nothing And (ActiveSheet.Cells(i, 10).Interior.ColorIndex = 0 Or ActiveSheet.Cells(i, 10).Interior.ColorIndex = 2) Then MsgBox "第" & i & "行无颜色！"

• 这个问题的回答你可以参考下: https://ask.csdn.net/questions/7428425
• 这篇博客也不错, 你可以看下VBA之打开工作簿输入密码才能显示内容
• 除此之外, 这篇博客: VBA获取指定文件夹下所有文件和子文件目录的文件中的 参考 部分也许能够解决你的问题, 你可以仔细阅读以下内容或跳转源博客中阅读:
  
• 1. W3CSchool VBA教程
  2. VBA获取某文件夹下所有文件和子文件目录的文件
  3. VBA 快速入门
• 您还可以看一下 陈表达老师的VBA基础编程开发课程课程中的 第23集-获取单元格最后一列小节, 巩固相关知识点
  

这段代码是用于检查Excel表格中第10列单元格是否有注释，并且背景颜色为白色或无颜色（即默认颜色）。如果单元格背景颜色为无色，则会弹出“第X行无颜色！”的提示框。
白色可以运行是因为白色的颜色索引为1，而无色的颜色索引为0，所以在代码中判断为背景颜色索引为0或2（2为黑色）。如果将代码中的0改为-4142，则可以判断无色的单元格。
修改如下：

    If Not ActiveSheet.Cells(i, 10).Comment Is Nothing And (ActiveSheet.Cells(i, 10).Interior.ColorIndex = -4142 Or ActiveSheet.Cells(i, 10).Interior.ColorIndex = 2) Then MsgBox "第" & i & "行无颜色！"