Макрос на изменение правил условного выделения

@plyushka2304 · Регистрация: 07.12.2016

Author24 — интернет-сервис помощи студентам

Ребят, сломал голову
Прикрепил пример для полного понимания.
Нужен макрос, который брал бы значения из ячеек и изменял бы правила выделения в таблице по фиксированному диапазону...
Например
1 столбец таблицы:
1
2
3
4
5
6
___
Сбоку должно быть поле, где можно написать то, что мы ищем, например число "6" и погрешность, единую для всех поисков(всего 4 значения искать), например мы задаем: искать 6 и 2 с погрешностью один. По выполнению макроса, должны выделяться цветом(правилом условного форматирования) ячейки 1,2,3,5 и 6.
Надеюсь, внятно обьяснил.
Есть мысли?хелп!

@plyushka2304 · 01.02.2017, 11:24 **[ТС]**

Вобще думаю, что можно прикрутить сюда функцию ВПР, но как тогда в ее рамках реализовать погрешность?...

@KoGG · 01.02.2017, 11:42

Visual Basic

Sub УсловноеФорматирование()
   Dim i%, Min$, Max$
   For i = 1 To 2
        Min = "=" & format((Cells(20 + i, "L") + [M21]))
        Max = "=" & format(Cells(20 + i, "L") - [M21])
        Range("A15:A59").FormatConditions.Add(Type:=xlCellValue, Operator:=xlBetween, Formula1:=Min, Formula2:=Max).Interior.color = 13551615
   Next
End Sub

@plyushka2304 0 / 0 / 0 Регистрация: 07.12.2016 Сообщений: 14
	01.02.2017, 11:24 [ТС]	2
	Вобще думаю, что можно прикрутить сюда функцию ВПР, но как тогда в ее рамках реализовать погрешность?... 0

	01.02.2017, 11:42