Как обновить формулы в количестве ячеек на основе номера ссылки из соседних ячеек - PullRequest
0 голосов
/ 02 января 2019

У меня есть файл, отображающий места продажи на физическом этаже. Эти ячейки сформулированы для отображения различных индексов, возвращая значения из другого листа; рядом с этими местоположениями находится номер позиции в диапазоне от 1 до 250, который может находиться слева, выше, справа или ниже местоположения. Я ищу наиболее оптимизированный способ обновления формул в ячейках местоположений на основе номера позиции, заполненной в соседней ячейке, поэтому, например, если позиция изменяется с 2 на 3 при запуске макроса, формула местоположения должна измениться с = TOTALS! $ V $ 11 to = TOTALS! $ V $ 12, где $ V $ 12 находится в позиции 3 + 9 строк ..

Я могу предоставить образец файла

Tried 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 to = TOTALS! $ V $ 12, где $ V $ 12 находится в позиции 3 + 9 строк ..

enter image description here

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...