Solun arvon päivityksestä muutos-prosentti toiseen soluun

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.

Anonyymi00003 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

Anonyymi00004 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?

Anonyymi00004 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!

Anonyymi00005 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

Anonyymi00008 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)

Kun 100 korotetaan 120 se on 220.