Knapp som øker løpenummer i Excel

[Testkise]

Jeg skal lage to knapper i Excel.

 

Én knapp som øker (og evt. senker) et løpenummer i et regneark (stiger (eller synker) med en verdi av 1 for hvert trykk), og én knapp som øker (eller senker) dato.

 

Har funnet knappen jeg vil ha (hurra!) men det var dette med makroen som hører til.

 

Kan noen gi meg et tips? Evt. kopiere VB-programmeringen hvis dere har laget den slik at jeg skjønner det? Takk for hjelp!

[aadnk]

Markoprogrammeringen burde ikke være særlig vanskelig - alt du behøver, er å dobbelklikke på VB-knappene du har inkludert i regnearket i design-modus og legge inn følgende linje mellom Private Sub og End Sub:

 

    ' Øk verdien i celle A1 med èn

    Sheet1.Cells(1, 1).Value = Sheet1.Cells(1, 1).Value + 1

Dersom du i stedet ønsker å minke verdien med èn, erstatter du simpelthen addisjontegnet med divisjontegnet. Du behøver heller ikke endre noe på koden dersom cellen inneholder en dato.