"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. 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
      148
      4909

    2. 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
      17
      3547

    3. 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
      158
      3357

    4. 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
      32
      2828

    5. Unisex-vessat

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

    6. 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
      18
      1863

    7. 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ä
      8
      1498

    8. Henri Alen tilittää yllättäen Vappu Pimiän uudesta MasterChef -pestistä: "Vaikka hän ei..."

      Vappu Pimiä on uusi MasterChef Suomi -tuomari. Hän liittyi uudella MasterChef Suomi -kaudella arvovaltaiseen tuomaristoo
      Suomalaiset julkkikset
      10
      1472

    9. Vastuun ottaminen omasta hyvinvoinnista

      Olen huomannut tuttavapiirissäni ihmisiä, joilla on mt-diagnooseja. Sen sijaan, että millekään asialle yritettäisiin teh
      Henkinen hyvinvointi ja mielenterveys
      140
      1406

    10. Minkä kouluarvosanan 4-10 annat Beck-leffoille?

      Vähiin käy ennen kuin loppuu... Beck-elokuvia on tullut tv:stä jopa 2-3 viikossa. Nyt leffojen esitystiheys on muuttunut
      Elokuva
      11
      1267
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt