Question

我对Excel一点都不熟悉。尽管我想要一个像我这样的初学者很难实现的功能。

我想要一个按钮，每次点击都会改变颜色。

我将详细解释：

按钮的标准颜色为红色bg。当我单击按钮时，背景变为黄色。当我再次单击按钮时，背景色会从黄色变为绿色。然后在下一次单击时再次变为红色。

我已经创建了一个CommandButton并达到了这个目的，但是在这里我似乎并没有确切地知道该怎么做。

Private Sub CommandButton1_Click()
CommandButton1.BackColor = 5243047
CommandButton1.BackColor = 14150650
End Sub

我尝试了不同的尝试，但是我的想法都没有奏效。

它只是变成第3行所说的颜色。点击没有任何变化。

Answer 1

也许是这样的：

Private Sub CommandButton1_Click()
    With CommandButton1
        Select Case .BackColor
            Case vbRed
                .BackColor = vbYellow
            Case vbYellow
                .BackColor = vbGreen
            Case vbGreen
                .BackColor = vbRed
            Case Else ' perhaps not needed, sets default to red
                .BackColor = vbRed
        End Select
    End With
End Sub

CommandButton：单击时更改按钮bgcolor

1 个答案: