在VBA中修改按钮的属性

发布网友发布时间：2022-05-08 03:51

共3个回答

热心网友时间：2023-11-25 05:18

可以换种方式来做，如初始时将按钮背景色设置成绿色，执行时判定一下颜色条件，符合的执行，执行完后改成其他颜色，如灰色。如不是绿色则跳出，相当于不可用了。
Private Sub 矩形1_Click()
If 矩形1.BackColor = vbGreen Then
'你要运行的语句
矩形1.BackColor = RGB(192, 192, 192)
Else
Exit Sub
End If
End Sub追问按钮属性设置成不可用，是为了防止语句重复执行，而且我按照你的思路我编辑了程序，运行后错误提示，运行时错误424，要求对象。

追答按钮的name是什么？你改过了吗，还是原来默认的？我这里是按你提问中的名称写的

热心网友时间：2023-11-25 05:18

窗体里的按钮可以，工作表里的按钮没试过，好像不行。

热心网友时间：2023-11-25 05:19

sub 矩形1_click()
语句
矩形1.Enabled = False
end sub