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 Desenvolvedor > 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.
Anote os: 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 Início 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:
Anote os: 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. (Anote os: 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?
As melhores ferramentas de produtividade para escritório
Kutools for Excel Resolve a maioria dos seus problemas e aumenta sua produtividade em 80%
- armadilha para peixes: Insira rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de discussão e enviar emails ...
- Barra Super Fórmula (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
- Mesclar células / linhas / colunas sem perder dados; Dividir o conteúdo das células; Combinar linhas / colunas duplicadas... Evite células duplicadas; Comparar intervalos...
- Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
- Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
- Extrair Texto, Adicionar texto, remover por posição, Remover Espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
- Super Filtro (salvar e aplicar esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro Especial por negrito, itálico ...
- Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; Conversão em lote de xls, xlsx e PDF...
- Mais de 300 recursos poderosos. Suporta Office / Excel 2007-2021 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Recursos completos de avaliação gratuita de 30 dias. Garantia de devolução do dinheiro em 60 dias.
Office Tab Traz a 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!
