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
11
692
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
Vesikin maksaa, miksei hengitysilma?
Jatkuvasti itketään ettei ole rahaa mihinkään, mutta tilastojen mukaan rahaa on enemmän kuin koskaan, joten miksei asial201781Satuolennoista tarinointi ei kuulu peruskoulun tehtäviin
Opetustunteja on muutenkin käytössä vain rajallinen määrä. Eli nämä satuhommat koulun ulkopuolelle vapaaehtoisiin harras1561779Suomalainen perheenisä vaatii Suvivirren esittämisestä hyvityksiä
Itse lapsena uskonnonopetuksesta vissiin traumoja saanut ihka suomalainen (!) perheenisä vaatii Espoon kaupungilta korva3321470Lahkokasteen ja kristillisen kasteen erot
Raamatun mukaan Kristillisessä yhdessä kasteessa Jumala pesee ja puhdistaa ihmisen sydämen ja poistaa perisynnin kirouks4221118Mies profiloin sinut
Etsit täysin hallittavaa mutta samalla poikkeuksellista ihmistä. Etsit jotain mitä et koskaan tule saamaan.2091112- 1421096
- 285985
- 11975
Heikki Paasosen Marita-vaimo jätti tunteikkaat jäähyväiset: "Tällä kertaa me..."
Heikki Paasonen on naimisissa Marita Paasosen (os. Alatalo) kanssa ja heillä on kaksi pientä lasta. Nyt koitti aika jätt4959Pirkanlinna yleisötapahtuma
Oli todella hyvä tilaisuus. Ja EERO. L. Aivan mahtava tyyppi. Veti rennosti ja asiallisesti. Ja yleisöltä hyviä kysymyks49918