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
604
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
Suomen kansa haluaa Antti Lindtmanista pääministerin
Lindtman on miltei tuplasti suositumpi kuin etunimikaimansa Kaikkonen. Näin kertoo porvarimedian teettämä kysely. http2304123Vain 21% kannattaa Lindtmania pääministeriksi
se on selvästi vähemmän kuin puolueen kannatus, mites nyt noin?1112603Miten löydän sinut
Ja saan sanottua kaiken mitä haluan sinulle kertoa? Ja kuinka kuuntelisit minua sen hetken? Kuinka voin ilmaista sen mit382335Yöllinen autolla kaahari Heinolan seudulla
Asukkaita häiriköivän nuoren herran autokaahaus keskustelu poistettu, onko jokin hyvävelijärjestelmä käytössä ?811416Vaikea tilanne
Hieman kolkuttaa omatuntoa, kun on osoittanut kiinnostusta väärää naista kohtaan. En ymmärrä miten toinen on voinut te1121362- 481159
- 761059
- 59933
- 45916
Emme koskaan keskustelleet kasvotusten syistä välirikollemme
Enkä voisi kertoa perimmäistä rehellistä syytä. Kerroin sinulle pintapuolisen ”paketin” ja otin tavallaan omalle vastuu58901