Макрос для условного форматирования ячеек с числами больше заданного

Скриншот результата применения макросом условного форматирования к диапазону ячеек

Макрос запрашивает у пользователя число,
и назначает правило условного форматирования для ячеек текущего столбца

 

В виде надстройки этот макрос можно найти здесь

Sub RedNumbers()
    ' макрос запрашивает у пользователя число,
    ' после чего в текущем столбце красит все ячейки с числами,
    ' большими чем введенное, в красный цвет
    
    On Error Resume Next: col = ActiveCell.Column
    If Err Then Exit Sub    ' выход, если не открыта ни одна книга

    Dim ra As Range: Set ra = Intersect(Columns(col), ActiveSheet.UsedRange)
    If ra Is Nothing Then Exit Sub    ' выход, если выделена ячейка в пустом столбце

    msg = "Введите число для сравнения с числами текущего столбца." & vbNewLine & _
          "Все числа в столбце " & col & ", которые больше введенного числа, будут выделены красным"
 
    ' запрашиваем число
    n = Application.InputBox(msg, "Выделение чисел цветом", Val(ActiveCell), , , , , 1)
 
    ' удаляем условное форматирвоание
    ra.FormatConditions.Delete
 
    If TypeName(n) = "Boolean" Then    ' отказ от ввода числа
        ' ничего не делаем

    Else    ' введено число

        ' назначаем условное форматирование - красим в красный цвет все ячейки
        ' со значением больше N
        ra.FormatConditions.Add(xlCellValue, xlGreater, n).Interior.Color = vbRed
 
    End If
End Sub

 

Для удаления условного форматирования для всех ячеек текущего листа Excel
можно использовать такой макрос:

Sub ClearCF()
    ' макрос удаляет условное форматирование на всём листе
    On Error Resume Next
    Cells.FormatConditions.Delete
End Sub

Комментарии

Настройки просмотра комментариев

Выберите нужный метод показа комментариев и нажмите "Сохранить установки".

Извините... уже сам решил...

Спасибо большое за макрос... Но, поскольку xlGreater заменил на xlLess, если не затруднит, подскажите пожалуйста код чтобы не окрашивались пустые (не содержащие никаких значений) строки?
С уважением... :)

Спасибо большое. Немного оптимизировала данный макрос и он спас меня от нудной работы.

Отправить комментарий

Содержание этого поля является приватным и не предназначено к показу.
CAPTCHA
Подтвердите, пожалуйста, что вы - человек:
  ____    _____                             _   _ 
| _ \ |___ / __ __ _ __ __ __ | | | |
| | | | |_ \ \ \ / / | '__| \ \ /\ / / | |_| |
| |_| | ___) | \ V / | | \ V V / | _ |
|____/ |____/ \_/ |_| \_/\_/ |_| |_|
Введите код, изображенный в стиле ASCII-арт.

Не получается применить макрос? Не удаётся изменить код под свои нужды?

Оформите заказ у нас на сайте, не забыв прикрепить примеры файлов, и описать, что и как должно работать.