0

我需要一些帮助，该函数可以根据单元格的值是否等于另一个单元格的值来更改单元格的颜色，当前单元格包含 =COUNT(##:##) 并且我需要如果该值等于另一个单元格中的值，则将颜色从红色更改为绿色。

由于我对 VBA 和 excel 的了解有限，我想出了这个

Function ChangeColor(CellColor As Range)
Application.Volatile True
If CellColor = cell.Value Then ChangeColor = cell.Interior.ColorIndex = 14
End Function

如果可能的话，我宁愿不使用条件格式，但如果需要，我愿意将它作为最后的手段。感谢您的所有帮助以及帮助我​​解决以前的问题，这个社区很棒。

4

2 回答 2

1

我做了下面的代码来突出显示相同列中的单元格。条件格式并没有让我级联“等于上面的单元格”的公式，也许我没有做对。无论如何，这很有效，并且很容易改变并添加到它。可以轻松更改此示例以适应您的问题。

Sub checkduplicates()
Dim Loop1 As Integer
Dim Loop1StartRow As Integer
Dim Loop1EndRow As Integer
Dim Loop1Count As Integer
Dim Current As Integer
Dim NextOne As Integer

Loop1StartRow = 4 '4 HYIDAS
Loop1EndRow = 330 '330 HYIDAS
Loop1Count = 0

For Loop1 = Loop1StartRow To Loop1EndRow
    Worksheets("HYIDAS").Activate
    Loop1Count = Loop1Count + 1
    Current = Range("H" & Loop1)
    NextOne = Range("H" & Loop1 + 1)
    If Current = NextOne Then
        Range("H" & Loop1).Interior.Color = 220
        Range("H" & Loop1 + 1).Interior.Color = 220
    End If
Next Loop1
End Sub
于 2017-06-02T12:28:21.133 回答
0

我想你只是使用条件格式我知道函数不能改变颜色或者你使用宏

If CellColor = Selection.Value Then CellColor.Interior.ColorIndex = 14

我很抱歉我知道

于 2013-10-16T10:34:20.257 回答