Como destacar uma célula ou linha com checkbox no Excel?
Como mostrado na captura de tela abaixo, você precisa destacar a linha ou célula com a caixa de seleção. Quando uma caixa de seleção é marcada, uma linha ou célula especificada será destacada automaticamente. Mas como conseguir isso no Excel? Este artigo mostrará dois métodos para alcançá-lo.
Destaque a célula ou linha com a caixa de seleção com Formatação Condicional
Destacar célula ou linha com caixa de seleção com código VBA
Destaque a célula ou linha com a caixa de seleção com Formatação Condicional
Você pode criar uma regra de Formatação Condicional para destacar a célula ou linha com a caixa de seleção no Excel. Faça o seguinte.
Ligar tudo caixa de seleção a uma célula especificada
1. Você precisa inserir as caixas de seleção nas células, uma a uma manualmente, clicando em Developer > inserção > Caixa de verificação (Controle de Formulário).
2. Agora as caixas de seleção foram inseridas nas células da coluna I. Selecione a primeira caixa de seleção em I1, insira a fórmula = $ J1 na barra de fórmula e, em seguida, pressione o Entrar chave.
Dica: Se você não quiser ter valores associados em células adjacentes a caixas de seleção, você pode vincular a caixa de seleção a outra célula da planilha, como = Folha3! $ E1.
2. Repita a etapa 1 até que todas as caixas de seleção estejam vinculadas às células adjacentes ou células em outra planilha.
Note: Todas as células vinculadas devem ser consecutivas e localizadas na mesma coluna.
Crie uma regra de formatação condicional
Agora você precisa criar uma regra de Formatação Condicional conforme a seguir, passo a passo.
1. Selecione as linhas que você precisa destacar com caixas de seleção e clique em Formatação condicional > Nova regra sob a Home page aba. Veja a imagem:
2. No Nova regra de formatação caixa de diálogo, você precisa:
2.1 Selecione o Use uma fórmula para determinar quais células formatar opção no Selecione um tipo de regra caixa;
2.2 Insira a fórmula = SE ($ J1 = VERDADEIRO, VERDADEIRO, FALSO) no Formate os valores onde esta fórmula for verdadeira caixa;
Or = SE (Folha3! $ E1 = VERDADEIRO, VERDADEIRO, FALSO) se as caixas de seleção vinculadas a outra planilha.
2.3 Clique no Formato botão para especificar uma cor destacada para as linhas;
2.4 Clique no OK botão. Veja a imagem:
Note: Na fórmula, $ J1 or $ E1 é a primeira célula vinculada para as caixas de seleção e certifique-se de que a referência da célula foi alterada para coluna absoluta (J1> $ J1 or E1> $ E1).
Agora a regra de formatação condicional foi criada. Ao marcar as caixas de seleção, as linhas correspondentes serão destacadas automaticamente como a captura de tela a seguir mostrada.
Destacar célula ou linha com caixa de seleção com código VBA
O código VBA a seguir também pode ajudá-lo a destacar a célula ou linha com a caixa de seleção no Excel. Faça o seguinte.
1. Na planilha, você precisa destacar a célula ou linha com a caixa de seleção. Clique com o botão direito no Aba Folha e selecione Ver código no menu do botão direito para abrir o Microsoft Visual Basic para Aplicações janela.
2. Em seguida, copie e cole o código VBA abaixo na janela Código.
Código VBA: destaque a linha com a 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. aperte o F5 chave para executar o código. (Note: você deve colocar o cursor na primeira parte do código para aplicar a tecla F5) No pop-up Kutools for Excel caixa de diálogo, selecione as caixas de seleção do intervalo que deseja inserir e clique no OK botão. Aqui eu seleciono a faixa I1: I6. Veja a imagem:
4. Em seguida, 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 conforme a imagem mostrada abaixo.
Artigos relacionados:
- Como alterar um valor ou cor de célula especificada quando a caixa de seleção está marcada no Excel?
- Como inserir carimbo de data em uma célula se uma caixa de seleção no Excel estiver marcada?
- Como marcar a caixa de seleção com base no valor da célula no Excel?
- Como filtrar dados com base na caixa de seleção do Excel?
- Como ocultar a 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?
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!