Excel VBA根据单元格值修改填充色 现有代码无响应无报错如何调整

问题原因 #

你现有代码的逻辑仅针对值为Yes/No的单元格设置颜色，完全没有匹配「有值单元格填充白色、空白单元格填充灰色」的需求，且使用的颜色索引也不符合要求，因此不会得到预期结果。

修正后的VBA代码 #

Dim cell As Range
' 遍历指定范围的所有单元格
For Each cell In wbMe.Sheets("page3").Range("B76:K89")
    ' 判断单元格是否为空白（兼容仅含空格的假空白场景）
    If Trim(cell.Value & "") = "" Then
        ' 空白单元格填充浅灰色
        cell.Interior.ColorIndex = 15
    Else
        ' 有值单元格填充白色
        cell.Interior.ColorIndex = 2
        ' 若仍需要保留原有Yes/No的特殊颜色标注，可取消下方两行注释
        ' If cell.Value = "Yes" Then cell.Interior.ColorIndex = 10
        ' If cell.Value = "No" Then cell.Interior.ColorIndex = 3
    End If
Next cell

关键修改说明 #

• 新增空白判断逻辑：使用Trim(cell.Value & "") = ""的写法，可以同时覆盖真正的空单元格、仅含空格的假空白单元格，避免漏判
• 调整颜色参数：白色对应ColorIndex为2，常用浅灰色对应ColorIndex为15，你也可以将ColorIndex替换为Color = RGB(红,绿,蓝)自定义颜色深浅
• 若运行时提示wbMe未定义，直接将代码中的wbMe替换为ThisWorkbook即可，ThisWorkbook指代代码所在的工作簿

内容的提问来源于stack exchange，提问作者Przemek Dabek