Excel VBA字体格式和/或条件

时间:2020-11-12 20:21:57

标签: excel vba if-statement formatting conditional-statements

我对Excel VBA和基于多种条件的条件格式字体有疑问 现在我不是程序员,而是通过查找一些示例代码并修改我的VBA代码,直到我得到所需的东西为止:) 我已经在Google和Google上搜索,现在到论坛寻求帮助了。

我有一个表的数据集,其中包含10种不同的货币并附加了值 对于每种特定货币,值的字体颜色必须更改为RAG(红色,琥珀色,绿色)条件。 我试图用CASE,IF AND OR等重建几个VBA示例,但是我被卡住了

请参阅链接中的图片以获取检索到的数据和要求

Requirement

希望有人可以指出我正确的方向

thnks and grtzz .. Luupski

1 个答案:

答案 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

我设法使它在图纸上自动运行 现在只想知道这是否可以简化

豫ICP备18024241号-1