Question

我有一个被视为一个大组的系统列表。它们各自具有“评估”状态，但我想以某种方式将组中的所有这些系统链接在一起，这样如果我更改其中任何一个的评估状态，它将更新到组中的所有人。有没有办法做到这一点，除了指定一个作为“主”系统并让所有其他人链接到那个？

Answer 1

如果我正确地读你，你想要的是

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

成为

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

如果您在任何“评估”单元格上键入“foo”。不使用其他单元格的最简单方法是使用worksheet_change（）事件。阅读所有相关内容here。

这里有一些让你前进的东西。打开VBA编辑器（ALT + F11），然后双击工作表名称。在结果代码窗格中输入您的worksheet_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到其下方最后一个连续单元格的更改。

统一链接单元格内容

1 个答案: