VBA按钮点击变色

papi酱~

我要编辑一个界面，如何才能做到点击一下就变成红色。
谢谢！

ivccav

你这问题问得不清不楚。按钮有很多种，有表单控件按钮，有窗体控件按钮。发一个简单的窗体按钮给你试试

papi酱~

ivccav 发表于 2018-1-24 08:59
你这问题问得不清不楚。按钮有很多种，有表单控件按钮，有窗体控件按钮。发一个简单的窗体按钮给你试试

我是用在两台PC屏幕上面做演示用的。我需要的效果是用宏按钮编辑一个触摸屏界面。然后点击一个屏另外一个屏出现相应的动作。您如果能做，我愿意出一些报酬。（我用上位机，或者组态王也能做，但是客户要求用正版软件来实现，所以只能用excel做）

papi酱~

需要的效果如图，一共72按钮。还有就是两屏交互在么实现？

6688

sub command1_click()
command1.backcolor = vbred
end sub

papi酱~

6688 发表于 2018-1-24 17:26
sub command1_click()
command1.backcolor = vbred
end sub

运行错误424

6688

Private Sub CommandButton1_Click()
    CommandButton1.BackColor = vbRed
End Sub

Kk71888771

点击变色，
再点击，再变色，如何实现？多谢

jjamxin

micch

先做按钮，比如控件做，然后在按钮的click事件中写代码。预设两个颜色，先判断当前是什么颜色，然后切换为另一个颜色。需要注意的就是，如果需要不同按钮之间互斥颜色，那要对上一个按钮先做恢复颜色