Vba 统一链接单元格内容

我有一个大组中的系统列表，它们被视为一个。每个系统都有一个“已评估”状态，但我希望以某种方式将组中的所有系统链接在一起，这样，如果我更改其中任何一个系统的评估状态，它将更新到组中的所有系统。除了将一个系统指定为“主”系统并将所有其他系统链接到该系统之外，还有其他方法可以做到这一点吗？

如果我没看错，您想要的是

  A      B  
------  ------
sys1    Assessed
sys2    Assessed
sys3    Assessed

成为

  A      B  
------  ------
sys1    foo
sys2    foo
sys3    foo

如果在任何“已评估”单元格上键入“foo”。在不使用其他单元格的情况下执行此操作的最简单方法是使用工作表_change（）事件。阅读所有关于它的信息

这里有点小东西可以让你走。打开VBA编辑器（ALT+F11）并双击工作表名称。在生成的代码窗格中，放入工作表_change（）代码。可能是这样的：

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Cells.Count > 1 Or IsEmpty(Target) Then Exit Sub

    Dim startCell As Range
    Set startCell = Range("B1")

    Dim r As Range
    Set r = Range(startCell, startCell.End(xlDown).Address)

    If Not Intersect(Target, r) Is Nothing Then
        r = Target
    End If

End Sub

---

这将查找从B1到其下最后一个连续单元格的更改。

我想您必须在这里给我们一个提示。你在说什么？什么样的“链接”？什么技术？Macintosh、PC或iPhone？它是Excel格式的。我希望所有单元格都显示相同的值，但能够更改其中任何单元格中的值，并让所有其他单元格反映该值。可以用“父”单元格来完成，但我宁愿避免这样做。