SUM(OFFSET(COUNTA ???

P.P.A.

Terve!
Olisi pieni ongelma "iso ongelma".
Taulukosta haetaan summaa esimerkissä 5:stä viimeisestä sarakkeesta tällä kaavalla:

=SUM(OFFSET($A$1;COUNTA(A:A)-5;0;5;1))

Toimii oikein, mutta kun taulukkoon tulee loppuun, väliin ja sinne tänne arvoja 0, nämä pitäisi saada poissuljettua laskuista niin että laskenta alkaa aina viimeisestä täydestä numerosta, ja että vain täydet numerot 5 viimeisintä lasketaan.

Luvut esim -10(miinus) 10(plus) väliltä huomiodaan. Nyt tuo kaava aloittaa laskemisen aina viimeisestä sarakkeesta jos siellä on jotain vaikka se nolla ja laskee kaikki sarakkeet missä on 0.

Esim Sarake A

6
10
6
0
6
-6
-6
0
-10
0
0
6
6
0
10
0



Olisko apuja?

6

542

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • ...

      Function sum5(alue As Range)

      m = 5
      sum5 = 0
      vika = alue.End(xlDown).Row
      For r = vika To 1 Step -1
      luku = alue.Cells(r)
      If luku 0 And luku = -10 Then
      sum5 = sum5 luku
      m = m - 1
      If m = 1 Then Exit For
      End If
      Next r

      End Function

      käyttö =Sum5(A:A)

      • P.P.A.

        Kiitos funktiosta ja vaivannäöstä, nyt on vain isompi pulma se ettei VBA ole hallussa lainkaan ja siksi joudun käyttämään näitä "tavisten" kaavoja.

        Olisko antaa vihjettä mihin kohtaan kaavaan kannattaisi alkaa yrittämään IF ehtoja , ( COUNTAIF ? )

        =SUM(OFFSET($A$1;COUNTA(A:A)-5;0;5;1))


      • ...
        P.P.A. kirjoitti:

        Kiitos funktiosta ja vaivannäöstä, nyt on vain isompi pulma se ettei VBA ole hallussa lainkaan ja siksi joudun käyttämään näitä "tavisten" kaavoja.

        Olisko antaa vihjettä mihin kohtaan kaavaan kannattaisi alkaa yrittämään IF ehtoja , ( COUNTAIF ? )

        =SUM(OFFSET($A$1;COUNTA(A:A)-5;0;5;1))

        Otsikossa kaikki.


      • P.P.A.
        ... kirjoitti:

        Otsikossa kaikki.

        Tietysti otsikon sääntö toimii mutta ei haluamallani tavalla.


        Kävinkin jo kirjakaupasta hakemassa rakenna VBA-makroja. Kyllä tuo antamasi makro tulee hyötykäyttöön, voin ilmeisesti kopioida sen suoraan. Mutta kun vasta muutama tunti sitten on hommattu kirja, alkeissa ollaan kaiken suhteen.


        Kiitos ja mukavaa kesää.


    • VBA:lla ihan piece of cake, mutta normaalikaavoilla aika paha...

      ei toimi ennenkuin 5 ei 0-arvoa on alueella. Muuta aluetta tarvittaessa, tietenkin alueen vosi vielä muuttaa dynaamiseksi,mutta jääköön se sun tehtäväksi, koska sen jo osaatkin

      siis haluamaasi soluun kaava
      =SUM(OFFSET($A$1;LARGE(IF(ISNUMBER($A$1:$A$100);IF($A$1:$A$1000;ROW($A$1:$A$100)));5)-1;0;100;))

      ja muista, että kaava on matriisikaava,joten kaavarivillä ENTERin sijasta CTRL SHIFT ENTER

      Keep Exceling
      @Kunde

      • P.P.A.

        heille ken sen osaavat. Ostin ensimmäisen kirjan eilen, onhan siinä ideaa, en vain ymmärrä sitä ideaa. Tiedostin kyllä että jossain vaiheessa on se kieli opeteltava, eräpäivää on vaan siiretty.

        Juu kyllä tarvittavat muutokset pystyn tekemään jos tarvetta on. Kaava tulee tarpeeseen ->..heti..


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

    Luetuimmat keskustelut

    1. Kuka oli töllöntyön tekijä?

      Ketä on nyt pidätetty? Oliko syy mustasukkaisuus tyttöystävästä tai oliko muita lieventäviä seikkoja? Katuuko tekijä nyt
      Pieksämäki
      44
      4746
    2. Kotikasvatus siitä se lähtee eli missä meni vikaan että lapsesta tuli puukottaja

      Ottakaa muut oppia, normaali kotielämä. Ei liikaa edes hengellisyyttä.
      Pieksämäki
      56
      2595
    3. Jenkkilahkojen kastekaava

      Jenkkilahkojen yhteinen kastekaava on kirjoitettuna Mormonin Kirjaan, Moroni, luku-8 Pienten lapsien vanhempia uhataan
      Kaste
      139
      1044
    4. Pasi Turunen: Ensimmäisenä Helluntaina ei kastettu sylivauvoja!

      Tänään 31.5.2026 Pasi Turunen noin vastasi soittajan kysymykseen! Raamattu EI KERRO ketä kastettiin
      Kaste
      161
      1015
    5. Odotan sitä hetkeä

      kun nähdään taas. Tiedän, että sinäkin odotat. Kun se päivä koittaa, katseesi hakee minua. Ehkä arkailemme toisiamme väh
      Ikävä
      71
      984
    6. Leijonat Maailmanmestareita!

      Ihanaa Leijonat, ihanaa!!!
      Maailman menoa
      118
      921
    7. Olen melko vakuuttunut

      etten tule olemaan koskaan täysin onnellinen ilman sinua. En uskonut, että näin kävisi kenenkään kanssa. Kunnes sain kok
      Ikävä
      71
      904
    8. Mitä ajatuksia miehet, jos..?

      Nainen on 40v eikä ole omia lapsia?
      Ikävä
      137
      835
    9. Se mies rakastaa minua

      Ja minä rakastan häntä. 😌
      Ikävä
      48
      820
    10. Taas mietin että

      mitä ihmettä sanoisin, jos laittaisin viestiä. Aina voi toivottaa jotain, vaikka hyvää kesää, ja jos ei tule vastausta,
      Ikävä
      51
      788
    Aihe