Incrementando uma célula no Microsoft Excel , clicando sobre ela pode ser facilmente realizado por meio de um evento livro. O evento SheetSelectionChange ocorre quando a seleção muda em qualquer planilha. Você pode adicionar seu código VBA dentro deste evento para incrementar o valor de uma célula em particular. Este processo é útil se você quiser economizar o tempo do usuário por não ter que incrementar manualmente um valor ao usar o aplicativo Excel. Instruções
1

Abra o Microsoft Excel , clique na guia "Desenvolvedor" e clique em " Visual Basic" para abrir a janela do VBA Editor.
2

duplo clique em " EsteLivro " a partir do painel de Objetos para abrir um novo módulo. Adicione o seguinte código para incrementar a célula A1 por um quando o usuário clica sobre ele :

Private Sub Workbook_SheetSelectionChange (ByVal Sh As Object , ByVal Target As Range)

Se Target.Row = 1 E Target.Column = 1 Então

Range (" A1") . Value = Range (" A1") . Valor + 1

End If End Sub

3

Volte para o Microsoft Excel e clique em A1 para incrementá-lo por um.