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 VBAPor 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 VBASe 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 ThisWorkbook sob a VBAProject 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:
