Incrementar una celda en Microsoft Excel , haga clic en él se puede lograr fácilmente mediante el uso de un evento de libro . El evento SheetSelectionChange produce cuando cambia la selección en cualquier hoja de cálculo . Usted puede agregar su código de VBA dentro de este evento para aumentar el valor de una celda particular. Este proceso es útil si quieres ahorrar tiempo al usuario al no tener que incrementar manualmente un valor cuando se utiliza la aplicación Excel. Instrucciones
1

lanzamiento Microsoft Excel , haga clic en la pestaña de " desarrolladores" y haga clic en "Visual Basic " para abrir la ventana Editor de VBA.
2

doble clic en " ThisWorkbook " desde el panel Explorador de objetos para abrir un nuevo módulo. Agregue el código siguiente para incrementar la celda A1 por uno cuando el usuario hace clic en él :

Workbook_SheetSelectionChange Sub Private ( ByVal Sh As Object , Target ByVal como gama )

Si Target.Row = 1 Y Target.Column = 1 Entonces

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

End If End Sub

3

volver a Microsoft Excel y haga clic en A1 a incrementarlo en uno.