Como adicionar 1 ao valor de uma célula ao dar um duplo clique no Excel?
Este artigo mostra-lhe um método para adicionar automaticamente 1 ao valor de uma célula ao fazer duplo clique nela no Excel.
Utilize o duplo clique para aumentar o valor da célula em 1 com código VBA
Utilize o duplo clique para aumentar o valor da célula em 1 com código VBA
O código VBA seguinte orienta-o nos passos necessários para adicionar 1 ao valor da célula A1 ao fazer duplo clique. Siga estas instruções.
1. Clique com o botão direito do rato no separador da folha onde pretende adicionar 1 ao valor da célula A1 com duplo clique e, de seguida, clique em Ver Código no menu de contexto.
2. Na janela que surge do Microsoft Visual Basic for Applications, copie e cole o seguinte código VBA na janela de Código.
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
If Not Intersect(Target, Range("A1")) Is Nothing Then
Range("A1").Value = Range("A1").Value + 1
Cancel = True
End If
End Sub
Nota: No código, A1 é a célula à qual será adicionado 1 sempre que fizer duplo clique. Pode ajustá-la conforme necessário.
3. Prima simultaneamente as teclas Alt + Q para fechar a janela do Microsoft Visual Basic for Applications.
Agora, ao fazer duplo clique na célula A1, será adicionado 1 ao valor existente, tal como ilustrado na imagem seguinte.
Artigos relacionados:
- Como inserir automaticamente a data e hora atuais numa célula ao dar um duplo clique no Excel?
- Como inserir uma marca de verificação numa célula ao dar um duplo clique 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