如何实现Label1随Sheet1中A1单元格内容自动同步更新？

要让Label1随Sheet1中A1（或任意内容）变更自动同步，无需点击按钮，直接通过Excel VBA的Worksheet_Change事件即可实现，以下分两种场景说明：

场景1：Label1是Sheet1上的控件 #

1. 按Alt + F11打开VBA编辑器，在左侧工程资源管理器中双击Sheet1打开代码窗口。
2. 粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 当Sheet1任意单元格内容变更时，自动更新Label1的显示内容为A1的值
    Me.Label1.Caption = Me.Range("A1").Value
End Sub

如果只需要A1单元格变更时才触发更新，可以修改为：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 仅监测A1单元格的变更
    If Not Intersect(Target, Me.Range("A1")) Is Nothing Then
        Me.Label1.Caption = Me.Range("A1").Value
    End If
End Sub

场景2：Label1是用户窗体（UserForm）中的控件 #

如果Label1在用户窗体（比如UserForm1）内，需要两步设置：

1. 在Sheet1的代码窗口添加变更触发代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 检查目标窗体是否已加载，避免报错
    If UserForms.Count > 0 Then
        For Each frm In UserForms
            If frm.Name = "UserForm1" Then
                frm.Label1.Caption = Me.Range("A1").Value
                Exit For
            End If
        Next frm
    End If
End Sub

2. 为了让窗体打开时就显示A1的初始值，在UserForm1的代码窗口添加初始化事件：

Private Sub UserForm_Initialize()
    Me.Label1.Caption = Sheet1.Range("A1").Value
End Sub

注意事项 #

• 文件需保存为**启用宏的工作簿（.xlsm）**格式，打开时需启用宏才能生效。
• 若修改代码后未生效，可按Ctrl + G打开立即窗口，输入Application.EnableEvents = True回车恢复事件触发。

内容的提问来源于stack exchange，提问作者Lien0