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.
Vastaukset 11
- 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 SubTuotapa 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 SubKoodi 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 SubToimii 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
tossa ohjeet
https://www.youtube.com/watch?v=0Il709AtHKk - 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
Miksi vanhusraiskaajaa ei ole palautettu?
Ukkola kysyy Rantaselta, vaikka perussuomalaiset ovat olleet hallituksessa kolme ja puolivuotta. Rantasen vastaus on "3201388Suomi meni ihan itse sössimään peruskoulunsa
Nyt syytellään maahanmuuttoa, vaikka ihan itse lopetettiin vaatimaan oppilailta koulunkäynnin tarkoitus eli opiskelu ja3291313- 1041087
Tuli paha mieli miten kaikki meni meillä
Harmittaa myönnän sen, kun molemmilla oli selvästi toiveita ennen kuin sukset meni ristiin. Olen jäässä. 😔50998- 105981
- 106930
- 111792
Katri Helena rikkoi hiljaisuuden dramaattisella uutisella: "Elossa ja ilossa ollaan"
Katri Helena on sinivalkoinen ääni. Hänen klassikkohittinsä ovat tärkeä osa suomalaista kansanperintöä. Katri veti jääh22777- 69631
Anni Ihamäki ja Ilkka-rakas vetivät tiukan rajan TTK:ssa: "Kyllä spekuloitiin"
Anni Ihamäki on naimissa Ilkka Ihamäen kanssa. Aviopuoliso tunnetaan myös nimellä Hovimuusikko Ilkka. Heillä on kaksi yh5627