![更新](https://linux22.com/image/1429353/%E6%9B%B4%E6%96%B0.png)
我在不同的工作表上有 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