将单元格的内容用作文本,作为用户窗体中的标签

时间:2018-07-17 09:58:28

标签: excel excel-vba

我有以下Excel电子表格:

      A        
1    Time
2
3

我想用Cell A1中写的单词作为UserForm上标签的文本。因此,我尝试使用此VBA:

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

但是,此代码未将Cell A1中的内容用作标签的文本。
我必须在代码中进行哪些更改才能使其正常工作?

1 个答案:

答案 0 :(得分:0)

解决方案将Private Sub Label1_Click更改为Private Sub UserForm_Activate()

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