在用户表单中显示工作表数据

Question

很抱歉，如果以前发布过，找不到简单的指南/答案。我想使用UserForm来显示来自不同工作表的数据。我使用了以下代码：

Private Sub Label1_Click()

Label1.Caption = Sheets("Sheet1").Range("A1")

End Sub

使用此代码时，会弹出用户窗体，但最初不会显示该值。当我单击标签时，它会显示。

有人有这个问题的经验吗？我不希望用户先单击“标签”以显示数据，但我希望显示更多标签。

Answer 1

此方法仅在您单击Label时启动，因此将其命名为Label1_Click（）。

如果需要，可以使用类似方法：

Private Sub SetLabel1()
    Label1.Caption = Sheets("Sheet1").Range("A1").Value
End Sub

显示用户窗体：

Private Sub CommandButton1_Click()

YourUserForm.Show

End Sub

然后在UserFormName_Initialize（）子例程中调用SetLabel1：

Private Sub UserForm_Initialize()
    SetLabel1()
End Sub 

当用户窗体使用Show方法时，此子项将自动执行。