Como adicionar 1 a um valor de célula clicando duas vezes no Excel?

Este artigo mostrará um método para adicionar 1 a um valor de célula automaticamente clicando duas vezes nele no Excel.

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

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

O código VBA a seguir o guiará pelos passos para adicionar 1 ao valor na célula A1 clicando duas vezes. Siga estas instruções.

1. Clique com o botão direito do mouse na guia da planilha onde você precisa adicionar 1 ao valor na célula A1 clicando duas vezes. Em seguida, clique 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 na janela 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

Note: No código, A1 é a célula onde 1 será adicionado cada vez que você clicar duas vezes. Você pode ajustá-lo conforme necessário.

3. aperte o outro + Q simultaneamente para fechar a janela Microsoft Visual Basic for Applications.

Agora, clicar duas vezes na célula A1 adicionará 1 ao valor existente, conforme mostrado na captura de tela abaixo.

Artigos relacionados:

• Como adicionar / inserir automaticamente a data / hora atual em uma célula clicando duas vezes no Excel?
• Como adicionar marca de seleção em uma célula com duplo clique no Excel?