Laskuri

Josie86

Onko Exceliin mahdollista saada laskuritoimintoa joka laskisi yhteen ennalta sovittuun soluun lisätyt peräkkäiset luvut ja näyttäisi lukujen summan/erotuksen toisessa solussa?

Esimerkiksi jos laittaisin ensiksi soluun A1 luvun 5 ja sen jälkeen luvun 3 ja sitten luvun 6 niin solussa A2 olisi tämän jälkeen lukema 14. Eli vanha luku ei "katoaisi" mihinkään vaan pysyisi jossain muistin sopukoissa.

Onkohan moinen mahdollista?

6

1200

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • 20+11

      kokeile.

    • ko taulukon moduuliin...

      Private Sub Worksheet_Change(ByVal Target As Range)
      'laskee solun A1 arvoja soluun C1
      If Not Intersect(Target, Range("A1")) Is Nothing Then
      Range("C1") = Range("C1") Target
      End If
      End Sub

      • OpenOfficen Basiciin jonkunverran tutustuneena meni aikaa ja virtuaalitupakkaa, että tuon ymmärsi.
        Eipä sillä, että sitä ainakaan minun tarvitsisi ymmärtääkään (kunhan se toimii), mutta tuo Target-olio vaikuttaa aika kätevältä.

        Niin esimerkkinä tupakan kulumiesta on tuo:
        If Not Intersect(Target, Range("A1")) Is Nothing

        joka siis tarkoittanee, että jos alueet leikkaavat, mutta Not Intersect sanois ihan kuin ei leikkaa.


      • tuttumies kirjoitti:

        OpenOfficen Basiciin jonkunverran tutustuneena meni aikaa ja virtuaalitupakkaa, että tuon ymmärsi.
        Eipä sillä, että sitä ainakaan minun tarvitsisi ymmärtääkään (kunhan se toimii), mutta tuo Target-olio vaikuttaa aika kätevältä.

        Niin esimerkkinä tupakan kulumiesta on tuo:
        If Not Intersect(Target, Range("A1")) Is Nothing

        joka siis tarkoittanee, että jos alueet leikkaavat, mutta Not Intersect sanois ihan kuin ei leikkaa.

        If Not Intersect(Target, Range("A1")) Is Nothing
        joka siis tarkoittanee, että jos alueet leikkaavat, mutta Not Intersect sanois ihan kuin ei leikkaa.

        eli ei leikkaus(aktiivinen solu ja tarkasteltava solualue/solut) ei ole mitään

        eli jos leikkaa- ei oo mitään =FALSE ja ei kääntää sen TRUE ja koodi suoritetaan...
        jos ei leikkaa- ei oo mitään on =TRUE ja ei kääntää sen FALSE ja koodia ei suoriteta

        leikkauksessa -argumenttejä voi olla muistaakseni 30 kpl ja jos nimettyjä alueita käyttää niin melkoisen alueen saa katettua
        leikkasiko ;-)

        kepp Excelling
        @Kunde


    • pohtijaja

      Vaikka onkin jo vanha keskustelu, niin lisään oman kyssärin tähän.

      Saako tolla samalla koodilla tehtyä sellasen, että siirtää kahteen soluun solussa C1 olleiden lukujan min ja maks arvot?

      Vaikkapa seuraavanlaisessa tilanteessa:
      solussa C1 olleita arvoja: 2; 5; 6; 2,5; 10; 3,8; 7
      Solussa E1 olis arvo 2,5 ja F1 olis arvo 10.

      • ...

        Private Sub Worksheet_Change(ByVal Target As Range)

        If Not Intersect(Target, Range("C1")) Is Nothing Then
        If Target < Range("E1") Then Range("E1") = Target
        If Target > Range("F1") Then Range("F1") = Target
        End If
        End Sub

        ?


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

    Luetuimmat keskustelut

    1. Miksi persuilla ei ole firmoja?

      Kuten vasemmisstolaisilla, esim. Sannalla MA\PI. Eikö ole aika erikoista?
      Maailman menoa
      82
      7086
    2. Persut hommasivat Suomeen 35 000 pientä lasta v. 2015

      Onko Riikka Purra nyt tavoittelemassa tätä samaa historiallista persujen utopiaa? Purram kaksinaamaisessa pelissä vaadit
      Maailman menoa
      26
      7043
    3. Purran tuhoja tuskin saadaan koskaan korjatuksikaan

      Purra on aiheuttanut Suomen taloudelle karmaisevat tuhot. Sen lisäksi Purra on ajanut myös suuren osan Suomen kansasta k
      Maailman menoa
      107
      6156
    4. Persujen kaksoisstandardit: Räsäsen uhkailu paha, Virran uhkailu hyvä

      Tässä taas nähdään kuinka kaksinaamaista porukkaa persut ovat. Mitäs persut tähän?
      Maailman menoa
      45
      5394
    5. Miksette persut irtisanoudu Kirkin lausunnoista?

      Kirkhän muun muassa vaati raiskattuja naisia pidättäytymään abortista ja vaimoja alistumaan aviomiestensä tahtoon. Mik
      Maailman menoa
      84
      5228
    6. Demarikultin uhri kertoo

      Demarikultin uhri kertoo: “En saanut mennä edes suihkuun ilman lupaa” – Seksuaalisen hyväksikäytön uhri kertoo vuosistaa
      Maailman menoa
      63
      5185
    7. Miksi vasemmistolaiset eivät omista yhtään firmaa?

      Vasemmistolaiset eivät omista yhtään firmaa joka työllistäisi ihmisiä. Miksi? No siksi, että jos vasemmistolainen perus
      Maailman menoa
      40
      5098
    8. Sanna valittiin Euroopan huonoimmaksi pääministeriksi

      Sannan kaudella Suomi oli ainut maa missä bkt laski. Kannattaa huomata, että luvut valitsi Sannan huonoimmaksi. Ihmiset
      Maailman menoa
      27
      4585
    9. Purran vuoro kiihoittua Lepomäen sääristä

      "Ulkoministeri Elina sanoo, ettei muuta pukeutumistaan sen mukaan, kenet tapaa, ja että hän ei suostuisi peittämään kasv
      Maailman menoa
      16
      3457
    10. Vasemmistolaiset paskat eivät nousseet seisomaan kun Akaan kaupunginvaltuusto

      vietti hiljaisen hetken Charlie Kirkin muistoksi https://www.aamulehti.fi/uutiset/art-2000011523016.html
      Maailman menoa
      300
      3370
    Aihe