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

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

基本上，我希望Userform's标签总是在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单元格时都会调用子Change 。 代码这样做：如果A1已更改，请更改UserForm1上Label1的标题。 表单必须已经打开，而不是模态（ vbModeless ）。

 UserForm1.Show vbModeless 

Answer 2

这为我工作。

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