У меня есть этот код в VBA:

Function SBarvou(range)
If range.Value = "R" Then
    SBarvou = "O"
If range.Value = "R" And range.Interior.Color = RGB(255, 255, 0) Then
    SBarvou = "O"
    SBarvou.Interior.Color = RGB(255, 255, 0)
End If
End If

Конечная функция

Первая часть работает, но когда ячейка источника желтая (RGB 255,255,0), она не работает. Мне это нужно, когда исходная ячейка содержит R и имеет желтый цвет, тогда она должна быть продуктовой ячейкой O и желтой.

Как это починить пожалуйста?

0