如何将代码模块中包含的VBA代码放到sheet模块中

Question

我在 "code module" 中有一个运行请求的按钮。按钮旁边是一个包含的标签，该标签在按钮完成后立即显示复选标记运行。

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

现在，问题是当我按下按钮时，它运行得非常好，并且按照预期的方式运行，但是带有复选标记的标签没有被激活。原因可能是因为我的代码模块中没有 included/referenced workbook/sheet 模块。希望能得到一点帮助。

工作簿模块中的代码：

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

Sheet 模块中的代码：

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

Codemodul 中的代码：

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

Answer 1

答案很简单：

 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

如何将代码模块中包含的VBA代码放到sheet模块中

How to put the VBA code contained in code module in sheet module

vba

excel

module

label

caption