☰

两个电池范围之间的双向同步或动态泄漏

tag-icon • tag-icon microsoft-excel vba sync code
两个电池范围之间的双向同步或动态泄漏

以下是两个独立工作表和字段之间的动态链接或双向同步代码。但是，我想将其更改为执行一系列字段，例如 A4:A12 和 B7:B15。请帮忙。使用 For 循环更新了某个范围，但无法无错误地编辑多个单元格

Sheet1 = dateref 表上的字段

2 张纸的 VBA 代码。

在工作表 1 中：

Private Sub Worksheet_change(ByVal Target As Range)

If Not Intersect(Target, Range("A4")) Is Nothing Then

   If Target = Range("A4") Then

      Sheets("Sheet2").Range("B7").Value = Target.Value

   End If

End If

End Sub

在工作表 2 中：

Private Sub Worksheet_change(ByVal Target As Range)

If Not Intersect(Target, Range("B7")) Is Nothing Then

    If Target = Range("B7") Then

        If Sheets("Sheet1").Range("A4").Value <> Target.Value Then

      Sheets("Sheet1").Range("A4").Value = Target.Value

    End If

  End If

End If

End Sub

新代码，但同时编辑两个字段时会出现错误。

Private Sub Worksheet_change(ByVal Target As Range)

Rng = Array("B11", "B12")

Rng2 = Array("C13", "C14")

Sched = Sheets("Dateref").Range("A7")

For i = 0 To UBound(Rng) - LBound(Rng)

If Not Intersect(Target, Range(Rng(i))) Is Nothing Then

  If Target = Range(Rng(i)) Then

    If Sheets(Sched).Range(Rng2(i)).Value <> Target.Value Then

      Sheets(Sched).Range(Rng2(i)).Value = Target.Value

    End If

  End If

End If

Next i

End Sub

答案1

请尝试使用

If Not Intersect(Target, Range("A4：A12")) Is Nothing Then

&

Sheets("Sheet2").Range("B7:B15").Value = Target.Value

代替

If Not Intersect(Target, Range("A4")) Is Nothing Then

&

Sheets("Sheet2").Range("B7").Value = Target.Value

相关内容