Hozzászólás: Cellaérték növelése, csökkentése

Szia!
Szóval ezt makróval lehet megcsinálni.
Több megoldás is lehetséges, és többféle gomb is létezik. Űrlap vezérlő és Active-X vezérlő.

Leírom az egyik lehetséges megoldást ActiveX vezérlő gombokkal.

1. Kapcsold be a Fejlesztőeszközök (Developer) szalagot
2. Ezen a szalagon a Beszúrás gomb lenyíló menüjében az ActiveX vezérlők közül az első a nyomógomb
Ezzel rajzolj 2 gombot.
3. Az elsőn duplán kattintva, megjelenik a Click esemény kezelője, egyelőre még üresen. Itt A Sub és End sub közé megadhatod, hogy mi történjen, ha megnyomod a gombot.
Ide írd be ezt:
Activesheet.Range("A1").Value=Activesheet.Range("A1").Value+1

4. Csináld meg ugyanezt a másik gombbal is, csak csökkenteni kell, nem növelni.
5. A gombokra írt szöveget úgy tudod módosítani, hogy jobb klikk->Tulajdonságok->Caption sor
6. A gombokat működésbe hozni pedig úgy, hogy a szalagon a Beszúrás mellett van a Tervező mód, amin egy kék vonalzó van, azt kapcsold ki. Ezután kattintásra már gombként működik.
7. Módosítani a tervező gomb bekapcsolásával tudsz.

Remélem érthető.

Imre