Условное форматирование для каждой строки

Я пытаюсь выделить максимальное значение в каждой строке данных, чтобы определить, в каком году он попадает. Есть ли простой способ применить его ко всей электронной таблице? Единственный способ, которым я могу это сделать прямо сейчас, – это использовать Painter для каждой отдельной строки …, которая не эффективна с 800 + строками данных.

Использование условного форматирования – верхние N элементов

Вот крошечный макрос – вам нужно скопировать его в модуль в VBA Project. Как только там, поместите курсор в макрос и нажмите F5 🙂

1) он работает для строк от 1 до 800 (измените его, если вам это нужно в другом месте) 2) он работает на Sheet1

Sub ManyConditions() Dim iRow As Integer For iRow = 1 To 800 With Sheet1 With .Range(.Cells(iRow, 1), .Cells(iRow, 10)).FormatConditions.AddTop10 .TopBottom = xlTop10Top .Rank = 1 .Percent = False .Interior.PatternColorIndex = xlAutomatic .Interior.Color = 13551615 .StopIfTrue = False End With End With Next End Sub 

Следующий код VBA мог бы сделать трюк (обновленная версия):

 Sub Mark_max_value_in_every_row() Dim rngArea As Range Set rngArea = ThisWorkbook.Sheets("Sheet1").UsedRange Dim rngRow As Range Dim iRow As Long For iRow = 2 To rngArea.Rows.Count Set rngRow = rngArea.Range(Cells(iRow, 1), Cells(iRow, rngArea.Columns.Count)) With rngRow.FormatConditions.AddTop10 .Rank = 1 .Interior.Color = 49407 End With Next End Sub 

Я предполагаю, что ваша первая строка таблицы является заголовком, поэтому вы видите, что iRow начинает отсчитываться от 2.

  • при изменении формата файла Excel в CSV он удаляет нулевое число в начале ячеек
  • Недопустимая ошибка подстроки (ошибка 9): .FormatConditions
  • Импорт текста из столбцов в Excel в определенные / назначенные текстовые поля в PowerPoint?
  • Прокрутите столбцы и удалите те, которые имеют только нули
  • Ошибка сброса кода VBA: ошибка времени выполнения 1004 Ошибка метода автозаполнения класса диапазона
  • Создание раскрывающегося списка в Excel
  • SUMIF в закрытой книге
  • VBA - заморозить панель в другом файле
  • Ярлык, дающий MAX, приводит к поиску индекса соответствия
  • Настроить строки для повторения сверху при печати - Open XML и Excel
  • Excel: текст столбца в Excel в excel
  • Interesting Posts

    получить выбранный цвет заливки с помощью openpyxl ячейки, используя условное форматирование

    Предложить способы разработки экрана пользовательского интерфейса для генерации XML

    ПК сбой при открытии EXCEL-файла в файле harmon.ie

    Таблица Google: сумма каждой строки, где выполняются два условия

    Как я могу создать конкретную ячейку в виде границы в excel с помощью java

    Экспорт в Excel с использованием угловых и MVC

    Как написать в выпадающем списке excel / combobox с помощью uft?

    Почему Range.Address () возвращает адрес первой ячейки при приковании?

    Документ Excel закрытXML, как поврежденный

    Пустой файл excel имеет огромный размер

    R записывает dataframe, чтобы преуспеть без прав администратора

    Как сделать одну форму в текстовом документе открытием нескольких других документов и заполнить идентификационные заголовки в слове / excel?

    удалите четное количество повторяющихся записей в excel

    Инициализация UserForm и загрузка переменных с помощью VBA в Excel

    Транспонирование большого списка адресов (10000) в столбцах, а затем в csv для загрузки в mysql

    Давайте будем гением компьютера.