Rekisteröidy

Ilmoitukset

Ladataan…

    Näytä kaikki

    Miten viitata makrossa kuvaajaan kun kohteen nimi muuttuu +1?

    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.
    4384
    Äänestä

    Muut lukivat myös

    Vastaukset 4

    Vanhimmat

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

    Äänestä

    • 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!

      Äänestä

    • 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

      Äänestä

    • 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.

      Äänestä

    Odottaa vastausta

    Näihin keskusteluihin ei ole vielä vastattu. Ole ensimmäinen.

    Luetuimmat keskustelut

    Kommentoi aloitusta

    Krändinen kirjoitti:

    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.

    Anonyymi
    5000

    Ilmoita asiaton sisältö

    • Sisältää materiaalia, joka on loukkaavaa, herjaavaa, rasistista, uhkailevaa tai ahdistelevaa.

    • Materiaali sisältää nimiä, yhteystietoja tai muita henkilökohtaisia tietoja. Julkisuuden henkilöistä, julkisissa viroissa toimivista ihmisistä sekä yritysten vastuuhenkilöistä saa keskustella työhön liittyen. Myös yksityiselämään liittyvistä asioista voi keskustella siltä osin, kuin niistä on julkisesti kerrottu.

    • Sisältää lapsille haitallista tai heiltä kiellettyä materiaalia. Seksuaalinen sisältö on sallittua aiheeseen tarkoitetuilla palstoilla, joiden ikäraja on 18 vuotta.

    • Lainvastaista sisältöä voi olla mm. yksityiselämää loukkaavan tiedon levitys, kiihottaminen kansanryhmää vastaan, laiton uhkaaminen, alaikäisiin liittyvä seksuaalinen sisältö/grooming, petokset, identiteettivarkaudet, kunnianloukkaukset ja tekijänoikeusrikkomukset.

    • Sisältö ei liity palstan tai keskusteluketjun aiheeseen.

    • Viesti ei ole suomea tai ruotsia (pl. International Forums), se sisältää mainontaa, se sisältää tekijänoikeuksin suojattua materiaalia, se on massapostitus tai jokin muu syy.

    Jaa keskustelu