Suureneva summa

lecxe

Onko excelissä sellaista kaavaa joka laskisi soluun koko ajan suurenevaa summaa, eli siis laskisi itsensä mukaan aina lisättävään.
eli esim. a1 a2 a3 näistä a3 olisi se johon ei syötetä summia vaan sinne jäisi a1 a2 ja se ei nollaantuisi, vaan kasvaisi aina kun a1 ja a2 lisättäisiin lukuja.

3

80

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • ettätämmöstä

      Joskus vuosia sitten oli samanlainen kysymys täällä. En löytänyt sitä, mutta vastaavanlainen löytyi.
      Koodi lisää B1:seen aina A1 syötetyn summan ja summa jää B1 vaikka A1:sen tyhjää ja syöttämällä A1 taas uuden luvun kasvattaa se taas B1:stä. VBA kun ei ole vahva puoleni, en saanut modifoitua tuota Kunden koodia tarpeillesi sopivaksi.
      Toimiva koodi löytyy ketjun loppupäästä ja siellä on ohjeita miten lisätä uusia soluja mukaan,
      http://keskustelu.suomi24.fi/node/5333568

      • ettätämmöstä

        Sain tuosta värkkäämällä seuraavanlaisen kaavan, joka mielestäni toimii kuten halusit.
        Klikkaa ko. taulukon taulukonvalitsinta alhaalta (esim.Taul1) hiiren oikealla ja avautuvaan ikkunaan kopioi seuraava koodi

        Private Sub Worksheet_Change(ByVal Target As Range)
        On Error Resume Next
        Application.EnableEvents = False
        If Target = Range("A1") Then
        Range("A3") = Range("A1") Range("A3")
        End If
        If Target = Range("A2") Then
        Range("A3") = Range("A2") Range("A3")
        End If
        Application.EnableEvents = True
        End Sub

        Palaa Exceliin ja koeta syöttää lukuja A1 ja A2 soluihin


      • sammapåhär
        ettätämmöstä kirjoitti:

        Sain tuosta värkkäämällä seuraavanlaisen kaavan, joka mielestäni toimii kuten halusit.
        Klikkaa ko. taulukon taulukonvalitsinta alhaalta (esim.Taul1) hiiren oikealla ja avautuvaan ikkunaan kopioi seuraava koodi

        Private Sub Worksheet_Change(ByVal Target As Range)
        On Error Resume Next
        Application.EnableEvents = False
        If Target = Range("A1") Then
        Range("A3") = Range("A1") Range("A3")
        End If
        If Target = Range("A2") Then
        Range("A3") = Range("A2") Range("A3")
        End If
        Application.EnableEvents = True
        End Sub

        Palaa Exceliin ja koeta syöttää lukuja A1 ja A2 soluihin

        Jäi pois tuosta koodinsyöttö ohjeesta että kun klikkaat hiiren oikealla sitä taulukonvalitsinta niin valitse sieltä kohta "Näytä koodi" ja sitten aukeaa ikkuna johon syötät tuon koodin.


    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Mikä on loppuelämäsi suunnitelma

      Kaivattuasi kohtaan? Olet päättänyt jotain?
      Ikävä
      97
      1150
    2. Sinkkumiehet hukkaavat tärkeän ässän hihastaan kun

      ...eivät suostu kavereiksi naisten kanssa. Mikä voi olla heillä syynä? Hyväksyvät vain naisen, joka suorastaan anelee sa
      Ikävä
      116
      978
    3. Uskaltaisitko vielä

      Lähestyä vai et kaivattuasi?
      Ikävä
      125
      906
    4. Keitä täällä on??

      Kertokaa nimenne!! 🤔
      Ikävä
      91
      729
    5. "Kaikkien miesten asia" - kampanja on alkanut

      Miehillä on naisiin kohdistuvan väkivallan lopettamisessa merkittävä rooli. Ei riitä, ettei itse tee väkivaltaa. Miesten
      Maailman menoa
      285
      704
    6. Tiedät, että en voi enää laittaa viestiä

      Aikaa kulunut. Eikä se näyttäisi enää luontevalta vastata näin pitkän ajan jälkeen. Tiedän myös, että sinä et enää lait
      Ikävä
      74
      641
    7. Lautakunta käsittelee Iisalmen kulttuuri- ja vapaa-aikajohtajan virkasuhteen purkua koeajalla:

      Lautakunta käsittelee Iisalmen kulttuuri- ja vapaa-aikajohtajan virkasuhteen purkua koeajalla: "Aina valinta ei mene nap
      Iisalmi
      54
      596
    8. Lienee aika luopua siitä kaikesta

      mitä meillä ikinä olikaan. Hassua, koska juuri mitään ei ole edes ollutkaan. En vaan jaksa tätä mahdotonta juttua enää j
      Ikävä
      64
      582
    9. Kun kohtaatte rakkauden, tarttukaa siihen

      Toimisinko jälkiviisaana toisin? Varmasti. Vaikka silloin kuvittelin tekeväni, niin kuin on oikein. Mahdollisimman siist
      Ikävä
      48
      559
    10. Mitä toivot

      Kaivattusi suhteen?
      Ikävä
      72
      483
    Aihe