[Staroffice/Excel] "+1 knop" maken

Pagina: 1
Acties:
  • 1.122 views sinds 30-01-2008
  • Reageer

Acties:
  • 0 Henk 'm!

  • Dirk J
  • Registratie: December 2000
  • Laatst online: 20-06 12:22
Ik moet een enquête gaan analyseren, nu leek het me wel handig als ik gewoon een knop neer kon zetten die telkens +1 ergens bij optelt. Hoe maak ik zoiets?

Acties:
  • 0 Henk 'm!

  • Dirk J
  • Registratie: December 2000
  • Laatst online: 20-06 12:22
Dan ga ik het maar handmatig tellen denk ik... Het moet voor morgen af, en ik heb nog meer te doen :(

Acties:
  • 0 Henk 'm!

  • DizzyWeb
  • Registratie: Februari 2001
  • Laatst online: 11:58

DizzyWeb

Ondertiteld

Euh?! Die 1 waar bij optelt? Doe eens iets helderder, denk niet dat iemand hier iets van kan maken...

Acties:
  • 0 Henk 'm!

Anoniem: 34552

Een veld kun je wel een waarde meegeven plus één, misschien kun je van een cel een knop maken :?

Acties:
  • 0 Henk 'm!

  • Korakal
  • Registratie: Oktober 2001
  • Laatst online: 11:59

Korakal

Up up up!

je kunt toch gewoon met het plusje slepen :?

bijv

A1 = 1
A2 = 2

selecteer A1 & A2 en ga met je muis naar het puntje rechtsonderaan het selectievak. als je dit verder naar beneden sleept dan telt 'ie telkens 1 erbij op...

edit:


Afbeeldingslocatie: http://www.vanderhurk.nl/mark/got/excel-1.jpg
plusje gebruiken...

Afbeeldingslocatie: http://www.vanderhurk.nl/mark/got/excel-2.jpg
het resultaat...


Acties:
  • 0 Henk 'm!

  • Dirk J
  • Registratie: December 2000
  • Laatst online: 20-06 12:22
Oké beetje onduidelijk inderdaad.
Je hebt een hoeveelheid X
Als je op de knop drukt, wordt X gelijk aan X + 1
Zo een beetje duidelijk :?

Acties:
  • 0 Henk 'm!

  • Skinny
  • Registratie: Januari 2000
  • Laatst online: 23-06 20:18

Skinny

DIRECT!

code:
1
2
3
4
5
Public Sub AddOne()

ActiveCell.Value = Val(ActiveCell.Value) + 1

End Sub

Even een opdrachtknop op je formulier/of werkbalk maken en die laten verwijzen naar deze macro.

SIM-PEL

SIZE does matter.
"You're go at throttle up!"


Acties:
  • 0 Henk 'm!

  • uashy
  • Registratie: Mei 2002
  • Laatst online: 31-05 17:44
Op zondag 26 mei 2002 20:51 schreef AMDude het
volgende:

Oké beetje onduidelijk inderdaad.
Je hebt een hoeveelheid X
Als je op de knop drukt, wordt X gelijk aan X + 1
Zo een beetje duidelijk :?
Je kunt deze code gebruiken:
Sub plus1()
X = Worksheets(1).Range("a1")
Worksheets(1).Range("a1") = X + 1

End Sub

Vervolgens kun je een knop maken en die koppelen aan de macro. Je kunt natuurlijk ook deze code rechtstreeks aan bij de knop invoeren.
Pagina: 1