inkrementering en celle i Microsoft Excel ved å klikke på det kan lett gjøres ved å bruke en arbeidsbok hendelse. Den SheetSelectionChange hendelsen oppstår når valget endringer på noen regneark. Du kan legge til dine VBA-kode inne i denne hendelsen til å øke verdien av en bestemt celle . Denne prosessen er nyttig hvis du ønsker å spare brukeren tid ved ikke å måtte manuelt øke en verdi når du bruker Excel-programmet . Instruksjoner
en

Launch Microsoft Excel , klikker du på " Developer " og klikk " Visual Basic " for å starte VBA Editor vinduet.
2

Dobbeltklikk på " ThisWorkbook " fra Object Explorer ruten for å åpne en ny modul . Legg til følgende kode for å øke celle A1 etter én når brukeren klikker på den :

Private Sub Workbook_SheetSelectionChange ( ByVal Sh som objekt, ByVal Target As Range )
p Hvis Target.Row = 1 Og Target.Column = 1 Deretter

Range (" A1 ") . Verdi = Range (" A1 ") . verdi + 1

End If

End Sub

3

Bytt tilbake til Microsoft Excel , og klikk A1 å øke det etter en.