Uppräkningen en cell i Microsoft Excel genom att klicka på den kan lätt göras genom att använda en arbetsbok händelse . Den SheetSelectionChange inträffar när valet förändringar på alla kalkylblad . Du kan lägga din VBA-kod i detta evenemang för att öka värdet av en viss cell . Denna process är användbar om du vill spara tid för användaren genom att inte behöva manuellt öka ett värde när du använder din Excel- applikation . Instruktioner
1
Launch Microsoft Excel , klicka på " Utvecklare " fliken och klicka på " Visual Basic " för att starta VBA Editor fönstret .
2
Dubbelklicka på " ThisWorkbook " från Object Explorer rutan för att öppna en ny modul . Lägg till följande kod för att öka cell A1 med en när användaren klickar på den :
Private Sub Workbook_SheetSelectionChange ( ByVal Sh As Object , ByVal Target As Range ) katalog p Om Target.Row = 1 och Target.Column = 1 Då
Range ( " A1 " ) . Value = Range ( " A1 " ) . Value + 1
End If
End Sub
3
Byt tillbaka till Microsoft Excel och klicka A1 att öka det med ett.
