Telefonszámunk: 1-472-0679

Cellaérték növelése, csökkentése

Kezdőlap Fórumok Excel programozás Cellaérték növelése, csökkentése

13 bejegyzés megtekintése - 1-13 / 13
  • Szerző
    Bejegyzés
  • #2688
    Laller
    Felhasználó

      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!

      #2690
      horvimi
      Adminisztrátor

        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

        #2691
        Laller
        Felhasználó

          Tökéletes, szerencsére nem volt bonyolult. Köszönöm szépen 🙂

          #2695
          Musumester
          Felhasználó

            Hello
            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 + 1

            Hogyan nézne ki a kód helyesen?

            #2696
            horvimi
            Adminisztrátor

              Ez 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

              #2699
              matheg
              Felhasználó

                Azt 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!

                #2700
                horvimi
                Adminisztrátor

                  Ez is remek megoldás, köszi!

                  #2702
                  Musumester
                  Felhasználó

                    Kedves 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.

                    #2709
                    Musumester
                    Felhasználó

                      Köszönöm a segítséget!

                      #4200
                      karesz_k
                      Felhasználó

                        Sziasztok!

                        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

                        #4205
                        delila
                        Felhasználó

                          A +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.

                          #4206
                          karesz_k
                          Felhasználó

                            Köszönöm!

                            #4207
                            delila
                            Felhasználó

                              Nincs mit. 🙂

                            13 bejegyzés megtekintése - 1-13 / 13
                            • Be kell jelentkezni a hozzászóláshoz.