☰

VBA 如果带有颜色

tag-icon • tag-icon microsoft-excel vba colors
VBA 如果带有颜色

我在 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 也为黄色。

请问如何修复？

相关内容