Como destacar uma célula ou linha com caixa de seleção no Excel?

Como mostrado na captura de tela abaixo, você precisa destacar uma linha ou célula com uma caixa de seleção. Quando a caixa de seleção é marcada, uma linha ou célula especificada será destacada automaticamente. Mas como fazer isso no Excel? Este artigo mostrará dois métodos para alcançar isso.

Destacar célula ou linha com caixa de seleção usando Formatação Condicional
Destacar célula ou linha com caixa de seleção usando código VBA

Destacar célula ou linha com caixa de seleção usando Formatação Condicional

Você pode criar uma regra de Formatação Condicional para destacar células ou linhas com caixas de seleção no Excel. Por favor, siga os passos abaixo.

PASSO UM: Vincular todas as caixas de seleção a uma célula específica

1. Você precisa inserir caixas de seleção nas células uma por uma manualmente clicando em Desenvolvedor > Inserir > Caixa de Seleção (Controle de Formulário).

2. Agora as caixas de seleção foram inseridas nas células da coluna I. Por favor, selecione a primeira caixa de seleção em I1, insira a fórmula =$J1 na barra de fórmulas e pressione a tecla Enter.

Dica: Se você não quiser ter valores associados às células adjacentes das caixas de seleção, pode vincular a caixa de seleção a uma célula de outra planilha, como =Planilha3!$E1.

3. Repita o passo 1 até que todas as caixas de seleção estejam vinculadas às células adjacentes ou a células em outra planilha.
Observação: Todas as células vinculadas devem ser consecutivas e localizadas na mesma coluna.

PASSO DOIS: Criar uma regra de Formatação Condicional

Agora você precisa criar uma regra de Formatação Condicional conforme os passos abaixo.

1. Selecione as linhas que você deseja destacar com caixas de seleção, depois clique em Formatação Condicional > Nova Regra na aba Página Inicial. Veja a captura de tela:

2. Na caixa de diálogo Nova Regra de Formatação, você precisa:

Agora a regra de Formatação Condicional foi criada. Ao marcar as caixas de seleção, as linhas correspondentes serão destacadas automaticamente, como mostrado na captura de tela abaixo.

Destacar célula ou linha com caixa de seleção usando código VBA

O seguinte código VBA também pode ajudá-lo a destacar células ou linhas com caixas de seleção no Excel. Por favor, siga os passos abaixo.

1. Na planilha onde você precisa destacar células ou linhas com caixas de seleção. Clique com o botão direito do mouse na Guia da Planilha e selecione Visualizar Código no menu de contexto para abrir a janela Microsoft Visual Basic for Applications.

2. Em seguida, copie e cole o código VBA abaixo na janela 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. Pressione a tecla F5 para executar o código. (Nota: você deve colocar o cursor na primeira parte do código para aplicar a tecla F5). Na caixa de diálogo Kutools for Excel que aparece, selecione o intervalo onde deseja inserir caixas de seleção e clique no botão OK. Aqui eu seleciono o intervalo I1:I6. Veja a captura de tela:

4. As caixas de seleção são inseridas nas células selecionadas. Marque qualquer uma das caixas de seleção, a linha correspondente será destacada automaticamente, como mostrado na captura de tela abaixo.

Artigos relacionados:

• Como alterar o valor ou a cor de uma célula específica quando a caixa de seleção é marcada no Excel?
• Como inserir carimbo de data em uma célula ao marcar uma caixa de seleção no Excel?
• Como marcar uma caixa de seleção com base no valor da célula no Excel?
• Como filtrar dados com base na caixa de seleção no Excel?
• Como ocultar caixa de seleção quando a linha está oculta no Excel?
• Como criar uma lista suspensa com várias caixas de seleção no Excel?