Note: The other languages of the website are Google-translated. Back to English

Como clicar duas vezes em uma célula e adicionar 1 a esse valor de célula no Excel?

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

Clique duas vezes em uma célula e adicione 1 com o código VBA


Clique duas vezes em uma célula e adicione 1 com o código VBA


O seguinte código VBA pode ajudá-lo a adicionar 1 a um valor de célula após clicar duas vezes. Faça o seguinte.

1. Clique com o botão direito na guia da planilha cujos valores de célula você precisa adicionar 1 com um clique duplo. Então 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.

Código VBA: Adicione 1 a um valor de célula clicando duas vezes

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 você adicionará o número 1 com um clique duplo.

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

Agora, clique duas vezes na célula A1 para adicionar 1 ao valor existente, como mostrado abaixo na imagem.


Artigos relacionados:


As melhores ferramentas de produtividade para escritório

O Kutools for Excel resolve a maioria dos seus problemas e aumenta sua produtividade em 80%

  • armadilha para peixes: Insira rapidamente fórmulas complexas, gráficos e qualquer coisa que você tenha usado antes; Criptografar células com senha; Criar lista de discussão e enviar emails ...
  • Barra Super Fórmula (edite facilmente várias linhas de texto e fórmula); Layout de leitura (ler e editar facilmente um grande número de células); Colar na faixa filtrada...
  • Mesclar células / linhas / colunas sem perder dados; Dividir o conteúdo das células; Combinar linhas / colunas duplicadas... Evite células duplicadas; Comparar intervalos...
  • Selecione Duplicado ou Único Linhas; Selecione linhas em branco (todas as células estão vazias); Super Find e Fuzzy Find em muitos livros; Seleção aleatória ...
  • Cópia exata Várias células sem alterar a referência da fórmula; Criação automática de referências para várias folhas; Inserir marcadores, Caixas de seleção e mais ...
  • Extrair Texto, Adicionar texto, remover por posição, Remover Espaço; Criar e imprimir subtotais de paginação; Converter entre conteúdo de células e comentários...
  • Super Filtro (salvar e aplicar esquemas de filtro a outras planilhas); Classificação Avançada por mês / semana / dia, frequência e mais; Filtro Especial por negrito, itálico ...
  • Combine pastas de trabalho e planilhas; Mesclar tabelas com base em colunas-chave; Divida os dados em várias folhas; Conversão em lote de xls, xlsx e PDF...
  • Mais de 300 recursos poderosos. Suporta Office / Excel 2007-2019 e 365. Suporta todos os idiomas. Fácil implantação em sua empresa ou organização. Teste gratuito de 30 dias com recursos completos. Garantia de devolução do dinheiro em 60 dias.
guia kte 201905

Guia do Office traz interface com guias para o Office e torna seu trabalho muito mais fácil

  • Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
  • Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
  • Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!
parte inferior da aba do escritório
Comentários (16)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
Podemos adicionar um número de dois dígitos ao final da data? por exemplo, eu preciso clicar duas vezes e adicionar a data atual e o próximo número de dois dígitos (20171030-01, então a próxima célula mostrará 20171030-02 ao clicar duas vezes)
Este comentário foi feito pelo moderador no site
Caro Matt,
O código suporta apenas a célula de formato numérico. Pode funcionar como seus dados 20171030-01 são um formato de texto. Desculpe por isso.
Este comentário foi feito pelo moderador no site
Caro Matt,
O código suporta apenas a célula de formato numérico. Não pode funcionar, pois seus dados 20171030-01 estão no formato de texto. Desculpe por isso.
Este comentário foi feito pelo moderador no site
Isso é ótimo! Como faço isso para várias células? Eu digito "A1,A2" em vez de "A1", torna as duas células iguais e adiciona 1 a ambas as células simultaneamente. Eu gostaria que as células agissem independentemente.
Este comentário foi feito pelo moderador no site
Desculpe não entendi seu ponto.
Este comentário foi feito pelo moderador no site
Olá - concordo com Steve isso é ótimo. Acho que o que ele gostaria (e eu também) é poder adicionar o valor de várias células diferentes na mesma aba clicando duas vezes nelas. Ele alterou a fórmula VBA para que diga "A1,A2" em vez de apenas "A1", no entanto, clicar duas vezes em "A1" adiciona 1 a ambas as células. É possível alterar a fórmula para que várias células sejam incluídas com o valor de cada uma sendo aumentado apenas quando você clica diretamente nela?
Este comentário foi feito pelo moderador no site
Basicamente, com o código acima, se você clicar duas vezes em A1, adicionaria 1 a A1. Se eu alterasse A1 para A1:A2 no Target Range, se eu clicasse duas vezes em A1 ou A2, ele adicionaria 1 a A1. O que eu queria era adicionar 1 a A1 apenas se eu clicasse duas vezes em A1 e adicionar 1 a A2 apenas se eu clicasse duas vezes em A2. Eu também não queria adicionar 1 a ambas as células.

Acho que encontrei o que procurava:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("D5:BC56")) Não é Nada Então
Cancelar = Verdadeiro
Intervalo(Destino.Endereço).Valor = Val(Intervalo(Destino.Endereço).Valor) + 1
Se acabar
End Sub
Este comentário foi feito pelo moderador no site
Caro Steve
Finalmente entendi seu ponto de vista e obrigado por compartilhar.
Este comentário foi feito pelo moderador no site
Este código não parece funcionar para mim. Não preciso especificar qual é o Target.Adress ?
Este comentário foi feito pelo moderador no site
talvez fazendo uma tabela com um nome de intervalo. e atualizando a fórmula para incluir isso?
Este comentário foi feito pelo moderador no site
Se você deseja incrementar qualquer célula em uma célula da pasta de trabalho clicando duas vezes nessa célula, mas apenas nessa célula, este código funciona:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
If Not Intersect(Target, Range(ActiveCell.Address)) não é nada então
ActiveCell.Value = ActiveCell.Value + 1
Cancelar = Verdadeiro
Se acabar
End Sub
Este comentário foi feito pelo moderador no site
Caro Bill
Obrigado por compartilhar.
Este comentário foi feito pelo moderador no site
Obrigada! isso me ajudou muito!
Este comentário foi feito pelo moderador no site
Não consigo fazer isso funcionar em várias células
Tentei usar, mas não funcionou


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
If Not Intersect(Target, Range("B2:L14")) Não é Nada Então
Faixa("B2:L14").Valor = Faixa("B2:L14").Valor + 1
Cancelar = Verdadeiro
Se acabar
End Sub
Este comentário foi feito pelo moderador no site
Olá Stela,
Por favor, aplique o VBA abaixo para resolver o problema.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

On Error Resume Next

If Not Intersect(Target, Range("B2:L14")) Não é Nada Então

Target.Value = Target.Value + 1

Cancelar = Verdadeiro

Se acabar

End Sub
Este comentário foi feito pelo moderador no site
Que código você usaria se quisesse adicionar 1 a várias células, digamos E5:E15, mas depois adicionar 5 ou um número diferente a outro grupo de células, como G5:515?
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos