Como destacar uma célula ou linha utilizando uma caixa de seleção no Excel?
Conforme ilustrado na captura de ecrã abaixo, precisa de destacar uma linha ou célula com uma caixa de seleção. Assim que a caixa de seleção for marcada, a linha ou célula indicada será automaticamente destacada. Mas como conseguir este efeito no Excel? Este artigo apresenta-lhe dois métodos para o fazer.

Destacar célula ou linha com caixa de seleção com Usar Formatação Condicional
Destacar célula ou linha com caixa de seleção com código VBA
Destacar célula ou linha com caixa de seleção com Usar Formatação Condicional
Pode criar uma regra de formatação condicional para destacar uma célula ou linha com base no estado de uma caixa de seleção no Excel. Siga os passos abaixo.
Passo UM: Ligar todas as Caixa de Seleção a uma célula especificada
1. Tem de inserir caixas de seleção nas células uma a uma manualmente, clicando em Programador > Inserir > Caixa de Seleção (Controlo de formulário).
2. Agora, as caixas de seleção foram inseridas nas células da coluna I. Clique na primeira caixa de seleção em I1, introduza a fórmula =$J1 na Barra de Fórmulas e, em seguida, prima a tecla Enter.
Dica: Se não quiser associar valores às células adjacentes das caixas de seleção, pode ligar a caixa de seleção a uma célula noutra folha de cálculo — por exemplo, =Sheet3!$E1.

3. Repita o passo 1 até que todas as caixas de seleção estejam ligadas às células adjacentes ou a células noutra folha de cálculo.
Nota: Todas as células ligadas devem ser consecutivas e localizar-se na mesma coluna.

Passo DOIS: Criar uma regra de Usar Formatação Condicional
Agora, crie uma regra de Formatação Condicional seguindo os passos abaixo.
1. Selecione as linhas que pretende destacar com caixas de seleção e, em seguida, clique em Usar Formatação Condicional > Nova Regra no separador Base. Veja a captura de ecrã:

2. Na caixa de diálogo Nova Regra de Formatação, tem de:
2,1 Selecione a opção Utilizar uma fórmula para determinar quais as células a formatarna caixa Selecionar um tipo de regra;
2,2 Introduza a fórmula =SE($J1=VERDADEIRO;VERDADEIRO;FALSO) na caixa Formatar valores em que esta fórmula é verdadeira;
ou =SE(Sheet3!$E1=VERDADEIRO;VERDADEIRO;FALSO), se a Caixa de Seleção estiver ligada a outra folha de cálculo.
2,3 Clique no botão Formatarpara especificar uma cor de destaque para as linhas;
2,4 Clique no botão OK. Veja a captura de ecrã:

Nota: Na fórmula, $J1 ou $E1é a primeira célula ligada à Caixa de Seleção. Certifique-se de que a referência da célula foi alterada para Referência Absoluta de Coluna ()J1 > $J1 ou E1 > $E1).
A regra de Formatação Condicional já está criada. Ao marcar as caixas de seleção, as linhas correspondentes serão destacadas automaticamente, tal como ilustrado na captura de ecrã abaixo.

Destacar célula ou linha com caixa de seleção com código VBA
O seguinte código VBA permite-lhe destacar uma célula ou linha com uma caixa de seleção no Excel. Siga os passos abaixo.
1. Na folha de cálculo onde pretende destacar uma célula ou linha com uma caixa de seleção, clique com o botão direito do rato no Separador da Folha e selecione Ver Código no menu de contexto para abrir a janela do Microsoft Visual Basic para Aplicações.
2. Em seguida, copie e cole o código VBA abaixo na janela de código.
Código VBA: Destacar linha com caixa de seleção no Excel
Sub AddCheckBox()
Dim xCell As Range
Dim xRng As Range
Dim I As Integer
Dim xChk As CheckBox
On Error Resume Next
InputC:
Set xRng = Application.InputBox("Please select the column range to insert checkboxes:", "Kutools for Excel", Selection.Address, , , , , 8)
If xRng Is Nothing Then Exit Sub
If xRng.Columns.Count > 1 Then
MsgBox "The selected range should be a single column", vbInformation, "Kutools fro Excel"
GoTo InputC
Else
If xRng.Columns.Count = 1 Then
For Each xCell In xRng
With ActiveSheet.CheckBoxes.Add(xCell.Left, _
xCell.Top, xCell.Width = 15, xCell.Height = 12)
.LinkedCell = xCell.Offset(, 1).Address(External:=False)
.Interior.ColorIndex = xlNone
.Caption = ""
.Name = "Check Box " & xCell.Row
End With
xRng.Rows(xCell.Row).Interior.ColorIndex = xlNone
Next
End If
With xRng
.Rows.RowHeight = 16
End With
xRng.ColumnWidth = 5#
xRng.Cells(1, 1).Offset(0, 1).Select
For Each xChk In ActiveSheet.CheckBoxes
xChk.OnAction = ActiveSheet.Name + ".InsertBgColor"
Next
End If
End Sub
Sub InsertBgColor()
Dim xName As Integer
Dim xChk As CheckBox
For Each xChk In ActiveSheet.CheckBoxes
xName = Right(xChk.Name, Len(xChk.Name) - 10)
If (xName = Range(xChk.LinkedCell).Row) Then
If (Range(xChk.LinkedCell) = "True") Then
Range("A" & xName, Range(xChk.LinkedCell).Offset(0, -2)).Interior.ColorIndex = 6
Else
Range("A" & xName, Range(xChk.LinkedCell).Offset(0, -2)).Interior.ColorIndex = xlNone
End If
End If
Next
End Sub 
3. Prima a tecla F5para executar o código. ()Nota: certifique-se de que o cursor está posicionado na primeira parte do código antes de premir F5.) Na caixa de diálogo Kutools para Excel que surge, selecione o intervalo onde pretende inserir as caixas de seleção e, em seguida, clique no botão OK. Neste exemplo, selecionei I1:I6. Veja a captura de ecrã:

4. As caixas de seleção são então inseridas nas células selecionadas. Ao marcar qualquer uma delas, a linha correspondente é destacada automaticamente, tal como ilustrado na captura de ecrã abaixo.

Artigos relacionados:
- Como alterar o valor ou a cor de uma célula específica quando a caixa de seleção estiver marcada no Excel?
- Como inserir uma data carimbada numa célula ao marcar uma caixa de seleção no Excel?
- Como marcar automaticamente uma caixa de seleção com base no valor de uma célula no Excel?
- Como filtrar dados com base numa caixa de seleção no Excel?
- Como ocultar uma caixa de seleção quando a linha correspondente está oculta no Excel?
- Como criar uma lista suspensa com várias caixas de seleção no Excel?
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