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.