☰

Se eu inserir as letras TL na célula A8, existe uma maneira de transformar essa célula e várias outras nessa linha em azul?

tag-icon • tag-icon microsoft-excel microsoft-excel-2013
Se eu inserir as letras TL na célula A8, existe uma maneira de transformar essa célula e várias outras nessa linha em azul?

Se eu inserir as letras TL na célula A8, existe uma maneira de transformar essa célula e várias outras nessa linha em azul? Existe uma maneira de ter múltiplas variações de letras/cores?

Tenho 8 combinações de duas letras que correspondem a 8 cores. Por exemplo: TS=azul claro TC=azul médio TL=azul escuro DD=preto RS=verde claro RC=verde médio RL=verde escuro LT=marrom Gostaria de inserir uma dessas combinações de letras em M8 e ter colunas , B,C,E,F,K-AM na linha 8 mudam para a cor correspondente. Existe uma maneira de fazer isso?

Responder1

Se eu inserir as letras TL na célulaA8... insira uma dessas combinações de letras emM8& tem colunas, B, C, E, F, K-AM na linha 8 ...

Sua narrativa é confusa. Este código é para M8.

Ajuste o nome da planilha e os parâmetros RGB para as cores desejadas e execute este código.

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

A maioria dos RGBs está um pouco próxima do que você deseja, exceto o marrom; Não tenho ideia do que RGB compõe o marrom.

Responder2

Isso pode ser feito usando formatação condicional.
Você precisará de uma fórmula separada para cada cor.

  • Destaque as células cuja cor deseja alterar na linha 8 (você pode usar Ctrl+clique para selecionar células separadas)
  • Vá em "Formatação Condicional" e selecione "Nova regra"
  • Selecione "Usar uma fórmula para determinar quais células formatar"
  • No tipo de descrição da regra=$M8="TL"
  • Clique em "Formatar" e escolha a guia "Preencher" na parte superior
  • Selecione a cor correta para o código
  • Clique em OK e depois em OK novamente.
    Tudo feito para a linha 8.

Se você quiser fazer mais linhas, vá em "Formatação Condicional" e selecione "Gerenciar regras".

Selecione o ícone à direita da caixa "Aplica-se a" e destaque todas as áreas cujas cores deseja alterar. Novamente, você pode usar Ctrlpara selecionar áreas separadas. Você pode selecionar colunas inteiras se desejar, mas isso pode tornar a planilha mais lenta.

Depois de configurada você pode repetir o processo para os demais códigos de cores, basta substituir TLna fórmula pelo código que deseja utilizar.

informação relacionada