Kezdőlap › Fórumok › Excel programozás › Cellaérték növelése, csökkentése
- This topic has 12 hozzászólás, 6 résztvevő, and was last updated 6 years, 10 months telt el by delila.
-
SzerzőBejegyzés
-
2016-05-26-22:15 #2688
Legyen egy A1 cella, aminek az értéke 1. És az A2-es cellába (vagy bárhová a munkalapon) szeretnék tenni egy „akciógombot”, amire ha kattintok, 1-et hozzáad az A1-es cella értékéhez. Utána ahányszor kattintok rá az mindig hozzáadjon 1-et. Ugyanez visszafelé is érdekelne. Egy másik gombbal csökkenteni szeretném az A1-es cella értékét.
Hogyan tudnám ezt megcsinálni? Excel 2010-et használok. Köszi a választ!
2016-05-26-23:29 #2690Szia!
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
2016-05-27-12:21 #2691Tökéletes, szerencsére nem volt bonyolult. Köszönöm szépen 🙂
2016-05-30-07:47 #2695Hello
Ennek én is hasznát veszem,viszont az is érdekelne,hogy ha másik munkalapon levő valamelyik cella értékét akarom növelni/csökkenteni,akkor hogyan néz ki a kód!
Én így próbáltam,de nem sikerült:
Sheet(„Munka2”).Range(„c78”).Value = Sheet(„Munka2”).Range(„c78”).Value + 1Hogyan nézne ki a kód helyesen?
2016-05-30-12:29 #2696Ez teljesen jó, amit írtál, csak a „Sheet” szót többes számba kell tenni.
Tehát
Sheets(“Munka2”).Range(“c78”).Value = Sheets(“Munka2”).Range(“c78”).Value + 1
Imre
2016-05-31-06:19 #2699Azt szeretem a programozni tudó emberekben, hogy mindent programozással akarnak megoldani… 😛
A feladat minden további nélkül megoldható a léptetőnyíl űrlapvezérlővel. Sőt, még minimális és maximális érték is megadható. (Sajnos a minimális érték nem lehet negatív, de hát a Microsoft esetében ezen ugye nem csodálkozunk?) A léptetőnyíl még másik munkafüzetben lévő cellához is csatolható! 🙂 (Ezen azért csodálkozunk, ugye?)
A vezérlőelemet a Fejlesztőeszközök/Beszúrás/Űrlap-vezérlőelemek csoportból lehet beszúrni. Vigyázat! Nem összetévesztendő az Active-X vezérlővel!2016-05-31-09:47 #2700Ez is remek megoldás, köszi!
2016-06-01-07:39 #2702Kedves matheg
Ezt a megoldást ismerem és már használtam is,de ugyanez programozással gyakorlásnak nagyon jó.Ha nem tudom kisilabizálni azt a megoldást,akkor a léptető nyilakat fogom használni.
Segítséged köszönöm.
2016-06-03-09:42 #2709Köszönöm a segítséget!
2018-01-16-18:11 #4200Sziasztok!
Egy picit későn de ha valaki még nézi ezt a fórumot, kíváncsi lennék rá, hogy ha nem egy fix értékkel szeretném ezt megoldani, hanem pl a C2 cella értékével ami lehet 1,2,3… bármi, akkor a képlet hogy néz ki?
Köszi
2018-01-17-13:00 #4205A +1 és -1 helyére írd be a cella címét: +Range(„C2”).Value, -Range(„C2”).Value. Írd a Range elé a lapnevet, ahonnan az értéket veszed.
2018-01-17-13:05 #4206Köszönöm!
2018-01-17-13:36 #4207Nincs mit. 🙂
-
SzerzőBejegyzés
- Be kell jelentkezni a hozzászóláshoz.