☰

Если я введу буквы TL в ячейку A8, есть ли способ сделать эту ячейку и несколько других в этой строке синими?

tag-icon • tag-icon microsoft-excel microsoft-excel-2013
Если я введу буквы TL в ячейку A8, есть ли способ сделать эту ячейку и несколько других в этой строке синими?

Если я ввожу буквы TL в ячейку A8, есть ли способ сделать эту ячейку и несколько других в этой строке синими? Есть ли способ иметь несколько вариантов букв/цветов?

У меня есть 8 двухбуквенных комбинаций, которые соответствуют 8 цветам. Например: TS=светло-голубой TC=средне-синий TL=темно-синий DD=черный RS=светло-зеленый RC=средне-зеленый RL=темно-зеленый LT=коричневый Я хотел бы ввести одну из этих этих буквенных комбинаций в M8 и сделать так, чтобы столбцы B,C,E,F,K-AM в строке 8 окрасились в соответствующий цвет. Есть ли способ сделать это?

решение1

Если я ввожу буквы TL в ячейкуА8... введите одну из этих комбинаций букв вМ8и есть столбцы B,C,E,F,K-AM в строке 8 ...

Ваш рассказ сбивает с толку. Этот код для M8.

Измените имя рабочего листа и параметры RGB для нужных вам цветов, а затем запустите этот код.

Option Explicit

Sub addCFRs()

    Dim i As Long, rng As Range, arr1 As Variant, arr2 As Variant

    arr1 = Array("TS", "TC", "TL", "DD", "RS", "RC", "RL", "LT")
    arr2 = Array(RGB(0, 0, 255), RGB(0, 0, 128), RGB(0, 0, 64), RGB(0, 0, 0), _
                 RGB(0, 255, 0), RGB(0, 128, 0), RGB(0, 64, 0), RGB(0, 0, 0))

    With Worksheets("sheet6")

        Set rng = Intersect(.Range("B:C, E:F, K:AM"), .Range("8:8"))

        With rng

            .FormatConditions.Delete

            For i = LBound(arr1) To UBound(arr1)

                .FormatConditions.Add Type:=xlExpression, Formula1:="=$M8=" & Chr(34) & arr1(i) & Chr(34)
                .FormatConditions(.FormatConditions.Count).Interior.Color = arr2(i)

            Next i

        End With

    End With

End Sub

Большинство цветов RGB близки к тому, что вам нужно, за исключением коричневого; я понятия не имею, что RGB делает коричневым.

решение2

Это можно сделать с помощью условного форматирования.
Вам понадобится отдельная формула для каждого цвета.

  • Выделите ячейки, цвет которых вы хотите изменить в строке 8 (вы можете использовать Ctrl+клик, чтобы выбрать отдельные ячейки)
  • Перейдите в «Условное форматирование» и выберите «Новое правило».
  • Выберите «Использовать формулу для определения форматируемых ячеек».
  • В описании правила введите=$M8="TL"
  • Нажмите «Формат» и выберите вкладку «Заполнить» вверху.
  • Выберите правильный цвет для кода
  • Нажмите OK, а затем еще раз OK.
    Все готово для строки 8.

Если вы хотите, чтобы было больше строк, перейдите в раздел «Условное форматирование» и выберите «Управление правилами».

Выберите значок справа от поля «Применяется к», а затем выделите все области, цвет которых вы хотите изменить. Опять же, вы можете использовать Ctrlдля выбора отдельных областей. Вы можете выбрать целые столбцы, если хотите, но это может замедлить лист.

После настройки вы можете повторить процесс для других цветовых кодов, просто заменив TLв формуле код, который вы хотите использовать.

Связанный контент