Como alterar a cor do separador da folha com base no valor de uma célula?
Normalmente, pode alterar a cor do separador no Excel de forma fácil e rápida, mas já alguma vez tentou mudar essa cor com base no valor de uma célula na folha de cálculo? Se esta tarefa lhe interessa, apresento-lhe alguns códigos para colorir o separador da folha de acordo com um valor específico numa célula do Excel.
Alterar a cor do separador de uma folha com base no valor da célula com código VBA
Alterar múltiplos Guias de Planilha com base no valor da célula com código VBA
Alterar a cor do separador de uma folha com base no valor da célula com código VBA
Por exemplo, pretendo que a cor do separador Planilha atual seja verde se o valor na célula A1 for o texto «TRUE», que seja vermelha se o texto em A1 for «FALSE» e que seja azul se o valor na célula A1 for qualquer outro texto, conforme ilustrado na seguinte captura de ecrã:
1. Clique com o botão direito do rato no separador da folha cuja cor pretende alterar com base nos dados da célula A1 e, em seguida, escolha Ver Código no menu de contexto.
2. Na janela Microsoft Visual Basic para Aplicações, copie e cole o código VBA abaixo na janela do Módulo.
Código VBA: Alterar a cor do separador 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 da célula com base na qual pretende colorir o separador; «True» e «False» são os textos necessários — pode alterá-los conforme necessário e também personalizar as cores no código.
3. Em seguida, guarde e feche esta janela de código. Agora, ao introduzir o texto «True» na célula A1, a cor do separador atual torna-se verde; ao introduzir «False» na célula A1, o separador fica vermelho; e, se for introduzido qualquer outro texto na célula A1, a cor do separador muda automaticamente para azul.
Desbloqueie a Magia do Excel com KUTOOLS AI
- Execução Inteligente: Realize operações em células, analise dados e crie gráficos — tudo impulsionado por comandos simples.
- fórmulas personalizadas: Crie fórmulas personalizadas para simplificar os seus fluxos de trabalho.
- Programação VBA: Escreva e implemente código VBA com facilidade.
- Interpretação de Fórmulas: Compreenda facilmente fórmulas complexas.
- Tradução de Texto: Elimine barreiras linguísticas nas suas folhas de cálculo.
Alterar múltiplos Guias de Planilha com base no valor da célula com código VBA
Se precisar de alterar a cor de vários separadores de folhas com base no valor de uma célula, aqui está um código que o pode ajudar. Siga estes passos:
1. Prima e mantenha premidas as teclas ALT + F11 para abrir a janela Microsoft Visual Basic para Aplicações. Na janela aberta, clique duas vezes em EsteLivro sob a secção ProjetoVBA e, de seguida, copie e cole o código abaixo para o Módulo em branco:
Código VBA: Alterar múltiplos Guias de Planilha 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, respetivamente, a célula e a folha de cálculo com base nas quais pretende colorir o separador; Folha1, Folha2 e Folha3 são as folhas cujos separadores pretende colorir. KTE, KTW e KTO são os valores que a célula A1 pode assumir para determinar a cor dos separadores. Pode ajustar as referências e as cores no código conforme necessário.
2. Em seguida, guarde e feche esta janela de código. Agora, ao introduzir o texto KTE na célula A1 da folha Master, o separador da Folha1 ficará colorido a vermelho; ao introduzir KTO na célula A1, a Folha2 ficará colorida a verde; e ao introduzir KTW na célula A1, a Folha3 ficará colorida a azul. Veja a captura de ecrã:
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos