如何将包含在代码模块中的VBA代码放在工作表模块中

时间:2018-09-05 08:02:55

标签: vba excel-vba module label caption

我在“代码模块”中有一个运行请求的按钮。按钮旁边是一个包含标签的标签,按钮完成运行后会立即显示一个复选标记。

按钮代码在代码模块中。带有复选标记的标签的代码包含在工作簿和工作表模块中。

现在,问题是,当我按按钮时,它运行得很好,并按预期运行,但是带有复选标记的标签未激活。原因可能是因为我没有在代码模块中包含/引用工作簿/工作表模块。希望能有所帮助。

enter image description here

工作簿模块中的代码:

Option Explicit
Private Sub Workbook_Open()
Call Tabelle1.prcResetLabels
End Sub

工作表模块中的代码:

Option Explicit

Private Sub Schaltfläche2_Klicken()
Call prcSetLabel(probjLabel:=Label1)
End Sub

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

Friend Sub prcResetLabels()
Dim objOLEObject As OLEObject
For Each objOLEObject In OLEObjects
   With objOLEObject
        If .progID = "Forms.Label.1" Then _
           .Object.Caption = vbNullString
   End With
Next
End Sub

代码调制中的代码:

Public Sub Schaltfläche2_Klicken()
With Sheets("Table1")
  .Range("A1").End(xlUp).Offset(1, 0).Value = Environ("USERNAME")
End With
End Sub

1 个答案:

答案 0 :(得分:0)

答案很简单:

 Sub Schaltfläche2_Klicken()
 Call prcResetLabels
 With Sheets("Table1")
 .Range("A1").End(xlUp).Offset(1, 0).Value = Environ("USERNAME")
 End With
 Call prcSetLabel(probjLabel:=Table1.Label1)
 End Sub

 Private Sub prcSetLabel(ByVal probjLabel As Object)
 With probjLabel
 .Object.Caption = "P"
 End With
 End Sub
 Public Sub prcResetLabels()
 Dim objOLEObject As OLEObject

 For Each objOLEObject In Table1.OLEObjects
 With objOLEObject
     If .progID = "Forms.Label.1" Then _
        .Object.Caption = vbNullString
 End With
 Next
 End Sub