Solun arvon päivityksestä muutos-prosentti toiseen soluun

Anonyymi-ap

Miten tehdään viereiseen soluun prosenttilukema siitä paljonko päivitetty arvo on prosentteina vanhasta arvosta. Prosenttilaskuna tuo on helppo, mutta kun se vanha arvo pyyhkiytyy pois kun se korvataan uudella arvolla.

10

229

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Anonyymi

      Mitä oikein haluat, eikö alkuperäinen ja laskettu arvo voisi olla eri soluissa? Jos arvon kirjoittaa vanhan päälle, tottakai se häviää.

      • Anonyymi

        Se on uusi arvo, ei mikään laskettu arvo, ja sitä päivitetään joka päivä. Seurataan siis trendiä, onko se nouseva vai laskeva.


      • Anonyymi
        Anonyymi kirjoitti:

        Se on uusi arvo, ei mikään laskettu arvo, ja sitä päivitetään joka päivä. Seurataan siis trendiä, onko se nouseva vai laskeva.

        Siis on yksi arvo, joka muuttuu päivittäin ja toiseen soluun tulee montako prosenttia se on muuttunut edellisestä. Kopioi tämä ko. taulukon moduliin:

        Private Sub Worksheet_Change(ByVal Target As Range)
            muuttuva = "C2"
            muutos = "D2"
            Dim vanha
            
            On Error GoTo loppu:
            
            If Not (Intersect(Target, Range(muuttuva)) Is Nothing) Then
                Application.EnableEvents = False
                Application.Undo
                vanha = Range(muuttuva)
                Application.Undo
                Range(muutos) = (Range(muuttuva) - vanha) / vanha
            End If
            
        loppu:
            Application.EnableEvents = True
        End Sub


      • Anonyymi
        Anonyymi kirjoitti:

        Siis on yksi arvo, joka muuttuu päivittäin ja toiseen soluun tulee montako prosenttia se on muuttunut edellisestä. Kopioi tämä ko. taulukon moduliin:

        Private Sub Worksheet_Change(ByVal Target As Range)
            muuttuva = "C2"
            muutos = "D2"
            Dim vanha
            
            On Error GoTo loppu:
            
            If Not (Intersect(Target, Range(muuttuva)) Is Nothing) Then
                Application.EnableEvents = False
                Application.Undo
                vanha = Range(muuttuva)
                Application.Undo
                Range(muutos) = (Range(muuttuva) - vanha) / vanha
            End If
            
        loppu:
            Application.EnableEvents = True
        End Sub

        Tuotapa täytyykin kokeilla.
        Entä jos niitä päivitettäviä arvoja on samassa sarakkeessa useita rivejä allekkain, on jokaiselle riville on kirjoitettava oma koodi.
        Vai voisiko olla niin että ohjelma kävisi läpi tietyn alueen sarakkeesta silmukkana, ja toteuttaisi vain sen rivin missä arvon päivitys tapahtuu?


      • Anonyymi
        Anonyymi kirjoitti:

        Siis on yksi arvo, joka muuttuu päivittäin ja toiseen soluun tulee montako prosenttia se on muuttunut edellisestä. Kopioi tämä ko. taulukon moduliin:

        Private Sub Worksheet_Change(ByVal Target As Range)
            muuttuva = "C2"
            muutos = "D2"
            Dim vanha
            
            On Error GoTo loppu:
            
            If Not (Intersect(Target, Range(muuttuva)) Is Nothing) Then
                Application.EnableEvents = False
                Application.Undo
                vanha = Range(muuttuva)
                Application.Undo
                Range(muutos) = (Range(muuttuva) - vanha) / vanha
            End If
            
        loppu:
            Application.EnableEvents = True
        End Sub

        Koodi toimii juuri halutulla tavalla, thx!


      • Anonyymi
        Anonyymi kirjoitti:

        Tuotapa täytyykin kokeilla.
        Entä jos niitä päivitettäviä arvoja on samassa sarakkeessa useita rivejä allekkain, on jokaiselle riville on kirjoitettava oma koodi.
        Vai voisiko olla niin että ohjelma kävisi läpi tietyn alueen sarakkeesta silmukkana, ja toteuttaisi vain sen rivin missä arvon päivitys tapahtuu?

        Tämä laskee muutoksen muuttuneen solun vasemmalle. Oletuksena on, että vain yksi arvo muuttuu kerrallaan. Kaikkien läpikäynti ehdottamallasi tavalla tulee kyseeseen vain, jos kaikki alueen arvot muuttuvat. Muuten, vaikka vain yksi muuttuu, kaikkien muiden muutosprosentti menne nollaksi.

        Private Sub Worksheet_Change(ByVal Target As Range)
            Const muuttuva = "C2:C10"
            Dim vanha, r, c
            
            On Error GoTo loppu:
            If Target.Count = 1 And Not (Intersect(Target, Range(muuttuva)) Is Nothing) Then
                r = Target.Row
                c = Target.Column
                Application.EnableEvents = False
                Application.Undo
                vanha = Cells(r, c)
                Application.Undo
                Cells(r, c + 1) = (Cells(r, c) - vanha) / vanha
            End If
            
        loppu:
            Application.EnableEvents = True
        End Sub


      • Anonyymi
        Anonyymi kirjoitti:

        Tämä laskee muutoksen muuttuneen solun vasemmalle. Oletuksena on, että vain yksi arvo muuttuu kerrallaan. Kaikkien läpikäynti ehdottamallasi tavalla tulee kyseeseen vain, jos kaikki alueen arvot muuttuvat. Muuten, vaikka vain yksi muuttuu, kaikkien muiden muutosprosentti menne nollaksi.

        Private Sub Worksheet_Change(ByVal Target As Range)
            Const muuttuva = "C2:C10"
            Dim vanha, r, c
            
            On Error GoTo loppu:
            If Target.Count = 1 And Not (Intersect(Target, Range(muuttuva)) Is Nothing) Then
                r = Target.Row
                c = Target.Column
                Application.EnableEvents = False
                Application.Undo
                vanha = Cells(r, c)
                Application.Undo
                Cells(r, c 1) = (Cells(r, c) - vanha) / vanha
            End If
            
        loppu:
            Application.EnableEvents = True
        End Sub

        Toimii tämäkin. 👍
        Yksi kerrallaan noita arvoja käsin päivitellään, ei kerralla copy-paste menetelmällä.
        Jos haluaa vielä entisenkin arvon näkyville muistin tueksi, sen saa excel-kaavalla =C2/(((D2*100)+100)/100)


    • Anonyymi
    • Anonyymi

      Ei ole prosenttilasku ihan niin yksinkertaista kuin luulisi. Kun 100 korotetaan 120, on se 20 % korotus, mutta kun se alennetaan takaisin 100, onkin alennus vain16,67 %
      Pitäisi kehittää joku bisnesidea että tuolla erotuksella pystyisi tekemään tilin... 😏

      • Anonyymi

        Kun 100 korotetaan 120 se on 220.


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

    Luetuimmat keskustelut

    1. Suureksi onneksesi on myönnettävä

      Että olen nyt sitten mennyt rakastumaan sinuun. Ei tässä mitään, olen kärsivällinen ❤️
      Ikävä
      88
      1914
    2. Perusmuotoiset TV-lähetykset loppu

      Nyt sanoo useiden HD-muotoistenkin kanavien kohdalla äly-TV, ettei kanava ole käytössä, haluatko poistaa sen? Kanavia
      Apua aloittelijalle
      166
      1395
    3. YLE Äänekosken kaupunginjohtaja saa ankaraa arvostelua

      Kaupungin johtaja saa ankaraa kritiikkiä äkkiväärästä henkilöstöjohtamisestaan. Uusin häirintäilmoitus päivätty 15 kesä
      Äänekoski
      71
      1192
    4. No ei sun asunto eikä mikään

      muukaan sussa ole erikoista. 🤣 köyhä 🤣
      Ikävä
      66
      1037
    5. Hyvin. Ikävää nainen,

      Että vainoat ja stalkkaat miestäni.onko tarkoituksesi ehkä saada meidät eroamaan?no,siinä et tule onnistumaan
      Ikävä
      84
      987
    6. Martina lähdössä Ibizalle

      Eikä Eskokaan tiennyt matkasta. Nyt ollaan jännän äärellä.
      Kotimaiset julkkisjuorut
      135
      897
    7. Uskomaton tekninen vaaliliitto poimii rusinoita pullasta

      Korni näytösesitelmä menossa kaupunginvaltuustossa. Juhlia ei ole kokouksista tiedossa muilla, kuin monipuolue paikalli
      Pyhäjärvi
      88
      881
    8. Euroopan lämpöennätys, 48,8, astetta, on mitattu Italian Sisiliassa

      Joko hitaampikin ymmärtää. Se on aivan liikaa. Ilmastonmuutos on totta Euroopassakin.
      Maailman menoa
      197
      867
    9. Katsoin mies itseäni rehellisesti peiliin

      Ja pakko on myöntää, että rupsahtanut olen 😆. Niin se ikä saavuttaa meidät kaikki.
      Ikävä
      50
      860
    10. Linnasuolla poliisi operaatio

      Kamalaa menoa taas meidän ihanassa kaupungissa. https://www.uutisvuoksi.fi/paikalliset/8646060
      Imatra
      29
      846
    Aihe