☰

更新

tag-icon • tag-icon microsoft-excel
更新

我在不同的工作表上有 2 个单元格包含相同的选项列表值。我希望这些单元格互为镜像，这样每当我在工作表 1 或工作表 2 中选择新值时，另一张工作表上的值都会更新以匹配新选择的值。这可能吗？

更新

  • 工作表 1：

    • 工作表名称：“实时预测工具”
    • 包含选择列表的单元格：C3:D3（已合并）
    • 范围内的选择列表值：='SF MRF'!H5:Y5

  • 工作表 2：

    • 工作表名称：'AH'
    • 包含选择列表的单元格：C3:D3（已合并）
    • 范围内的选择列表值：='SF MRF'!H5:Y5

单元格 C3:D3 需要更新以显示在另一张表上已更改的值。

答案1

在里面啊代码区域输入以下事件宏：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim r1 As Range, r2 As Range
    Set r1 = Range("C3")
    Set r2 = Sheets("Live Forecast Tool").Range("C3")
    If Intersect(Target, r1) Is Nothing Then Exit Sub
    Application.EnableEvents = False
        r2.Value = r1.Value
    Application.EnableEvents = True
End Sub

在里面实时预测工具代码区域输入以下事件宏：

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim r1 As Range, r2 As Range
    Set r1 = Range("C3")
    Set r2 = Sheets("AH").Range("C3")
    If Intersect(Target, r1) Is Nothing Then Exit Sub
    Application.EnableEvents = False
        r2.Value = r1.Value
    Application.EnableEvents = True
End Sub

相关内容