Forøgelse en celle i Microsoft Excel ved at klikke på det kan nemt gøres ved at bruge en projektmappe begivenhed. Den SheetSelectionChange begivenhed opstår, når de udvælgelses ændringer på regnearket. Du kan tilføje din VBA-kode inde i denne begivenhed for at øge værdien af en bestemt celle . Denne proces er nyttig, hvis du ønsker at spare brugeren tid ved ikke at skulle manuelt forøge en værdi, når du bruger din Excel ansøgning. Instruktioner
1
Launch Microsoft Excel , skal du klikke på "Udvikler " fanen og klik på " Visual Basic " for at starte VBA Editor -vinduet.
2
Dobbeltklik på " ThisWorkbook " fra Object Explorer ruden for at åbne et nyt modul . Føj følgende kode til at øge celle A1 med én, når brugeren klikker på det :
Private Sub Workbook_SheetSelectionChange ( ByVal Sh As Object , ByVal Target Som Range )
p Hvis Target.Row = 1 Og Target.Column = 1 Så
Range (" A1 "). Value = Range (" A1 "). Value + 1
End If
End Sub
3
Skift tilbage til Microsoft Excel , og klik A1 til at øge den med én.