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 Properties no menu do botão direito. E no Properties 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, Caixa de verificação1 é 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, Caixa de verificação1 é 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:
- Como destacar uma célula ou linha com checkbox 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 Kutools for Excele experimente eficiência como nunca antes. Kutools for 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 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!
