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.
Miten viitata makrossa kuvaajaan kun kohteen nimi muuttuu +1?
4
349
Vastaukset
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! 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 Subtuo toimii kuin juna, vaikka en ymmärrä miksi. Suuri kiitos - projekti jatkuu.
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
- 1622861
Kun viimeksi kohtasitte/näitte
Mitä olitte tekemässä? Millainen ympäristö oli? Löydetään toisemme...1352006Olet kyllä vaarallisen himokas
Luova, kaunis, määrätietoinen, pervo, mielenkiintoinen, kovanaama, naisellinen ja erikoinen.1091956- 861669
- 811541
Anna vielä vähän vihreää valoa
Teen sitten siirtoni, nainen. Tiedän, että olet jo varovaisesti yrittänyt lähestyä, mutta siitä on jo aikaa. Jos tunnet241522- 2271110
- 681052
Miksi homous puhuttaa konservatiiveja vuodesta toiseen?
Kysymykseen on vastattukin Kansanlähetyksen osalta: "Miksi sukupuoleen ja seksuaalisuuteen liittyvät asiat ovat konserv2651050- 73930