Como alterar o valor de uma célula ao clicar nela?
É possível alterar o valor de uma célula ao clicar nela no Excel? Por exemplo, ao clicar pela primeira vez na célula A1, esta exibe «Excel»; ao clicar novamente, passa a mostrar «Word»; e, na terceira vez que for clicada, apresenta «Outlook». A partir daí, o valor da célula A1 alterna ciclicamente entre «Excel», «Word», «Outlook», «Excel»…, tal como ilustrado na seguinte captura de ecrã:
Alterar o valor de uma célula ao clicar nela com código VBA
Alterar o valor de uma célula ao clicar nela com código VBA
Para concluir esta tarefa no Excel, o código VBA seguinte poderá ajudá-lo. Siga estes passos:
1. Clique com o botão direito do rato no separador da folha onde pretende alterar o valor da célula ao clicar e escolha Ver Código no menu de contexto. Na janela do Microsoft Visual Basic para Aplicações que se abre, copie e cole o seguinte código no módulo em branco:
Código VBA: Alterar o valor de uma célula ao clicar nela:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'Updateby Extendoffice
Application.EnableEvents = False
With Target
If .Address = Range("A1").Address Then
Select Case .Value
Case "Excel"
.Value = "Word"
Case "Word"
.Value = "Outlook"
Case "Outlook"
.Value = "Excel"
Case Else
.Value = "Word"
End Select
End If
End With
Range("A2").Select
Application.EnableEvents = True
End Sub
Nota: No código acima, A1 é a célula cujo valor pretende alterar ao clicar; «Excel», «Word» e «Outlook» são os valores que pretende que apareçam ciclicamente. Pode alterá-los conforme necessário.
2. Após colar o código, guarde-o e feche esta janela. Agora, ao clicar pela primeira vez na célula A1, o texto «Excel» será imediatamente apresentado; ao clicar novamente, aparecerá o texto «Word»; e ao clicar pela terceira vez, será mostrado o texto «Outlook». Veja a captura de ecrã:
Mais artigos relacionados:
Como filtrar dados ao clicar diretamente no conteúdo de uma célula no Excel?
Como ordenar os dados de uma coluna ao clicar no cabeçalho no Excel?
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos