Como habilitar ou desabilitar um botão com base no valor da célula no Excel?
Neste artigo, vou falar sobre alguns métodos para habilitar ou desabilitar um botão com base no valor da célula na planilha do Excel.
Habilitar ou desabilitar dois botões com base em duas colunas de dados com código VBA
Habilitar ou desabilitar um botão com base em dois valores de células com código VBA
Habilitar ou desabilitar dois botões com base em duas colunas de dados com código VBA
Por exemplo, tenho dois botões de comando em uma planilha. Se a Coluna A tiver dados, o Botão 1 estará habilitado e o Botão 2 desabilitado; se a Coluna C contiver dados, o Botão 2 estará habilitado e o Botão 1 desabilitado. Para resolver essa tarefa, o seguinte código VBA pode ajudá-lo.
1. Clique com o botão direito na planilha que contém os botões e escolha Visualizar Código no menu de contexto, veja a captura de tela:
2. Na janela Microsoft Visual Basic for Applications, copie e cole o código abaixo no módulo em branco:
Código VBA: Habilitar ou desabilitar dois botões com base em duas colunas:
Private Sub Worksheet_Change(ByVal Target As Range)
CommandButton1.Enabled = False
CommandButton2.Enabled = False
If Application.WorksheetFunction.CountA(Range("C:C")) > 0 Then
CommandButton2.Enabled = True
End If
If Application.WorksheetFunction.CountA(Range("A:A")) > 0 Then
CommandButton1.Enabled = True
End If
End Sub
Observação: No código acima, CommandButton1 e CommandButton2 são os nomes dos botões, A:A e C:C são as duas colunas que você usa para habilitar ou desabilitar dois botões, altere-os conforme necessário.
3. Em seguida, salve e feche a janela de código. Agora, você obterá o seguinte resultado conforme necessário:
(1.) Se digitar dados na Coluna A, o Botão 1 será habilitado e o Botão 2 desabilitado, veja a captura de tela:
(2.) Se digitar dados na Coluna C, o Botão 2 será habilitado e o Botão 1 desabilitado, veja a captura de tela:
(3.) Tanto a Coluna A quanto a Coluna C têm dados, os dois botões estarão todos habilitados, veja a captura de tela:
(4.) Os dois botões estarão todos desabilitados se não houver dados na Coluna A e na Coluna C, veja a captura de tela:
Habilitar ou desabilitar um botão com base em dois valores de células com código VBA
Se você deseja habilitar ou desabilitar um botão de comando com base em dois valores de células, por exemplo, quando o valor em A1 for maior que o valor em B1, o botão será habilitado, caso contrário, o botão será desabilitado. O seguinte código VBA também pode ajudá-lo.
1. Clique com o botão direito na planilha que contém o botão e escolha Visualizar Código no menu de contexto, na janela Microsoft Visual Basic for Applications, copie e cole o código abaixo no módulo em branco, veja a captura de tela:
Código VBA: Habilitar ou desabilitar um botão com base em dois valores de células:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim TargetAdd As String
Dim xTemp As Double
On Error GoTo ExitSub
TargetAdd = Target.Address
CommandButton1.Enabled = False
If (TargetAdd = Range("A1").Address) Or (TargetAdd = Range("B1").Address) Then
If Range("A1") > Range("B1") Then
CommandButton1.Enabled = True
End If
End If
ExitSub:
End Sub
Observação: No código acima, A1 e B1 são os valores das células que você utiliza, CommanButton1 é o nome do botão, altere-os conforme necessário.
2. Em seguida, salve e feche a janela de código. Agora, se o valor da célula em A1 for maior que B1, o botão será habilitado, caso contrário, se o valor da célula em A1 for menor que B1, o botão será desabilitado, veja a captura de tela:
Melhores Ferramentas de Produtividade para Office
Impulsione suas habilidades no Excel com Kutools para Excel e experimente uma eficiência incomparável. Kutools para Excel oferece mais de300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para acessar o recurso que você mais precisa...
Office Tab traz interface com abas para o Office e facilita muito seu trabalho
- Habilite edição e leitura por abas no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie múltiplos documentos em novas abas de uma mesma janela, em vez de em novas janelas.
- Aumente sua produtividade em50% e economize centenas de cliques todos os dias!
Todos os complementos Kutools. Um instalador
O pacote Kutools for Office reúne complementos para Excel, Word, Outlook & PowerPoint, além do Office Tab Pro, sendo ideal para equipes que trabalham em vários aplicativos do Office.
- Pacote tudo-em-um — complementos para Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Um instalador, uma licença — configuração em minutos (pronto para MSI)
- Trabalhe melhor em conjunto — produtividade otimizada entre os aplicativos do Office
- Avaliação completa por30 dias — sem registro e sem cartão de crédito
- Melhor custo-benefício — economize comparado à compra individual de add-ins