excel - 如何根据相邻单元格的数字引用更新多个单元格中的公式

Question

我有一个文件显示实体楼层的销售地点。这些单元格被制定为通过从另一张表返回值来显示各种索引；与这些位置相邻的是一个位置编号，范围从 1 到 250，可以位于该位置的左侧、上方、右侧或下方。我正在寻找最优化的方法来根据填充到相邻单元格中的位置编号更新位置单元格中的公式，例如，如果在运行宏时位置从 2 更改为 3，则位置公式应该从 =TOTALS!$ 更改V$11 到 =TOTALS!$V$12 其中 $V$12 来自位置 3+9 行..

我可以提供样本文件

尝试了 Interior.ColorIndex、R1C1 公式等。

从识别颜色开始没有到达公式部分。

Sub Test1()

'white is -4142
'pink color index 38
'green  color index 10
'red color index 3
'turcoise color index 8
'yellow color index 6
'blue color index 5
'purple color index 13

Selection.Offset(0, -1).Select

Range(Left(Selection.Address, InStr(Selection.Address, ":") - 1)).Interior.ColorIndex


For Each possValue In Selection

    If Selection.Interior.ColorIndex = 5 Or Selection.Interior.ColorIndex = 38 Then
        If Left(Selection.Offset(0, -1).Address, InStr(Selection.Offset(0, -1).Address, ":") - 1).Interior.ColorIndex = -4142 And Left(Selection.Offset(0, -1).Address, InStr(Selection.Offset(0, -1).Address, ":") - 1).HasFormula = False Then

            MsgBox Left(Selection.Offset(0, -1).Address, InStr(Selection.Offset(0, -1).Address, ":") - 1).Value

        End If

    End If

Next possValue

End Sub

我有一个文件显示实体楼层的销售地点。这些单元格被制定为通过从另一张表返回值来显示各种索引；与这些位置相邻的是一个位置编号，范围从 1 到 250，可以位于该位置的左侧、上方、右侧或下方。我正在寻找最优化的方法来根据填充到相邻单元格中的位置编号更新位置单元格中的公式，例如，如果在运行宏时位置从 2 更改为 3，则位置公式应该从 =TOTALS!$ 更改V$11 到 =TOTALS!$V$12 其中 $V$12 来自位置 3+9 行..

标签： excelvba