Como alterar a cor da guia da planilha com base no valor da célula?
Normalmente, você pode alterar a cor da guia de forma fácil e rápida no Excel, mas você já tentou alterar a cor da guia com base no valor da célula em uma planilha? Se você está interessado nesta tarefa, falarei sobre alguns códigos para você colorir a guia da planilha com base em um valor de célula específico no Excel.
Alterar a cor da guia de uma folha com base no valor da célula com o código VBA
Altere as guias de várias planilhas com base no valor da célula com o código VBA
Alterar a cor da guia de uma folha com base no valor da célula com o código VBA
Por exemplo, quero que a cor da guia da planilha atual seja verde se o valor da célula em A1 for o texto "VERDADEIRO", a cor da guia será vermelha se o texto em A1 for "FALSO" e a cor da guia será azul se o valor na célula A1 é qualquer outro texto, conforme a captura de tela a seguir:
1. Clique com o botão direito na guia da planilha cuja cor você deseja alterar com base nos dados da célula A1 e escolha Ver código no menu de contexto.
2. No Microsoft Visual Basic para Aplicações janela, copie e cole o código VBA abaixo no Módulo janela.
Código VBA: altere a cor da guia de uma folha com base no valor da célula:
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
If Target.Address = "$A$1" Then
Select Case Target.Value
Case "False"
Me.Tab.Color = vbRed
Case "True"
Me.Tab.Color = vbGreen
Case Else
Me.Tab.Color = vbBlue
End Select
End If
End Sub
NOTA No código acima, A1 é a referência de célula na qual você deseja colorir a guia com base, “Verdadeiro","Falso”São o texto de que você precisa, você pode alterá-los de acordo com sua necessidade e pode alterar a cor do código conforme necessário.
3. Em seguida, salve e feche esta janela de código, agora, ao inserir o texto “Verdadeiro” na célula A1, a cor da guia atual ficará verde, e quando você inserir o texto “Falso” na célula A1, a cor da guia ficará vermelha, e se outro texto for inserido na célula A1, a cor da guia ficará azul automaticamente.
Altere as guias de várias planilhas com base no valor da célula com o código VBA
Se você precisar alterar a cor das guias de várias planilhas com base em um valor de célula, aqui está um código que pode ajudá-lo, faça o seguinte:
1. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela, na janela aberta, clique duas vezes Esta pasta de trabalho sob a Projeto VBA seção, em seguida, copie e cole o código abaixo no campo Módulo:
Código VBA: altere as guias de várias planilhas com base no valor da célula:
Option Explicit
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
'Updateby Extendoffice 20160930
Select Case Sheets("Master").Range("A1").Value
Case "KTE"
Sheets("Sheet1").Tab.Color = vbRed
Case "KTO"
Sheets("Sheet2").Tab.Color = vbGreen
Case "KTW"
Sheets("Sheet3").Tab.Color = vbBlue
End Select
End Sub
NOTA No código acima, A1 e Master são a célula e a planilha em que você deseja colorir a guia, Sheet1, Sheet2, Sheet3 são as planilhas que você deseja colorir as guias. KTE, KTW, KTO são os valores da célula em A1 nos quais você deseja colorir as guias, você pode alterar as referências e cores no código conforme necessário.
2. Em seguida, salve e feche esta janela de código, agora, ao inserir o texto KTE na célula A1 da planilha mestre, a guia Plan1 ficará colorida em vermelho, quando você inserir KTO na célula A1, a Planilha2 será colorida em verde, e quando você insere KTW na célula A1, a Planilha3 será colorida em azul, veja a imagem:
As melhores ferramentas de produtividade para escritório
O Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%
- armadilha para peixes: Insira rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de discussão e enviar emails ...
- Barra Super Fórmula (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
- Mesclar células / linhas / colunas sem perder dados; Dividir o conteúdo das células; Combinar linhas / colunas duplicadas... Evite células duplicadas; Comparar intervalos...
- Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
- Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
- Extrair Texto, Adicionar texto, remover por posição, Remover Espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
- Super Filtro (salvar e aplicar esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro Especial por negrito, itálico ...
- Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; Conversão em lote de xls, xlsx e PDF...
- Mais de 300 recursos poderosos. Suporta Office / Excel 2007-2021 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Recursos completos de avaliação gratuita de 30 dias. Garantia de devolução do dinheiro em 60 dias.
Guia do Office traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
