首页 > 解决方案 > 一键单击选项按钮后VBA Excel按钮无效(ActiveX控件)

问题描述

我有 2 个选项按钮。问题是,当我单击其中一个时,再次单击同一选项按钮时无法执行该过程。谁能告诉我该怎么做?

在此处输入图像描述

我在这里找到了一些线程,但没有解决方案:

https://social.msdn.microsoft.com/Forums/en-US/f942f0e2-3daf-4a06-a7c9-3904a88e49bc/macro-called-twice-on-single-button-click

我也可以做 DoubleClick

 Private Sub SchematicImage2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)

但这并不能解决我的问题,因为我希望在单击后获得结果,并且能够再次单击具有代码执行的相同按钮。单击后该按钮似乎不再处于活动状态。我不想要那个。

我怎样才能做到这一点?

标签: excelvba

解决方案


试试这个DblClick活动,请:

Private Sub SchematicImage2_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
    MsgBox IIf(Me.SchematicImage2.value = True, "True", "False")
End Sub

推荐阅读