Excel vba怎样设置按钮背景颜色

1、表单按钮－－

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

2、ActiveX控件

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

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

窗体字体颜色通过ForeColor属性设置，这里设置为红色Form1BackColor。窗体背景颜色通过BackColor属性设置，这里设置为绿色EndSub。

用来设置图像的前景颜色，也用来设置文档、表格、图像等的前景颜色。用法不同。

---