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
Observação: 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
Observação: 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:
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab 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!