Есть ли способ сравнить значения ячеек, а затем покрасить ячейки на основе значения - PullRequest
0 голосов
/ 08 июля 2019

Я пытаюсь сравнить два столбца данных (столбец G и столбец N) - оба находятся на одном листе.

Я пытаюсь заставить мой код сделать следующее:

Compare the value of N4 with G4.
If N4 is < G4, color red, 
If N4 = G4, color yellow,
If N4 > G4, color green. 
Repeat this for all active cells in those columns. 

Прошло много времени с тех пор, как я использовал Макросы, и я не могу понять, как собрать все это вместе. Код ниже, где я нахожусь, но это только окрашивает ячейку в столбце N, если она равна по значению "7". Вот с чем я борюсь - как мне изменить цвет, сравнивая его со столбцом G? Если кто-то может помочь собрать это воедино, это будет высоко ценится!

Я пробовал условное форматирование, но я хочу, чтобы область добавляла больше цветовых опций и потенциально редактировала, если значение N находится в пределах% от G.

Sub ColourCode()

lRow = Range("N" & Rows.Count).End(xlUp).Row
Set MR = Range("N4:N" & lRow)
For Each cell In MR
If cell.Value = 7 Then cell.Interior.ColorIndex = 10
Next
End Sub

Формула отлично работает для раскраски на основе фиксированного значения - просто не будет сравниваться с колонкой G

1 Ответ

0 голосов
/ 08 июля 2019

Если cell.Value - это ячейка в столбце N Range("N4:N" & lRow), то вам необходимо сместить -7 столбцов, чтобы перейти от cell к столбцу G.

If cell.Value = cell.Offset(ColumnOffset:=-7).Value Then
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...