excel - 激活按钮后执行复选标记

Question

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

问题是当我将代码放入宏模块时，我不断收到错误消息“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

标签： excelvbabuttonlabelbyref

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