首先,代码:
If ws.Cells(.Value + 1, 28).Interior.ColorIndex = 16 Then Mark1.LU1DISCOCHECK = True Else Mark1.LU1DISCOCHECK = False
单元格的颜色是正确的,但 if 语句根本没有更改复选框。 我对颜色索引不太熟悉,但根据我所知道的,这应该工作得很好。
我错过了什么吗?
尝试:
如果 ws.Cells(.Value + 1, 28).DisplayFormat.Interior.Color = RGB(250, 200, 150) 那么 Mark1.LU1DISCOCHECK = True 否则 Mark1.LU1DISCOCHECK = False
或者:
如果 ws.Cells(.Value + 1, 28).DisplayFormat.Interior.ColorIndex = 16 那么 Mark1.LU1DISCOCHECK = True 否则 Mark1.LU1DISCOCHECK = False