5

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

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

4

2 回答 2

5 
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每次单元格更改时都会调用sub 。代码执行此操作：如果A1已更改，请更改Label1on的标题UserForm1。表单必须已打开而不是模态 ( vbModeless)。

UserForm1.Show vbModeless
于 2011-07-28T12:18:37.970 回答
1

这对我有用。

Sheets("Sheet").Shapes("TheNameOfTheLabel").TextFrame.Characters.Text = "Hello"
于 2015-12-15T22:52:12.857 回答