Добрый день!
Буду благодарен за помощь.
Заранее спасибо.
Цель сделать так чтобы к определённому столбцу всегда применялось условное форматирование.
Всегда, то есть при любом действии в excel.
Вот, что удалось наваять:
Код
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Range("B2:B500").Select
Selection.FormatConditions.AddUniqueValues
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
Selection.FormatConditions(1).DupeUnique = xlDuplicate
With Selection.FormatConditions(1).Font
.Color = -16383844
.TintAndShade = 0
End With
With Selection.FormatConditions(1).Interior
.PatternColorIndex = xlAutomatic
.Color = 13551615
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
End Sub
То, что мне надо скрипт выполняет, кроме одного момента: при каждом действии он выделяет диапазон.
Как бы мне в конце выполнения скрипта убирать это выделение диапазона?
Сообщение отредактировал Macar_stepanich - 20.4.2023, 23:08