在 VBA 中设置颜色答案

【问题标题】：setup color in VBA在 VBA 中设置颜色
【发布时间】：2021-10-19 06:40:09
【问题描述】：

我在下面尝试过，但不起作用...

家庭或办公室的 O 列想显示 O 列是否是家庭，然后 P 列将填充颜色

Sub colour()

    If Range("O:O").Value = "Home" Then
        Range("P:P").Interior.Color = RGB(222, 244, 180)

    End If


End Sub

谢谢。

【问题讨论】：

您需要遍历 O 列中的单元格并测试Value 是否为Home。但是，您可以使用条件格式轻松完成您想要的操作，您必须使用 VBA 吗？

标签： vba colors

【解决方案1】：

试试这个

Dim i as integar

for i = 2 to range("O" & Rows.Count).end(3)(1).row
        if range("O" & i).value="Home" then range("P" & i).Interior.Color = RGB(222, 244, 180)
Next i

【讨论】：

integar 的错字，而且由于您使用它来迭代行，因此您应该使用Long 类型以避免溢出。

【解决方案2】：

使用条件格式，这可以很容易地完成：只需选中“P”列中要突出显示的单元格，然后使用基于公式=$O1="Home" 的条件格式，如下图所示：

【讨论】：