Miten viitata makrossa kuvaajaan kun kohteen nimi muuttuu +1?

Krändinen

Heiparallaa, osasisikohan joku auttaa. Taulukkoon syötetään 10 lukua ja viereen olen tehnyt makron, jonka avulla tehdään XY-kuvaaja. Haluaisin makron tekevän vielä trendiviivan tuohon kuvaajaan pisteistä, mutta kuvaajan nimihän muuttuu aina 1. kaavio 1, kaavio 2.. ja tämän takia makron viittaus menee ohi, eikä homma toimi.
SUURI kiitos jos joku viitsii auttaa.

4

360

Äänestä

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • kunde

      mahdotonta neuvoa noilla tiedoilla...
      aluksi nyt tarkennusta ja koodia peliin...

      • Krändinen taas

        Ja tarkennuksia tiskiin:
        Range("A1:A10").Select
        ActiveSheet.Shapes.AddChart.Select
        ActiveChart.SetSourceData Source:=Range("'Sheet1'!$A$1:$A$10")
        ActiveChart.ChartType = xlXYScatter
        ActiveChart.SeriesCollection(1).Select
        ActiveSheet.ChartObjects("Chart 1").Activate
        ActiveChart.SeriesCollection(1).Trendlines.Add
        ActiveSheet.ChartObjects("Chart 1").Activate
        ActiveChart.SeriesCollection(1).Trendlines(1).Select
        Selection.DisplayEquation = True
        Selection.DisplayRSquared = True
        Range("L14").Select
        End Sub
        ActiveSheet.ChartObjects("Chart 1").Activate -kohta mättää kun uuden kuvaajan nimi on chart 2 jne.
        Tarvisi siis saada jonkinmoinen 1 jutska tuohon viittauskohtaan.

        Kiitos aktiivisuudesta!

      • kunde
        Krändinen taas kirjoitti:

        Ja tarkennuksia tiskiin:
        Range("A1:A10").Select
        ActiveSheet.Shapes.AddChart.Select
        ActiveChart.SetSourceData Source:=Range("'Sheet1'!$A$1:$A$10")
        ActiveChart.ChartType = xlXYScatter
        ActiveChart.SeriesCollection(1).Select
        ActiveSheet.ChartObjects("Chart 1").Activate
        ActiveChart.SeriesCollection(1).Trendlines.Add
        ActiveSheet.ChartObjects("Chart 1").Activate
        ActiveChart.SeriesCollection(1).Trendlines(1).Select
        Selection.DisplayEquation = True
        Selection.DisplayRSquared = True
        Range("L14").Select
        End Sub
        ActiveSheet.ChartObjects("Chart 1").Activate -kohta mättää kun uuden kuvaajan nimi on chart 2 jne.
        Tarvisi siis saada jonkinmoinen 1 jutska tuohon viittauskohtaan.

        Kiitos aktiivisuudesta!

        toi koodin pätkä.
        Mutta jos siis haluat tehdä kaavion ja lisätä siihen trendiviivan, niin miksi et lisää sitä heti kun teet kaavion?
        Jotain tämöstä siis, eli ei ole viitausongelmia...

        Sub LisääKaavio()
        With ActiveSheet.ChartObjects.Add(Left:=300, Width:=400, Top:=50, Height:=300)
        .Chart.SetSourceData Source:=Sheets("Sheet1").Range("A1:A10")
        .Chart.ChartType = xlXYScatter
        .Chart.SeriesCollection(1).Trendlines.Add
        .Chart.SeriesCollection(1).Trendlines(1).DisplayEquation = True
        .Chart.SeriesCollection(1).Trendlines(1).DisplayRSquared = True
        End With
        End Sub

      • Krändinen
        kunde kirjoitti:

        toi koodin pätkä.
        Mutta jos siis haluat tehdä kaavion ja lisätä siihen trendiviivan, niin miksi et lisää sitä heti kun teet kaavion?
        Jotain tämöstä siis, eli ei ole viitausongelmia...

        Sub LisääKaavio()
        With ActiveSheet.ChartObjects.Add(Left:=300, Width:=400, Top:=50, Height:=300)
        .Chart.SetSourceData Source:=Sheets("Sheet1").Range("A1:A10")
        .Chart.ChartType = xlXYScatter
        .Chart.SeriesCollection(1).Trendlines.Add
        .Chart.SeriesCollection(1).Trendlines(1).DisplayEquation = True
        .Chart.SeriesCollection(1).Trendlines(1).DisplayRSquared = True
        End With
        End Sub

        tuo toimii kuin juna, vaikka en ymmärrä miksi. Suuri kiitos - projekti jatkuu.

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Takaisin ylös

    Luetuimmat keskustelut

    1. Useita puukotettu Tampereella

      Mikäs homma tämä nyt taas on? "Useaa henkilöä on puukotettu Tampereen keskustassa kauppakeskus Ratinan lähistöllä." ht
      Tampere
      146
      2785

    2. Asiakas iski kaupassa varastelua tehneen kanveesiin.

      https://www.iltalehti.fi/kotimaa/a/33a85463-e4d5-45ed-8014-db51fe8079ec Oikein. Näin sitä pitää. Kyllä kaupoissa valtava
      Maailman menoa
      363
      2012

    3. Leipivaaran päällä on kuoleman hiljaista.

      Suru vai suuri helpotus...
      Puolanka
      40
      1747

    4. Kuka rääkkää eläimiä Puolangalla?

      Poliisi ampui toistakymmentä nälkiintynyttä eläintä Puolangalla Tilalta oli ollut karkuteillä lähes viisikymmentä nälkii
      Puolanka
      35
      1658

    5. Meneeköhän sulla

      oikeasti pinnan alla yhtä huonosti kuin mulla? Tai yhtä huonosti mutta jollain eri tyylillä? Ei olisi pitänyt jättää sua
      Ikävä
      28
      1370

    6. Jos ei tiedä mitä toisesta haluaa

      Älä missään nimessä anna mitään merkkejä kiinnostuksesta. Ole haluamatta mitään. Täytyy ajatella toistakin. Ei kukaan em
      Ikävä
      94
      1213

    7. Määpä tiijän että rakastat

      Minua nimittäin. Samoin hei! Olet mun vastakappaleeni.
      Ikävä
      54
      1173

    8. Muutama kysymys ja huomio hindulaisesta kulttuurista.

      Vedakirjoituksia pidetään historiallisina teksteinä, ei siis "julistuksena" kuten esimerkiksi Raamattua, vaan kuten koul
      Hindulaisuus
      328
      945

    9. Jumala puhui minulle

      Hän kertoi sinusta asioita, joiden takia jaksan, uskon ja luotan. Hän kuvaili sinua minulle ja pakahduin onnesta kuulles
      Ikävä
      110
      938

    10. Annan meille mahdollisuuden

      Olen avoimin mielin ja katson miten asiat etenevät. Mutta tällä kertaa sun on tehtävä eka siirto.Sen jälkeen olen täysil
      Ikävä
      53
      782
    Aihe
    TietosuojaselosteKäyttöehdotEvästeasetuksetSäännöt