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

304

    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. Jos nainen harrastaa seksiä

      Useiden kanssa, miten se eroaa miesten mielestä siitä, jos miehellä on ollut useita s kumppaneita? Oletan että kaikki mi
      Ikävä
      348
      3658
    2. Ikävöin sinua kokoyön!

      En halua odottaa, että voisin näyttää sinulle kuinka paljon rakastan sinua. Toivon, että uskot, että olen varsin hullun
      Ikävä
      19
      2388
    3. Pihlaja-puulle

      Illat on mulle pahimpia. En tiiä miks se olis vaan parasta yöstä toiseen nukkua sun kanssa ja herätä sun kasvoihin. Jos
      Ikävä
      15
      1970
    4. Päivieni piristys, missä olet?

      Toit iloa ja valoa mun elämään ☀️ Nyt mennyt kohta viikko ettei ole nähty. Kaipaan nähdä sua silti ja pelkään vaikka tei
      Ikävä
      14
      1655
    5. Kova karman laki

      Karman lain kautta pahantekijä tehdessään pahaa toteuttaa koston ja rangaistuksen sille jolle pahaa on tehty. Tämä tarko
      Hindulaisuus
      417
      1552
    6. Kysymys Kuhmolaisille

      Hei. Olen 32 vuotias nainen ja muutin Kuhmoon noin 12 vuotta sitten. Mutta nyt täytyy ihmetellä ihan ääneen että onhan t
      Kuhmo
      41
      1509
    7. Savimajasta lääketieteen tohtoriksi - ja ei tikkua ristiin

      ”Jos ihminen muuttaa savimajasta tänne kerrostaloon länsimaisen elintason piiriin ilman että tarvitsee panna tikkua rist
      Maahanmuutto
      282
      1468
    8. Älä mahdollisesti ota itseesi

      En voinut tietää. Sitäpaitsi.. niin
      Ikävä
      17
      1324
    9. Olen valtavan ihastunut

      Yritin sen sinulle viime viikolla kertoa, mutta liikaa muuttujia ja isoja tunteita, niin en kyllä ollut kovin selkeä.
      Ikävä
      63
      1126
    10. Ota nainen yhteyttä ja tee Tikusta asiaa?

      Niin sitten minä teen Takusta asiaa.
      Ikävä
      17
      1048
    Aihe