excel - 在 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