Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 03.11.2021, 19:36   #1
sashgera
Пользователь
 
Регистрация: 14.01.2013
Сообщений: 21
По умолчанию Подсветка строки и столбца через условное форматирование

Здравствуйте
Сделал подсветку строки и столбца через условное форматирование
Код:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim WorkRange As Range
    'адрес рабочего диапазона подсветки
    Set WorkRange = Range("A4:M35")
    'если активная ячейка в рабочем диапазоне и нет УФ: добавить УФ
    If WorkRange.Address = Union(WorkRange, ActiveCell).Address And ActiveCell.FormatConditions.Count = 0 Then
        i = ActiveCell.Address(0, 0)
        MyFormula = "=ИЛИ(И(ЯЧЕЙКА(""строка"")=СТРОКА(" & i & ");ЯЧЕЙКА(""столбец"")<>СТОЛБЕЦ(" & i & "));И(ЯЧЕЙКА(""строка"")<>СТРОКА(" & i & ");ЯЧЕЙКА(""столбец"")=СТОЛБЕЦ(" & i & ")))"
        WorkRange.FormatConditions.Add Type:=xlExpression, Formula1:=MyFormula
        WorkRange.FormatConditions(WorkRange.FormatConditions.Count).SetFirstPriority
        With WorkRange.FormatConditions(1).Interior
            .PatternColorIndex = xlAutomatic
            .Color = 5296274
            .TintAndShade = 0
        End With
        WorkRange.FormatConditions(1).StopIfTrue = False
    End If
    ActiveCell.Calculate
End Sub
Пожалуйста, помогите изменить формулу:
Код:
"=ИЛИ(И(ЯЧЕЙКА(""строка"")=СТРОКА(" & i & ");ЯЧЕЙКА(""столбец"")<>СТОЛБЕЦ(" & i & "));И(ЯЧЕЙКА(""строка"")<>СТРОКА(" & i & ");ЯЧЕЙКА(""столбец"")=СТОЛБЕЦ(" & i & ")))"
- если активная ячейка вне рабочего диапазона - убрать цвет заливки подсветки
- при выделении более одной ячейки - убрать цвет заливки подсветки
- выделенная строка (клик по ее номеру) - подсвечена полностью в пределах рабочего диапазона
- подсвечивать не весь столбец, а только его четвертую ячейку сверху

.FormatConditions.Delete в условии не подходит, так как не будет возможности отмены действий на листе (Ctrl+Z)
Вложения
Тип файла: rar Подсветка_.rar (18.1 Кб, 2 просмотров)
sashgera вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Почему при добавлении нового столбца Условное Форматирование рвется? RISagitov Microsoft Office Excel 2 27.11.2015 16:55
как сделать условное форматирование строки по нескольким условиям в выбранном диапазоне ? oleg4224 Microsoft Office Excel 2 08.04.2014 01:11
Условное форматирование ZSV Microsoft Office Excel 4 15.11.2010 12:00
условное форматирование строки Bezdar Microsoft Office Excel 3 01.09.2010 15:56
Условное форматирование eda Microsoft Office Excel 2 27.07.2009 13:03