激活按钮后复选标记的实现

Question

下面的代码是用于启动某些计算的按钮旁边的标签的代码。当我将此代码放入 Tabelmodul 时，它工作正常（当我通过 F8 键测试它时）。但是，我将需要此代码用于宏模块中的标签，以便在按下按钮时标签开始。

问题是当我将代码放入宏模块时，我不断收到错误消息 "Byref argument type mismatch"。这意味着有些东西没有正确定义。

表格模块中的代码：

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

激活按钮后复选标记的实现

Implementation of check marks after the Button has been activated

excel

vba

label

button

byref