Ir para o conteúdo principal
Note: The other languages of the website are Google-translated. Back to English

Como alterar um valor ou cor de célula especificada quando a caixa de seleção está marcada no Excel?

Este artigo fala sobre como alterar o valor ou a cor de uma célula especificada por uma caixa de seleção. Por exemplo, quando uma determinada caixa de seleção é marcada, o valor ou a cor de fundo de uma célula especificada será alterado automaticamente. Siga os métodos abaixo, passo a passo, para lidar com isso.

Alterar um valor de célula especificado quando a caixa de seleção é marcada com a fórmula
Alterar um valor de célula especificado quando a caixa de seleção estiver marcada com o código VBA
Alterar uma cor de célula especificada quando a caixa de seleção estiver marcada com o código VBA


Alterar um valor de célula especificado quando a caixa de seleção é marcada com a fórmula

Supondo que você precise que a célula A1 seja preenchida com o valor “teste” quando a caixa de seleção 1 for marcada. E apague a célula ao desmarcar a caixa de seleção. Faça o seguinte.

Você precisa primeiro vincular a caixa de seleção a uma determinada célula e, em seguida, aplicar a fórmula para alcançá-la.

1. Para vincular a caixa de seleção a uma determinada célula, selecione-a e, a seguir, insira = referência da célula na Barra de Fórmulas e pressione a tecla Enter. Aqui, vinculo a caixa de seleção 1 à célula C2 com a inserção = C2 na Barra de Fórmulas após marcar a caixa de seleção.

Para a caixa de seleção Controle ActiveX, clique com o botão direito e selecione Propriedades no menu do botão direito. E no Propriedades caixa de diálogo, insira a célula vinculada no Célula Vinculada campo e feche a caixa de diálogo. Veja a imagem:

2. Selecione a célula que você precisa para alterar seu valor (aqui eu seleciono A1) e, em seguida, insira a fórmula = SE (C2, "Teste", "") na barra de fórmulas e pressione o botão Entrar chave. Veja a imagem:

Anote os: Na fórmula, C2 é a célula vinculada da caixa de seleção 1, “Teste” é o valor que você precisa exibir na célula A1 quando a caixa de seleção é marcada.

Você pode ver os resultados conforme as capturas de tela abaixo, mostradas após marcar ou desmarcar a caixa de seleção correspondente.


Alterar um valor de célula especificado quando a caixa de seleção estiver marcada com o código VBA

Você também pode alterar um valor de célula especificado quando a caixa de seleção é marcada com o código VBA. Faça o seguinte.

1. Clique com o botão direito na guia Planilha com o valor da célula que você precisa alterar com base na caixa de seleção e clique em Ver código no menu do botão direito.

2. No Microsoft Visual Basic para Aplicações janela, copie e cole o código VBA abaixo no Code janela.

Código VBA: alterar um valor de célula especificado quando a caixa de seleção estiver marcada

Private Sub CheckBox1_Click()
Dim xRng As Range
Dim xCell As Range, xStr As String
Set xRng = Selection
If CheckBox1.Value = True Then
    xStr = InputBox("Please enter a value:", "Kutools for Excel")
    xRng.Value = xStr
    If xStr = "" Then CheckBox1.Value = False
Else
    xRng.Value = ""
End If
End Sub

Anote os: No código, ChekBox1 é o nome do Caixa de seleção (controles ActiveX). Você pode alterá-lo conforme necessário.

3. aperte o outro + Q simultaneamente para fechar o Microsoft Visual Basic para Aplicações janela.

4. Selecione uma célula em branco (A1) cujo valor deseja alterar com base na caixa de seleção e marque a caixa de seleção 1 em sua planilha. Agora um Kutools for Excel caixa de diálogo aparece, insira o valor que deseja preencher na célula em branco selecionada e clique no botão OK botão. Veja a imagem:

Em seguida, o valor especificado é exibido na célula selecionada imediatamente. E ao desmarcar a caixa de seleção, a célula ficará em branco.

Anote os: Este código irá lembrá-lo de inserir o valor do texto circularmente quando você marcar a caixa de seleção a cada vez.


Alterar uma cor de célula especificada quando a caixa de seleção estiver marcada com o código VBA

Esta seção mostrará como alterar uma cor de célula especificada quando a caixa de seleção está marcada com o código VBA.

1. Clique com o botão direito no Aba Folha com a cor da célula que você precisa alterar com base na caixa de seleção e clique em Ver código no menu do botão direito.

2. No Microsoft Visual Basic para Aplicações janela, copie e cole o código VBA abaixo na janela Código.

Código VBA: alterar uma cor de célula especificada quando a caixa de seleção estiver marcada

Sub CheckBox1_Click()
Dim xRng As Range
Set xRng = Selection
If CheckBox1.Value = True Then
    xRng.Interior.Color = vbRed
Else
    xRng.Interior.Color = xlNone
End If
End Sub

Anote os: No código, ChekBox1 é o nome do Caixa de seleção (controles ActiveX). Você pode alterá-lo conforme necessário.

3. Selecione uma célula da qual você precisa alterar sua cor de fundo e marque a caixa de seleção. Você pode ver que a cor de preenchimento da célula selecionada mudou para vermelho. E a célula selecionada será preenchida sem cor de fundo após desmarcar a caixa de seleção. Veja as capturas de tela:


Artigos relacionados:


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.
guia kte 201905

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!
parte inferior da aba do escritório
Comentários (0)
Ainda não há classificações. Seja o primeiro a avaliar!
Não há comentários postados aqui ainda