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. 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
      74
      1349
    2. 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
      240
      1237
    3. Martina lähdössä Ibizalle

      Eikä Eskokaan tiennyt matkasta. Nyt ollaan jännän äärellä.
      Kotimaiset julkkisjuorut
      151
      1051
    4. Asiakas iski kaupassa varastelua tehneen kanveesiin.

      https://www.iltalehti.fi/kotimaa/a/33a85463-e4d5-45ed-8014-db51fe8079ec Oikein. Näin sitä pitää. Kyllä kaupoissa valtava
      Maailman menoa
      253
      1026
    5. Avustikset peruttu.

      Aettokosken ampuraan rahat otettu poekkeen valtiolle.
      Suomussalmi
      51
      755
    6. 64
      714
    7. Jos ei tiedä mitä toisesta haluaa

      Älä missään nimessä anna mitään merkkejä kiinnostuksesta. Ole haluamatta mitään. Täytyy ajatella toistakin. Ei kukaan em
      Ikävä
      62
      707
    8. Miksi mies tuntee näin?

      Eli olen mies ja ihastuin naiseen. Tykkään hänestä ja koskaan hän ei ole ollut minulle ilkeä. Silti ajoittain tunnen kui
      Ikävä
      39
      678
    9. Se nainen näyttää hyvältä vaikka painaisi 150kg

      parempi vaan jos on vähän muhkeammassa kunnossa 🤤
      Ikävä
      44
      641
    10. Määpä tiijän että rakastat

      Minua nimittäin. Samoin hei! Olet mun vastakappaleeni.
      Ikävä
      30
      597
    Aihe