Question

我在Excel中创建了第一个无模式 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。代码执行此操作：如果A1已更改，请更改Label1上UserForm1的标题。表单必须已打开而不是模态（vbModeless）。

UserForm1.Show vbModeless

Answer 2

这适合我。

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

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

2 个答案: