VBA改写两种方法 多列内容者添加背景色

Sub 四列皆相同者添加背景色()

  Dim rng As Range, i As Integer, t$

  With CreateObject("scripting.dictionary")

    For Item = 2 To Cells(Rows.Count, 1).End(xlUp).Row

      t = Cells(Item, 1).Value & "@" & Cells(Item, 2).Value & "@" & Cells(Item, 4).Value & "@" & Cells(Item, 5).Value

      If .exists(t) Then

        If rng Is Nothing Then

          Set rng = Cells(Item, 1).Resize(1, 5)

        Else

          Set rng = Union(rng, Cells(Item, 1).Resize(1, 5))

        End If

      Else

        .Add t, ""

      End If

    Next

  End With

  If Not rng Is Nothing Then rng.Interior.ColorIndex = 3

End Sub

1、表单按钮－－

右键－－设置控件格式中改变文字颜色（不能改变背景颜色）

2、ActiveX控件

右键－－属性－－Forecolor(设置文字颜色)---backcolor(设置背景颜色)

材料/工具：Excel2010

1、打开Excel表格，按下【Alt+F11】组合快捷键打开VBA编辑器，也可以点击菜单栏上面的【开发工具】，【Visual Basic】打开VBA编辑器。

2、点击VBA编辑器菜单栏上面的【插入】、【模块】，也可以在编辑器上面使用【Alt+I+M】组合快捷键插入“模块”。

3、在VBA编辑器代码框里面输入以下代码：

4、在Excel表格上面的【开始】、【填充颜色】、【其他颜色】，在”颜色“对话框的【自定义】里面就可以找到，改变数值就可以看到新增的颜色。

5、在VBA编辑器的工具栏里面点击“运行”图标即可运行程序，条件满足的行将会自动填充所设置的颜色。

6、VBA自动填充满足条件的行的颜色完成。

---