在Excel用户窗体中，如何更新标签的标题？

Question

我在Excel中创建了我的第一个无模式UserForm并在其上放置了一个ActiveX标签。如何设置标签的标题，以便它显示Sheet1.Range("A1")中的任何内容，并在单元格A1中的值更改时自行更新？

基本上，我希望标签总是被更新，Excel单元格中的第二项变化。谢谢！

Answer 1

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Intersect(Cells(1, 1), Target) Is Nothing Then 
     Exit Sub 
    End If 
    UserForm1.Label1.Caption = Sheet1.Range("A1").Value 
End Sub 

子Change被称为每次一个细胞的变化。代码执行此操作：如果更改了A1，请在UserForm1上更改标题Label1。表格必须已打开，不是模态（vbModeless）。

UserForm1.Show vbModeless 

Answer 2

This Worked me。

Sheets("Sheet").Shapes("TheNameOfTheLabel").TextFrame.Characters.Text = "Hello"