激活按钮后执行复选标记答案

【问题标题】：Implementation of check marks after the Button has been activated激活按钮后执行复选标记
【发布时间】：2018-08-16 15:31:20
【问题描述】：

下面的代码是用于启动某些计算的按钮旁边的标签的代码。当我将此代码放入 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

【问题讨论】：

所以只是为了澄清这段代码用于在名为 Klicken 的按钮的单击事件上执行，现在您想将其移动到单独的宏中吗？您要将其移动到的新宏位于何处？

标签： excel vba button label byref

【解决方案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。如果不是，那么只需更改该名称即可。

【讨论】：

非常感谢您的快速回复。我的带有位于“Mirosoft Excel 对象”部分中的标签的初始代码可以找到。但是当我按下按钮时标签没有被激活。当我将您的代码放入模块部分（而不是 Microsoft Excel 对象）时，我收到一条有关“调用 prcSetLabel Me.Label1”的语法错误消息。目标是当我执行按钮的单击事件时，标签被激活并显示复选标记。