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

1199

    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. Sanna niin nättinä Amsterdamin Business Foorumilla

      Upeasti edustaa taas Suomea ulkomailla meidän kansainvälinen superstaramme. Miksei persuilla ole ketään siedettävän näk
      Maailman menoa
      175
      10073
    2. Stubb jo paljon tunnetumpi kuin kaikki persut yhteensä

      Nyt on aika ottaa mittaa tunnettavuudesta, herrat ja narrit! Joku tuolla toisessa ketjussa väitti, että "persujen rivimi
      Maailman menoa
      9
      9580
    3. Työeläkkeiden maksaminen on lopetettava

      Suomen talous on palkansaajien vuosikausia heikentyneen ostovoiman vuoksi niin kuralla, että palkkasumman jakamisessa ta
      Maailman menoa
      154
      8121
    4. Sofia Virran pahoinpitelyä puolustetaan netissä

      HS soitti Virran pahoinpitelyä puolustaneille https://www.hs.fi/politiikka/art-2000011516353.html
      Maailman menoa
      267
      7616
    5. Purra tekee hyvää työtä, me suomalaiset haluamme että hän jatkaa myös

      seuraavan hallituksen valtiovarainministerinä. Kovina aikoina pitää olla kova.
      Maailman menoa
      153
      6289
    6. Koska Minja Koskela ja Sofia Virta kääntyy islamiin?

      Sekä vihreät että vasurit selvästi pitävät islamista ja muslimeista, varsinkin naiset, joten voidaan olettaaa että nuo k
      Maailman menoa
      87
      6017
    7. Persu Keskisarja on politiikan Uuno Turhapuro

      Asiantuntija luonnehtii Keskisarjaa Trumpin ajan Turhapuroksi, joka ärsyttää kokoomusta. – Keskisarjan känni-imago j
      Maailman menoa
      62
      5846
    8. Stubb jo paljon tunnetumpi ja arvostetumpi maailmalla, kuin Marin koskaan

      Stubb tekee sitä työtä mitä pitää, hän ei koreile vaatteilla eikä ole baareissa räkäposkella kuten Marin. Marininhan pit
      Maailman menoa
      99
      4902
    9. Oikeistohallitusten aikaan saannokset.

      Holkerin touhujen seurauksena lama. Aho jatkoi tuhoa osaamattomuudellaan. Katainen ja alkoi talouden alamäki. Sipilä ja
      Maailman menoa
      18
      3984
    10. Pelle Miljoona, 70, saa harvinaista taiteilijaeläkettä - Tämän suuruinen eläke on kuussa!

      Pelle Miljoona on kyllä symppis! Peace! Suomen punk-konkari Pelle Miljoona on yksi syksyn Vain elämää -kauden artisteist
      Vain elämää
      58
      1633
    Aihe