Note: The other languages of the website are Google-translated. Back to English
Log in  \/ 
x
or
x
Inscreva-se  \/ 
x

or

Como ocultar ou reexibir um botão de comando com base no valor da célula especificada no Excel?

Suponha que você esteja usando um botão de comando para acionar um script VBA em sua planilha. Quando o script VBA não é usado em alguns casos, você precisa ocultar o botão de comando em vez de exibi-lo na planilha. E exiba-o novamente quando o script VBA for necessário. Este artigo fala sobre como ocultar ou mostrar um botão de comando com base em um valor de célula especificado no Excel. Faça o seguinte.

Oculte ou reexibir um botão de comando com base no valor da célula especificada com o código VBA


Oculte ou reexibir um botão de comando com base no valor da célula especificada com o código VBA


Você pode executar o código VBA a seguir para ocultar ou exibir um botão de comando com base no valor da célula especificada no Excel.

1. Clique com o botão direito na guia da planilha que contém o botão de comando que você precisa para mostrar ocultar e clique em Ver código no menu do botão direito.

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

Código VBA: ocultar ou exibir um botão de comando com base no valor de célula especificado

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
    If Cells(1, 1).Value <> "1" Then
        Me.CommandButton1.Visible = True
    Else
        Me.CommandButton1.Visible = False
    End If
    Application.ScreenUpdating = True
End Sub

Importante: no código, Células (1, 1), 1 e CommandButton1 indicam que o CommandButton1 ficará oculto quando a célula A1 contiver o número 1 e será exibido se a célula A1 contiver qualquer outro valor, exceto o número 1. Veja a captura de tela abaixo. E você pode alterá-los de acordo com sua necessidade.


Artigos relacionados:


As melhores ferramentas de produtividade para escritório

O 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 ...
  • Super Formula Bar (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-2019 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Teste gratuito de 30 dias com recursos completos. Garantia de devolução do dinheiro em 60 dias.
guia kte 201905

Guia do Office 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!
officetab bottom
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    lol · 4 months ago
    hola, el codigo esta bien? es que no me funciona y ya intente varias cosas para que funcione y nana, ayuda por favor es que lo necesito para algo importante  :c
  • To post as a guest, your comment is unpublished.
    Jordan · 4 months ago
    For some reason after the button go from invisible back to visible, the button no longer works. If I alt + F11 into the code select the XXX() sub and run with F5 the code works for my macro. Why doesn't it work when i click the button anymore? in properties 'Enabled' is set to true
  • To post as a guest, your comment is unpublished.
    sdf · 8 months ago
    Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
    If Cells(1, 1).Value <> "1" Then
    Me.Shapes("Button 1").Visible = True
    Else
    Me.Shapes("Button 1")
    End If
    Application.ScreenUpdating = True
    End Sub
  • To post as a guest, your comment is unpublished.
    Et41 · 1 years ago
    Hello

    I am new to VBA, I have put this code into a new Excel. One CommnadButton, on Sheet1 but the code doesnt work.

    Do I have to do anything before this?


    Thanks in Advance
  • To post as a guest, your comment is unpublished.
    Jeremy · 2 years ago
    Use the ActiveX Control Button.
  • To post as a guest, your comment is unpublished.
    Bryce · 3 years ago
    I've put this code in and entered my button name (Finish), referenced the reference cell (P11 - 16, 11) but every time I make a change to the reference cell (P11) I get a compile error and it highlights the ".Finish" section of the code, seemingly meaning the button name I entered "Finish" is not found on the worksheet. I've confirmed, both in the drop down area to the left of the formula bar and in the "define name" area on the Formula tab that my button name is, in fact, "Finish", but it still does not work.


    Any help?
    • To post as a guest, your comment is unpublished.
      crystal · 2 years ago
      Hi Bryce,
      I changed the button name to "Finish" in my worksheet, and it works well without any error displaying.
      Do you mind testing the code in a new blank workbook?
      Thank you for your comment.
  • To post as a guest, your comment is unpublished.
    sebastian · 3 years ago
    hola que tal, tengo un boton con macro, que me devuelve a una hoja 'menu', pero no quiero que ese boton aparezca en la hoja menu como le puedo hacer?'


    saludos.-
    • To post as a guest, your comment is unpublished.
      Andreas · 5 months ago
      Hola Sebastia,

      Dónde debería mostrarse?
      - Uno es la hoja de menú
      - El botón está integrado en una hoja diferente, no?