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

Question

我UserForm在Excel中创建了我的第一个无模式,并在其上放置了一个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每次单元格更改时都会调用sub .代码做到这一点:如果A1被更改,更改的标题Label1上UserForm1.表单必须已打开而不是模态(vbModeless).

UserForm1.Show vbModeless