Ich versuche, eine Liste von Studenten in einer Excel-Datenbank zu verwalten. Ich versuche, eine Schaltfläche zu erstellen, durch die die Semesterspalte um 1 erhöht wird. Ich habe es mit einem Active-X-Button und einem Spinner versucht, aber mein Ziel nicht erreicht. Mein Problem bestand darin, eine ganze Spalte (oder einen ausgewählten Bereich) zu ändern und die ausgewählten Zellen um 1 zu erhöhen. Dadurch werden Hunderte von Zeilen bearbeitet.
Hier sind Beispieldaten:
Vor dem Tastendruck: 2, 4, 1, 6, 7 ...
Nach Tastendruck: 3, 5, 2, 7, 8 ...
Danke für die Hilfe!
Hier ist ein Beispiel für numerische Werte im Bereich von A2 bis A78 . Fügen Sie diesen Code in ein Standardmodul ein:
Sub Incrementer() Dim rr As Range Set rr = Range("A2:A78") For Each r In rr r.Value = r.Value + 1 Next r End Sub Platzieren Sie eine Schaltfläche (oder eine andere Form) auf dem Blatt, das die Daten enthält, und weisen Sie der Schaltfläche das Makro zu.