为什么检查单元格背景颜色的 If 函数不起作用？

Why is my If function that is checking the background color of a cell not working?

提问人：cheese10234 提问时间：9/5/2023 更新时间：9/5/2023 访问量：44

问：

首先，代码：

If ws.Cells(.Value + 1, 28).Interior.ColorIndex = 16 Then Mark1.LU1DISCOCHECK = True Else Mark1.LU1DISCOCHECK = False

单元格是正确的颜色，但 if 语句根本没有更改复选框。 我对颜色索引不太熟悉，但据我所知，这应该可以正常工作。

我错过了什么吗？

Excel VBA IF语句 背景色

评论

1赞 Tim Williams 9/5/2023
填充是手动应用的，还是来自条件格式？如果是第二个，你需要检查DisplayFormat.Interior.ColorIndex
0赞 cheese10234 9/5/2023
它来自不同的代码，而不是条件格式。If Mark1.LU1DISCOCHECK = True Then ws.Cells(.Value + 1, 28).Interior.ColorIndex = 16 Else ws.Cells(.Value + 1, 28).Interior.ColorIndex = 2
0赞 cheese10234 9/5/2023
我需要将 displayformat 添加到两个代码中吗？
0赞 cheese10234 9/5/2023
这很有效。请作为答案发布，以便我投赞成票

答：

2赞 Matheus 9/5/2023 #1

尝试：

如果 ws.单元格（.值 + 1， 28）。DisplayFormat.Interior.Color = RGB（250， 200， 150） 那么 mark1.LU1DISCOCHECK = true else mark1.LU1DISCOCHECK = false

艺术

如果 ws.单元格（.值 + 1， 28）。DisplayFormat.Interior.ColorIndex = 16 那么 mark1.LU1DISCOCHECK = true else mark1.LU1DISCOCHECK = false

1赞 Tim Williams 9/5/2023 #2

像这样更容易：

Mark1.LU1DISCOCHECK = (ws.Cells(.Value + 1, 28).DisplayFormat.Interior.ColorIndex = 16)

上一个：为什么我的 VBA 使用偏移量不适用于某些列？

下一个：如果无法识别原始 if 语句，则结束并不断给出编译错误 [已关闭]