首页 > 解决方案 > 根据下拉列表选择更改双向单元格的目标

问题描述

这是我正在使用的两张纸:

表 1 表 2

在表 1 中,B1 是表 2 A 列中所有三个风险的下拉列表。同样在表 1 中,B2 与表 2 中的 B2 是双向的。双向单元格的代码如下,首先是表1,然后是工作表 2。

Private Sub Worksheet_change(ByVal Target As Range)

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

   If Target = Range("B3") Then

      Sheets("Risk Registry").Range("B2").Value = Target.Value

   End If

End If

End Sub
--
Private Sub Worksheet_change(ByVal Target As Range)

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

  If Target = Range("B2") Then

    If Sheets("Risk Analysis").Range("B3").Value <> Target.Value Then

      Sheets("Risk Analysis").Range("B3").Value = Target.Value

    End If

  End If

End If

End Sub

--

我正在尝试修改 VBA 代码,以便对于通过表 1 的 B1 中的下拉列表选择的任何风险,表 1 的 B3 中的双向单元格将仅映射到表 2 的 B 列中的单元格表 2 的 A 列中的值是否与表 1 中的 B1 匹配(即表 1、B1 = 表 2、A2 等)。只会有一场比赛。每次在下拉列表中选择不同的风险时,双向单元格的映射应更改为表 2 B 列中的相应单元格。我希望这是有道理的。

标签: excelvba

解决方案


推荐阅读