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.
Solun arvon päivityksestä muutos-prosentti toiseen soluun
Anonyymi-ap
10
578
Vastaukset
- 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
IL - PerSut tykittää - Vaaralliset tappajat vankilaan jopa loppuelämäksi!!
Entistä rajumpi elinkautinen tulee – Vaaralliset tappajat vankilaan jopa loppuelämäksi Henkirikosten uusijat voidaan ja17322269Some kuhisee Sanna Marinista: "Wau"
Sanna Marinia hehkutetaan. Muun muassa Jodelissa kommentoidaan The Sunday Timesin julkaisemaa kuvaa Marinista. Hän ant749476Sannalla tänään vuorossa The Daily Show
Eli nyt mennään jo satiirin puolelle. Tuohan on vähän kuten Lindströmin ohjelma Suomessa.297470Äärioikeistopurran nukke Petteri Lapanen paniikissa
Kun Suomen historian paras pääministeri antoi vankan lausunnon, kuinka "keskustelu politiikassa on käpertynyt lähinnä va806315SIELTÄ SE TULI: Kepu-Kurvinen: "Emme enää lähde punavihreään hallitukseen"
Nyt muuten nauretaan loppuviikko, että tähänkö kaatui Lindtmanin pääministerihaaveet. "Antti Kurvisen mukaan puolue ei1825940Täysi ryöpytys Sanna Marinille ulkomailla.
https://www.iltalehti.fi/ulkomaat/a/f699d84f-fa53-4dba-8718-2c395017fc55 Sanna Marinin kirja saa todella tylyn vastaanot344956HS - Sanna Marinin kirja on priimaluokan vedätys!
Kirja-arvio|Toivo on tekoja tulisi ensisijaisesti nähdä maineen rahallisen hyödyntämisen voimaannuttavana merkkipaaluna.1084610Minja Koskelan "istumista" kertovassa uutisessa ei sanottu persuista mitään
eli jälleen kerran äärivasemmistolainen valehtelee, hän kun väittää että juuri persut ovat lähetelleet Koskelalle vähemm1014366Pekka Visuri: "Suomen on aika irrottautua Ukrainan sodasta"
Slava Ukraina-mölinät eivät enää auta. Ukraina on sotansa hävinnyt. Nyt tarvitaan poliittista selvänäköisyyttä, reaalipo852036Marin vetäs lopullisesti maton alta hallitusyhteistyöltä Kepun kanssa
Kurvinen on jo ennättänyt kommentoimaan, ettei Kepu ole koskaan enää kiinnostunut vasemmiston kanssa hallituspaikasta, k781332