Inkrementieren einer Zelle in Microsoft Excel , indem Sie auf es kann leicht durch Verwendung einer Arbeitsmappe Veranstaltung durchgeführt werden. Die SheetSelectionChange Ereignis tritt ein, wenn die Auswahl auf einem Arbeitsblatt Änderungen . Sie können Ihren VBA -Code in dieses Ereignis hinzuzufügen , um den Wert einer bestimmten Zelle zu erhöhen. Dieses Verfahren ist nützlich, wenn Sie dem Benutzer Zeit durch nicht das Müssen manuell erhöhen Wert , wenn Sie Ihre Excel-Anwendung speichern möchten. Anleitung
1

Starten Sie Microsoft Excel , klicken Sie auf die Registerkarte "Entwicklertools" und klicken Sie auf " Visual Basic ", um den VBA -Editor zu starten.
2

Doppelklicken Sie auf " ThisWorkbook " aus dem Bereich Objekt-Explorer zu öffnen ein neues Modul. Fügen Sie den folgenden Code, um die Zelle A1 um eins zu erhöhen , wenn der Benutzer darauf klickt :

Private Sub Workbook_SheetSelectionChange (ByVal Sh As Object , ByVal Target As Range)

Wenn Target.Row = 1 und Target.Column = 1 Then

Range (" A1") . Value = Range (" A1") . Value + 1 of

End If End Sub

3

wechseln Sie zurück zu Microsoft Excel und klicken A1 bis es um eins erhöht .