Насчет изменения цвета текста в ячейке

[motorway]

Странность с изменением цвета в ячейке: нужно, если цвет красный, заменить на другой. Пишу в ячейках текст, и делаю красный цвет у одной из них - B2. Но ничего не срабатывает.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

For Each cell In Sh.Range("A1:B2")
        
        If (cell.Font.Color = -16776961 And cell.Font.TintAndShade = 0) Then
        
        cell.Font.Color = -312321
        cell.Font.TintAndShade = 0
        
            End If
            Next cell
            
End Sub

[The_Prist]

Может не стоит использовать столь сложные цветовые оттенки 2007 Excel? Используйте либо константы, либо простые цлые числа.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
For Each cell In Sh.Range("A1:B2")        
        If (cell.Font.Colorindex = 3 And cell.Font.TintAndShade = 0) Then    
        cell.Font.Colorindex = 6
        cell.Font.TintAndShade = 0    
         End If
       Next cell          
End Sub

либо

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
For Each cell In Sh.Range("A1:B2")        
        If (cell.Font.Color = vbRed And cell.Font.TintAndShade = 0) Then    
        cell.Font.Color = vbYellow
        cell.Font.TintAndShade = 0    
         End If
       Next cell          
End Sub

И зачем Вам проверка на оттенки и тень(TintAndShade)? Может убрать её? Или так надо - если отсутствует тень и оттенок, то меняем цвет, а если есть, то не меняем?

[motorway]

Ваш код работает. Проверку на оттенки я сделал потому, что записывал макрорекордером установку цвета, и там добавилось это. Можно убрать. Мне желательно, чтобы можно было устанавливать и проверять цвет в больших диапазонах, т.е. не только основные цвета. Поэтому такое значение используется.

Но если я определил цвет таким образом, что мне дальше с ним делать, чтобы можно было сделать проверку?