Como ativar ou desativar o botão com base no valor da célula no Excel?
Neste artigo, irei falar sobre alguns métodos para habilitar ou desabilitar o botão com base no valor da célula na planilha do Excel.
Habilite ou desabilite dois botões com base em dados de duas colunas com código VBA
Habilite ou desabilite um botão com base em dois valores de célula com código VBA
Habilite ou desabilite dois botões com base em dados de duas colunas com código VBA
Por exemplo, eu tenho dois botões de comando em uma planilha, se a Coluna A tiver dados, o botão 1 está habilitado e o botão 2 está desabilitado; se a coluna C contiver dados, o botão 2 será ativado e o botão 1 desativado. Para resolver essa tarefa, o seguinte código VBA pode ajudá-lo.
1. Clique com o botão direito na folha que contém os botões e escolha Ver código no menu de contexto, veja a captura de tela:
2. No Microsoft Visual Basic para Aplicações janela, copie e cole o código abaixo no módulo em branco:
Código VBA: ative ou desative 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
Note: No código acima, BotãoComando1 e BotãoComando2 são os nomes dos botões, A: A e C: C são as duas colunas que você usa para ativar ou desativar dois botões, altere-os de acordo com sua necessidade.
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 é habilitado e o botão 2 é desabilitado, veja a captura de tela:
(2.) Se digitar dados na Coluna C, o botão 2 é habilitado e o botão 1 é desabilitado, veja a captura de tela:
(3.) Tanto a coluna A quanto a coluna C têm dados, dois botões estão todos habilitados, veja a captura de tela:
(4.) Dois botões estão todos desativados se não houver dados na Coluna A e na Coluna C, consulte a captura de tela:
Habilite ou desabilite um botão com base em dois valores de célula com código VBA
Se você deseja habilitar ou desabilitar um botão de comando com base em dois valores de célula, como, quando o valor em A1 é maior que o valor em B1, o botão é habilitado, caso contrário, o botão é desabilitado. O seguinte código VBA também pode lhe fazer um favor.
1. Clique com o botão direito na folha que contém o botão e escolha Ver código a partir do menu de contexto, no Microsoft Visual Basic para Aplicações janela, copie e cole o código abaixo no módulo em branco, veja a captura de tela:
Código VBA: ative ou desative um botão com base em dois valores de célula:
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
Note: No código acima, A1 e B1 são os valores da célula que você usa, CommandButton1 é o nome do botão, altere-o para o seu próprio.
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 está habilitado, caso contrário, se o valor da célula em A1 for menor que B1, o botão está desabilitado, veja a captura de tela:
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!