"Kelluva rivi"?

kaavoittaja.

Taulukko, jossa on vaikkapa 6 saraketta ja 10 riviä. Alin rivi on kaavarivi jossa lasketaan yläpuolisten solujen summa, keskiarvo, jne. Onko mahdollista tehdä kaavarivistä ikään kuin kelluva eli kun riviin/soluun tulee tietoa niin Excel lisää automaattisesti uuden tyhjän rivin ko. rivin/solun alapuolelle ja kaavarivi "painuu alemmas"?

4

740

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • tuttumies

      Jos sijoitat summa/koosterivin varsinaisen aineistosi yläpuolelle, niin ko. ongelma häviää "kuin taikaiskusta". Varsinkin, jos huolehdit kaavojen riittävistä aluelaajuuksista alaspäin.

      Jos vältämättä haluat ko. yhteenvetorivin olevan aineiston alapuolella, niin ehkä pääset jonkinlaiseen tulokseen jakamalla taulukon jostain n. rivin 1000 kohdalta. Summarivinä on siis rivi 1001 ja sen yläpuolella oleva taulukon osa rullaa.

      • kunde

        taulukon moduuliin...

        Private Sub Worksheet_Change(ByVal Target As Range)
        Dim vika As Long
        On Error Resume Next
        Application.EnableEvents = False
        vika = Cells.Find(What:="*", After:=[A1], SearchDirection:=xlPrevious).Row
        Range("A" & vika).EntireRow = ""
        vika = Cells.Find(What:="*", After:=[A1], SearchDirection:=xlPrevious).Row
        Range("A" & vika 2).FormulaR1C1 = "=SUM(R[-21]C:R[-1]C)"
        Range("B" & vika 2).FormulaR1C1 = "=SUM(R[-21]C:R[-1]C)"
        Range("C" & vika 2).FormulaR1C1 = "=SUM(R[-21]C:R[-1]C)"
        'näyttää 5 viimeistä tietoa, muuta lukua
        Application.GoTo Range("A" & vika - 4), True
        Application.EnableEvents = True
        End Sub

      • kunde
        kunde kirjoitti:

        taulukon moduuliin...

        Private Sub Worksheet_Change(ByVal Target As Range)
        Dim vika As Long
        On Error Resume Next
        Application.EnableEvents = False
        vika = Cells.Find(What:="*", After:=[A1], SearchDirection:=xlPrevious).Row
        Range("A" & vika).EntireRow = ""
        vika = Cells.Find(What:="*", After:=[A1], SearchDirection:=xlPrevious).Row
        Range("A" & vika 2).FormulaR1C1 = "=SUM(R[-21]C:R[-1]C)"
        Range("B" & vika 2).FormulaR1C1 = "=SUM(R[-21]C:R[-1]C)"
        Range("C" & vika 2).FormulaR1C1 = "=SUM(R[-21]C:R[-1]C)"
        'näyttää 5 viimeistä tietoa, muuta lukua
        Application.GoTo Range("A" & vika - 4), True
        Application.EnableEvents = True
        End Sub

        oikeasti vaikka näin...

        Private Sub Worksheet_Change(ByVal Target As Range)
        Dim vika As Long
        Dim kaava As String
        On Error Resume Next
        Application.EnableEvents = False
        vika = Cells.Find(What:="*", After:=[A1], SearchDirection:=xlPrevious).Row
        Range("A" & vika).EntireRow = ""
        vika = Cells.Find(What:="*", After:=[A1], SearchDirection:=xlPrevious).Row
        kaava = "A1:A" & vika
        Range("A" & vika 2).Formula = "=SUM(" & kaava & ")"
        kaava = "B1:B" & vika
        Range("B" & vika 2).Formula = "=COUNTA(" & kaava & ")"
        kaava = "C1:C" & vika
        Range("C" & vika 2).Formula = "=AVERAGE(" & kaava & ")"
        'näyttää 5 viimeistä tietoa, muuta lukua
        Application.GoTo Range("A" & vika - 4), True
        Application.EnableEvents = True
        End Sub

      • kaavoittaja
        kunde kirjoitti:

        oikeasti vaikka näin...

        Private Sub Worksheet_Change(ByVal Target As Range)
        Dim vika As Long
        Dim kaava As String
        On Error Resume Next
        Application.EnableEvents = False
        vika = Cells.Find(What:="*", After:=[A1], SearchDirection:=xlPrevious).Row
        Range("A" & vika).EntireRow = ""
        vika = Cells.Find(What:="*", After:=[A1], SearchDirection:=xlPrevious).Row
        kaava = "A1:A" & vika
        Range("A" & vika 2).Formula = "=SUM(" & kaava & ")"
        kaava = "B1:B" & vika
        Range("B" & vika 2).Formula = "=COUNTA(" & kaava & ")"
        kaava = "C1:C" & vika
        Range("C" & vika 2).Formula = "=AVERAGE(" & kaava & ")"
        'näyttää 5 viimeistä tietoa, muuta lukua
        Application.GoTo Range("A" & vika - 4), True
        Application.EnableEvents = True
        End Sub

        Kiitos vastauksesta. Kokeilin asentaa tuota, mutta en saanut sitä toimimaan.


        Nyt tarvitaan hieman rautalankaa... Office 2010 käytössä.

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

    Takaisin ylös

    Luetuimmat keskustelut

    1. Eutanasia?

      Kertokaas omia mielipiteitä eutanasiaan liittyen. Onko mielestäsi oikein vai väärin ja miksi?
      Arvot ja etiikka
      5
      12386

    2. Eutanasia - miksi eläimelle sallitaan armokuolema, mutta ihmiselle ei?

      Olen pitkään ihmetellyt yhtä asiaa Suomessa. Kun koira kärsii parantumattomasta sairaudesta ja kovista kivuista, eläinlä
      Arvot ja etiikka
      4
      11163

    3. Riikka Purran kaudella nousi bensan hinta yli 2 euron

      Muistatteko kuinka edellisen vasemmistohallituksen aikana, ns. Marinin aikakaudella, bensiiniä sai 1,3 euron litrahinnal
      Maailman menoa
      175
      5085

    4. Veli Sofia teki urosmehiläisen työn

      Paljastaessaan kuinka TPS:ssä ei joukkuehenki toimi sooloilijoiden vuoksi, jonka takia koko seura ei pärjää kilpailussa
      Maailman menoa
      28
      3699

    5. Mitäs nyt sijoittajat?

      Pörssit laskevat maailmalla Iranin sodan takia ja muutenkin ovat olleet Trumpin vallan alla epävarmat. Ainoa, mikä on no
      Maailman menoa
      196
      3534

    6. Hjallis Harkimon, 72, Jasmine-rakas, 37, paljastaa suhteen alusta: "Vähän..."

      Liikemies, kansanedustaja Hjallis Harkimo ja tuottaja-juontaja Jasmine Pajari ovat pariskunta. He asuvat yhdessä Sipooss
      Suomalaiset julkkikset
      46
      3080

    7. Unisex-vessat

      Ahdistaa. Miksi kaikki pitää tasapäistää tasa-arvon nimissä? Tasa-arvo on sitä, että kunnioitetaan sukupuolien erilaisu
      Tunteet
      108
      2809

    8. Jäit kiinni siitä

      että katselet minua. Käänsin pääni, minäkin etsin sinua, ja meidän katseemme kohtasivat. Eikä se haittaa - molemmat ky
      Ikävä
      13
      2278

    9. Sosiaalidemokratia romahtanut kautta maailman

      nuoret eivät enää kannata järjetöntä aatetta, joten demarien täytyy hakea kannattajia mamuista. Ruotsin sos.demit jo kie
      Maailman menoa
      38
      2135

    10. Jutta Larm, 52, haluaa kumota tämän piintyneen ikämyytin

      Oletko samaa mieltä? Jutta Larm on 52-vuotias ja tehnyt pitkän uran yrittäjänä. Hän haluaa kumota tämän piintyneen ikämy
      50 plus
      19
      1955
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt