按钮激活后执行复选标记

Posted 2021-04-08

下面的代码是按钮旁边的标签代码，用于开始某些计算。当我将这些代码放入Tabelmodul时，它工作得很好（当我通过F8键测试它时）。但是，我将需要这个代码用于宏模块中的标签，这样当按下按钮时，Label会获得startet。

问题是当我将代码放入macromodul时我继续收到错误消息“Byref参数类型不匹配”。这意味着有些东西没有正确定义。

Tablemodule中的代码：

Private Sub Button_Klicken()
Call prcSetLabel(probjLabel:=Label1)
End Sub

Private Sub prcSetLabel(ByRef probjLabel As MSForms.Label)
With probjLabel
.Caption = "P"
End With
End Sub

答案

如果宏是我认为它们的位置，你应该能够使用这个来进行调用：

Private Sub Button_Klicken()
Call prcSetLabel Me.Label1
End Sub

Private Sub prcSetLabel(ByRef probjLabel As MSForms.Label)
With probjLabel
.Caption = "P"
End With
End Sub

这假设您的标签名称是Label1。如果没有，那么只需更改该名称。