Alterar dinamicamente o texto de um botão - JJoão (02/2006)

O exemplo dado é, usar um botão para esconder e mostrar uma worksheet, alterar o texto do botão para "Ver folha" quando esta está oculta, ou "Esconder folha" quando esta está visivel.
Iremos usar uma celula como ligação, o botão puderá encontrá-lo na barra de ferramentas "formulários".

Passos:
- Adicione o botão (não escolha a macro ainda);
- Selecione o botão;
- Clique na barra de formula e digite "=" (sem aspas);
- Aponte para a celula que servirá para colocarmos o texto do botão, p.ex: =$D$1 ;
- Pressione Enter;

Faça o teste, escreva qualquer coisa na celula D1, se fez tudo bem verá o texto do botão ser alterado para o que digitou na celula.

Agora coloque esta macro num modulo:

Sub Visualizar_folha_teste()
    Dim v As Boolean
    Dim Nome_da_folha As String
    Nome_da_folha = "teste"
    'estado actual
    v = Sheets(Nome_da_folha).Visible
    'visualização on off
    Sheets(Nome_da_folha).Visible = Not v
    'alterar o texto do botão para acompanhar 
    'o status da folha "Teste"
    If v = True Then 
          Range("D1") = "Ver Folha" 
        Else 
          Range("D1") = "Esconder Folha"
    End If
End Sub

Selecione o botão, clique sobre este com o botão direito do rato e escolha atribuir macro, e da lista escolha a macro "Visualizar_folha_teste".

Faça o teste, é essencial que o nome da folha a esconder seja "teste", se escolher outro terá que alterar na macro.

De cada vez que carregar no botão ele irá executar a macro, que além de manipular a visibilidade da folha, alterará na célula D1 o texto que identificará a próxima acção do botão, se mostra ou esconde a folha "teste".