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

518

    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. Useita puukotettu Tampereella

      Mikäs homma tämä nyt taas on? "Useaa henkilöä on puukotettu Tampereen keskustassa kauppakeskus Ratinan lähistöllä." ht
      Tampere
      234
      4492
    2. Kuka rääkkää eläimiä Puolangalla?

      Poliisi ampui toistakymmentä nälkiintynyttä eläintä Puolangalla Tilalta oli ollut karkuteillä lähes viisikymmentä nälkii
      Puolanka
      75
      2914
    3. Leipivaaran päällä on kuoleman hiljaista.

      Suru vai suuri helpotus...
      Puolanka
      47
      2433
    4. Meneeköhän sulla

      oikeasti pinnan alla yhtä huonosti kuin mulla? Tai yhtä huonosti mutta jollain eri tyylillä? Ei olisi pitänyt jättää sua
      Ikävä
      45
      1737
    5. Koska näit kaivattusi viimeksi

      Milloin tapasit rakkaasi? Ja etenikö suhde yhtään?
      Ikävä
      78
      1409
    6. Lähetä terveisesi kaipaamallesi henkilölle

      Vauva-palstalta tuttua kaipaamista uudessa ympäristössä. Kaipuu jatkukoon 💘
      Ikävä
      83
      1212
    7. Laitetaas nyt kirjaimet tänne

      kuka kaipaa ja ketä ?
      Ikävä
      19
      1128
    8. PS uusimman gallupin rakettimainen nousija

      https://yle.fi/a/74-20170641 Aivan ylivoimaisesti suurin kannatuksen nousu PS:lle. Nousu on alkanut ja jatkuu 2 vuoden
      Maailman menoa
      137
      939
    9. Tekiskö nainen mieli tavata...

      Viikonloppuna ja...?
      Ikävä
      69
      908
    10. Sellainen tunne sydämessä

      Että nainen olet kaivannut minua. Tai sanonko että oikeastaan koet sitä samaa nostalgiaa, kaipuuta ja mukavia muistoja,
      Ikävä
      86
      874
    Aihe