如何实现VBA用户窗体TextBox2自动同步单元格C2的值？

我来帮你搞定这个同步问题！你的核心需求是让TextBox2自动跟着Sheet2的C2值走，而现有代码的问题出在触发时机和写法上，咱们一步步调整：

问题分析 #

你当前的TextBox2_Change()事件逻辑完全搞反了——这个事件是当TextBox2自身内容被修改时才会触发，而你需要的是在Sheet2的A2（也就是TextBox1输入内容后）更新时，同步刷新TextBox2的值。另外代码里的TextBox2.txtEcpNum.Text是错误写法，直接用TextBox2.Value就可以，而且TextBox2.Show也完全没必要（窗体已经显示的情况下）。

解决方案1：在TextBox1输入后直接同步 #

修改你的TextBox1_Change()事件，在更新完A2后，直接强制计算工作表并同步C2的值到TextBox2：

Private Sub TextBox1_Change()
    ' 先指定工作表，避免指向错误的活动表
    Dim targetSheet As Worksheet
    Set targetSheet = ThisWorkbook.Worksheets("Sheet2")
    
    ' 更新Sheet2的A2单元格
    targetSheet.Range("A2").Value = TextBox1.Value
    
    ' 强制工作表计算，确保C2的公式结果及时更新
    targetSheet.Calculate
    
    ' 将C2的值转换为字符串后赋值给TextBox2
    TextBox2.Value = CStr(targetSheet.Range("C2").Value)
End Sub

解决方案2：额外支持手动修改C2时同步（可选） #

如果你希望手动修改Sheet2的C2（或者A2）时，TextBox2也能自动更新，可以在Sheet2的代码模块里添加工作表变更事件：

1. 右键点击Sheet2标签 → 查看代码
2. 粘贴以下代码：

Private Sub Worksheet_Change(ByVal Target As Range)
    ' 检查变化的单元格是否是A2或C2
    If Not Intersect(Target, Me.Range("A2:C2")) Is Nothing Then
        ' 这里的UserForm1要改成你实际的窗体名称
        UserForm1.TextBox2.Value = CStr(Me.Range("C2").Value)
    End If
End Sub

关键注意事项 #

• 一定要限定工作表对象：不要直接写Range("C2")，这种写法会指向当前活动工作表，必须用targetSheet.Range("C2")或者Me.Range("C2")明确指定Sheet2
• 强制计算：VBA修改单元格后，Excel可能不会立即更新公式结果，所以targetSheet.Calculate能确保C2的最新值被同步
• 窗体名称要匹配：如果你的窗体不是默认的UserForm1，记得把代码里的窗体名称改成实际名称

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