首页 > 解决方案 > 更改带有文本的单元格的单元格颜色 - 错误类型不匹配

问题描述

我想编写一个 VBA 来更改以特定单词(“Enter”、“Error”、“Used”、“Charge No”)开头的单元格的颜色,例如“错误!输入与材料不匹配”。我对 VBA 很陌生,尝试了不同的东西,但我每次都卡住并收到错误

“类型不匹配”。

到目前为止,我得到的是:

Sub highlight()
    Dim cell As Range
                             
    For Each cell In Range("D2:E2").EntireColumn
        If cell.Value = "Enter" Then
            cell.Interior.color = RGB(221, 235, 247) 
        ElseIf cell.Value = "Error" Then
            cell.Interior.color = RGB(253, 145, 145) 
        ElseIf cell.Value = "add Charge No" Then
            cell.Interior.color = RGB(255, 242, 204) 
        ElseIf cell.Value = "Used" Then
            cell.Interior.color = RGB(255, 242, 204) '
        End If
    Next
End Sub

标签: excelvba

解决方案


只是一个简单的屏幕截图示例,说明使用条件格式(在不到五分钟的时间内完成)可以让生活变得多么轻松:

Excel条件格式截图

如果您不想使用条件格式,因为您想避免复制条件格式,您可以考虑使用“粘贴 - 值”。


推荐阅读