X-aks. skaalaus autom, ku mahd valita luvut 0-50 vuotta? Ongelma: nyt varaa tilaa 50v asti akselille

Tanex

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

1

109

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • 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

    1. Kiitos nainen

      Kuitenkin. Olet sitten ajanmerkkinä. Tuskin enää sinua näen ja huomasitko, että olit siinä viimeisen kerran samassa paik
      Tunteet
      12
      4030
    2. MTV: 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 saar
      Maailman menoa
      82
      2081
    3. Hyvä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 kun
      Maailman menoa
      549
      1647
    4. Kirjoita yhdellä sanalla

      Joku meihin liittyvä asia, mitä muut ei tiedä. Sen jälkeen laitan sulle wappiviestin
      Ikävä
      94
      1366
    5. Olet hyvin erilainen

      Herkempi, ajattelevaisempi. Toisaalta taas hyvin varma siitä mitä haluat. Et anna yhtään periksi. Osaat myös ilkeillä ja
      Ikävä
      67
      1117
    6. Yksi 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 s
      Ikävä
      33
      1038
    7. Hyödyt Suomelle???

      Haluaisin asettaa teille palstalla kirjoittelevat Venäjää puolustelevat ja muut "asiantuntijat" yhden kysymyksen pohditt
      Maailman menoa
      216
      916
    8. Hyvää Joulua mies!

      Toivottavasti kaikki on hyvin siellä. Anteeksi että olen hieman lisännyt taakkaasi ymmärtämättä kunnolla tilannettasi, o
      Ikävä
      60
      883
    9. Hyvää talvipäivänseisausta

      Vuoden lyhyintä päivää. 🌞 Hyvää huomenta. ❄️🎄🌌✨❤️😊
      Ikävä
      171
      854
    10. 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 Mill
      Suomalaiset julkkikset
      3
      828
    Aihe