Hei,
olen tehnyt excel(2013) pohjaista laskuria ja minulla olisi pieni ongelma:
Laskurin pitää pystyä käsittelemään 50-vuoden pitoajalle asti investointeja.
Kaavion käppyrät piirtyvät aivan oikein, mutta tuo x-akseli on nyt ongelma.
X-akselin alueeksi kaaviossa on otettu alue tuonne 50 vuoteen asti ja JOS lauseella on näkyviin jätetty vain valittuun pitoaikaan asti luvut. Jos esimerkiksi syöttötietona on pitoajalle laitettu 30 vuotta, niin kuvaaja jättää tyhjää tilaa valmiiksi sinne 50 vuoteen asti (x-akselille), joka on korkein mahdollisen ”investoinnin pitoaika” laskurissa.
Nämä tyhjät, valmiiksi varatut, tilat pitäisi siis saada jäämään automaattisesti pois...
Ei siis skaalaa oikein, vaikka esimerkiksi vuodesta 31-50 tuloksena on ""/PUUTTUU()/jne.
Ratkaisuna ei ole naputella turhia pois kaavion asetuksista, vaan tuo pitäisi saada toimimaan automaattisesti.
Jos joku ymmärsi, mitä ajan takaa ja osaisi auttaa :)
Tanja
X-aks. skaalaus autom, ku mahd valita luvut 0-50 vuotta? Ongelma: nyt varaa tilaa 50v asti akselille
1
109
Vastaukset
- Tämmöinen
Määrittele nimetyt alueet x_arvot ja y_arvot (Formulas - Name manager) ja laita nimet sivukohtaisiksi. Käytä kaaviossa näitä nimiä:
=SERIES(Sheet1!$D$1; Sheet1!x_arvot; Sheet1!y_arvot; 1)
Lisäksi, anna solu(je)n, jolla muutat pitoaikaa nimeksi Syöttö.
Laita seuraava makro k.o. sivun moduliin ja tee siihen tarvittavat muutokset. Joka kerta kun alue "Syöttö" muuttuu, makro muuttaa alueiden " x_arvot" ja "y_arvot" määrityksiä siten, että ne käsittävät vain kaavioon tolevat rivit, ts. ne joilla on kelvollinen numero sarakkeessa Cx.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim r0: r0 = 1 ' otsikkorivi
Dim r ' tutkittava rivi
Dim Cx: Cx = 3 ' x-arvojen sarake
Dim Cy: Cy = 4 ' y-arvojen sarake
Dim a: a = 0 ' ensimmäinen rivi
Dim l ' viimeinen rivi
If Not Intersect(Target, Range("Syöttö")) Is Nothing Then
With WorksheetFunction
For r = r0 1 To r0 50
If a = 0 Then If .IsNumber(Cells(r, Cx)) Then a = r
If a > 0 And Not .IsNumber(Cells(r, Cx)) Then Exit For
l = r
Next r
End With
ActiveWorkbook.Names("x_arvot").RefersToR1C1 = "=Sheet1!R" & a & "C" & Cx & ":R" & l & "C" & Cx
ActiveWorkbook.Names("y_arvot").RefersToR1C1 = "=Sheet1!R" & a & "C" & Cy & ":R" & l & "C" & Cy
End If
End Sub
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Kiitos nainen
Kuitenkin. Olet sitten ajanmerkkinä. Tuskin enää sinua näen ja huomasitko, että olit siinä viimeisen kerran samassa paik124030MTV: Kirkossa saarnan pitänyt Jyrki 69 koki yllätyksen - Paljastaa: "Se mikä oli hyvin erikoista..."
Jyrki Linnankivi alias Jyrki 69 on rokkari ja kirkonmies. Teologiaa opiskeleva Linnankivi piti elämänsä ensimmäisen saar822081Hyväksytkö sinä sen että päättäjämme ei rakenna rauhaa Venäjän kanssa?
Vielä kun sota ehkäpä voitaisiin välttää rauhanponnisteluilla niin millä verukkeella voidaan sanoa että on hyvä asia kun5491647Kirjoita yhdellä sanalla
Joku meihin liittyvä asia, mitä muut ei tiedä. Sen jälkeen laitan sulle wappiviestin941366Olet hyvin erilainen
Herkempi, ajattelevaisempi. Toisaalta taas hyvin varma siitä mitä haluat. Et anna yhtään periksi. Osaat myös ilkeillä ja671117Yksi syy nainen miksi sinusta pidän
on se, että tykkään luomusta. Olet luonnollinen, ihana ja kaunis. Ja luonne, no, en ole tavannut vielä sellaista, joka s331038Hyödyt Suomelle???
Haluaisin asettaa teille palstalla kirjoittelevat Venäjää puolustelevat ja muut "asiantuntijat" yhden kysymyksen pohditt216916Hyvää Joulua mies!
Toivottavasti kaikki on hyvin siellä. Anteeksi että olen hieman lisännyt taakkaasi ymmärtämättä kunnolla tilannettasi, o60883- 171854
Paljastavat kuvat Selviytyjät Suomi kulisseista - 1 päivä vs 36 päivää viidakossa - Katso tästä!
Ohhoh! Yli kuukausi viidakossa voi muuttaa ulkonäköä perusarkeen aika rajusti. Kuka mielestäsi muuttui eniten: Mia Mill3828