激活按钮后执行复选标记

Question

下面的代码是开始某些计算的按钮旁边的标签的代码。当我将此代码放到Tabelmodul中时，它就可以正常工作（当我通过F8键对其进行测试时）。但是，我将需要在宏模块中为标签使用此代码，以便在按下按钮时开始使用Label。

问题是当我将代码放入宏模块时，我不断收到错误消息“ Byref参数类型不匹配”。这意味着某些东西定义不正确。

表格模块中的代码：

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

Answer 1

如果宏位于我认为的位置，则应该可以使用以下命令进行调用：

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。如果没有，则只需更改该名称。