VBAForm 从excel表的单元格中创建多个标签。

Question

谁能指导我如何解决下面提到的问题。

我有一个代码从这个网站只有如下。

Sub addLabel()
UserForm4.Show vbModeless
Dim theLabel As Object
Dim labelCounter As Long

For labelCounter = 1 To 3
    Set theLabel = UserForm4.Controls.Add("Forms.Label.1", Cells(i, 1) & labelCounter, True)
    With theLabel
        .Caption = "Test" & labelCounter
        .Left = 10
        .Width = 50
        .Top = 10 * labelCounter + 10
    End With

Next
End Sub

这个模块是在我的工作表模块

它工作得很完美，但是当我再一次打开表格时，它什么也没有显示。所以，当我按f5键时，表格加载了，但仍然是完全空白的.代码有什么问题？

Answer 1

没有代码 userForm4 你的代码是一个模块，当你打开模块的时候，你的代码是一个模块。Sub addLabel() 然后运行它，它将显示你想要的东西。UserForm_Click() 或任何你需要的形式事件上运行。