我对Excel VBA和基于多种条件的条件格式字体有疑问 现在我不是程序员,而是通过查找一些示例代码并修改我的VBA代码,直到我得到所需的东西为止:) 我已经在Google和Google上搜索,现在到论坛寻求帮助了。
我有一个表的数据集,其中包含10种不同的货币并附加了值 对于每种特定货币,值的字体颜色必须更改为RAG(红色,琥珀色,绿色)条件。 我试图用CASE,IF AND OR等重建几个VBA示例,但是我被卡住了
请参阅链接中的图片以获取检索到的数据和要求
希望有人可以指出我正确的方向
thnks and grtzz .. Luupski
答案 0 :(得分:0)
那我对录音机没有好运 我休息了几天,提出了以下建议 每当我更改D4的值时,E4的颜色就会改变
If Range("D4") > 60 And Range("C4") = "RUB" Then
Range("E4").Interior.color = RGB(0, 176, 80)
ElseIf (Range("D4") > 30 And Range("D4") < 60) And Range("C4") = "RUB" Then
Range("E4").Interior.color = RGB(225, 192, 0)
ElseIf Range("D4") < 30 And Range("C4") = "RUB" Then
Range("E4").Interior.color = RGB(255, 0, 0)
ElseIf Range("D4") > 60 And Range("C4") = "USD" Then
Range("E4").Interior.color = RGB(0, 176, 80)
ElseIf (Range("D4") > 30 And Range("D4") < 60) And Range("C4") = "USD" Then
Range("E4").Interior.color = RGB(225, 192, 0)
ElseIf Range("D4") < 30 And Range("C4") = "USD" Then
Range("E4").Interior.color = RGB(255, 0, 0)
Else
Range("E4").Interior.color = RGB(1, 111, 44)
End If
我设法使它在图纸上自动运行 现在只想知道这是否可以简化