Como adicionar 1 ao valor de uma célula com um duplo clique no Excel?

Este artigo mostrará um método para adicionar automaticamente 1 ao valor de uma célula com um duplo clique no Excel.

Use o duplo clique para aumentar o valor da célula em 1 com código VBA

Use o duplo clique para aumentar o valor da célula em 1 com código VBA

O seguinte código VBA irá guiá-lo pelas etapas para adicionar 1 ao valor na célula A1 com um duplo clique. Por favor, siga estas instruções.

1. Clique com o botão direito na aba da planilha onde você precisa adicionar 1 ao valor na célula A1 com um duplo clique. Em seguida, clique em Visualizar Código no menu de clique direito.

2. Na janela Microsoft Visual Basic for Applications que aparece, copie e cole o código VBA abaixo 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

Observação: No código, A1 é a célula onde 1 será adicionado cada vez que você der um duplo clique. Você pode ajustá-la conforme necessário.

3. Pressione as teclas Alt + Q simultaneamente para fechar a janela Microsoft Visual Basic for Applications.

Agora, ao dar um duplo clique na célula A1, será adicionado 1 ao valor existente, como mostrado na captura de tela abaixo.

Artigos relacionados:

• Como inserir automaticamente a data/hora atual em uma célula com um duplo clique no Excel?
• Como adicionar um marcador de verificação em uma célula com um duplo clique no Excel?