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
474
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
- 1013751
Satuit vain olemaan
Ensimmäinen joka avasi minussa sen nähdyksi ja rakastetuksi tulemisen puolen. Pitäisi vain muistaa että et ole ainoa. Se482681- 1142509
24/7 sinä mielessä, ihan jatkuvalla syötöllä
Aamulla herätessä, päivällä melkein nonstop, illalla nukkumaan mennessä, öisin herätessä. Mikä viddu tässä on 🤣392008Jotain pitää nyt keksiä että sinut näkisi
Ensiviikolla viimeistään. Tälle on pakko saada kunnon piste tai sitten aloitetaan loppuelämä yhdessä, tulen hulluksi muu301787Mulla tulee vaan niin
Paha olo siitä mitä teidän välillä on. Vaikka se on sun päätös mitä haluat. Tuntuu että menetän jotakin vaikka tiedän et221561- 271542
- 221348
Mitkä olivat viimeiset sanasi ikävoinnin kohteellesi
Ja milloin? Mitä olisit sanonut jos olisit tiennyt että ne jäävät viimeisiksi -ainakin toistaiseksi?701285Olikohan se
Kuitenkin niin, että kiinnostuit minusta ihan tosissaan. Loukkaannuit, kun en ollutkaan valmis tapaamaan sinua.. Pelkäsi81271