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

【问题标题】：In an Excel UserForm, how do I update a label's caption?在 Excel 用户窗体中，如何更新标签的标题？
【发布时间】：2011-10-15 02:00:18
【问题描述】：

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

基本上，我希望 Userform's 标签始终在 Excel 单元格中的任何内容发生更改时更新。谢谢！

【问题讨论】：

标签： excel vba label caption userform

【解决方案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

【讨论】：

您好 cularis，感谢您惊人的快速响应！这对我有用。

【解决方案2】：

这对我有用。

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

【讨论】：