Osaisikohan joku auttaa miten lähteä rakentamaan tälläistä makroa automaatiksi.
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlXYScatter
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).Name = "='Taul2'!$A$3"
ActiveChart.SeriesCollection(1).XValues = "='Taul2'!$C$3"
ActiveChart.SeriesCollection(1).Values = "='Taul2'!$B$3"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(2).Name = "='Taul2'!$A$4"
ActiveChart.SeriesCollection(2).XValues = "='Taul2'!$C$4"
ActiveChart.SeriesCollection(2).Values = "='Taul2'!$B$4"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(3).Name = "='Taul2'!$A$5"
ActiveChart.SeriesCollection(3).XValues = "='Taul2'!$C$5"
ActiveChart.SeriesCollection(3).Values = "='Taul2'!$B$5"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(4).Name = "='Taul2'!$A$6"
ActiveChart.SeriesCollection(4).XValues = "='Taul2'!$C$6"
ActiveChart.SeriesCollection(4).Values = "='Taul2'!$B$6"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(5).Name = "='Taul2'!$A$7"
ActiveChart.SeriesCollection(5).XValues = "='Taul2'!$C$7"
ActiveChart.SeriesCollection(5).Values = "='Taul2'!$B$7"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(6).Name = "='Taul2'!$A$8"
ActiveChart.SeriesCollection(6).XValues = "='Taul2'!$C$8"
ActiveChart.SeriesCollection(6).Values = "='Taul2'!$B$8"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(7).Name = "='Taul2'!$A$9"
ActiveChart.SeriesCollection(7).XValues = "='Taul2'!$C$9"
ActiveChart.SeriesCollection(7).Values = "='Taul2'!$B$9"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(8).Name = "='Taul2'!$A$10"
ActiveChart.SeriesCollection(8).XValues = "='Taul2'!$C$10"
ActiveChart.SeriesCollection(8).Values = "='Taul2'!$B$10"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(9).Name = "='Taul2'!$A$11"
ActiveChart.SeriesCollection(9).XValues = "='Taul2'!$C$11"
ActiveChart.SeriesCollection(9).Values = "='Taul2'!$B$11"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(10).Name = "='Taul2'!$A$12"
ActiveChart.SeriesCollection(10).XValues = "='Taul2'!$C$12"
ActiveChart.SeriesCollection(10).Values = "='Taul2'!$B$12"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(11).Name = "='Taul2'!$A$13"
ActiveChart.SeriesCollection(11).XValues = "='Taul2'!$C$13"
ActiveChart.SeriesCollection(11).Values = "='Taul2'!$B$13"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(12).Name = "='Taul2'!$A$14"
ActiveChart.SeriesCollection(12).XValues = "='Taul2'!$B$14:$C$14"
ActiveChart.SeriesCollection(12).Values = "='Taul2'!$B$14"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(13).Name = "='Taul2'!$A$15"
ActiveChart.SeriesCollection(13).XValues = "='Taul2'!$C$15"
ActiveChart.SeriesCollection(13).Values = "='Taul2'!$B$15"
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(14).Name = "='Taul2'!$A$16"
ActiveChart.SeriesCollection(14).XValues = "='Taul2'!$C$16"
ActiveChart.SeriesCollection(14).Values = "='Taul2'!$B$16"
Elikkä mulla on taulukko:
abc 1 5 alkaa solusta a3 alespäin
bcd 5 3
cde 3 7
....
Elikkä macro osaisi laittaa noi xy pistekaavioon, kaikki ne jotka alespäin on, loppuu vasta kun tulee tyhjä vastaan.
Olisin erittäin kiitollinen jos joku ymmärtää mitä kaipaan ja vielä osaisi auttaa?
Macro joka tekee pistekaavion
4
129
Vastaukset
- muuan mies
Ihmeellinen pistekaavio, kun joka sarjassa on vain yksi piste!
Sopisiko paremmin sellainen, jossa olisi yksi sarja ja tuo teksti olisi sen pisteiden labelinä? - ...
Sub foo
Dim rivi as integer
ActiveSheet.Shapes.AddChart.Select
ActiveChart.ChartType = xlXYScatter
rivi=3
Do While cells(rivi,1).value""
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(rivi-2).Name = "='Taul2'!$A$" & rivi
ActiveChart.SeriesCollection(rivi-2).XValues = "='Taul2'!$C$" & rivi
ActiveChart.SeriesCollection(rivi-2).Values = "='Taul2'!$B$" & rivi
rivi=rivi 1
Loop
End sub
Ketjusta on poistettu 0 sääntöjenvastaista viestiä.
Luetuimmat keskustelut
Naiset miltä kiihottuminen teissä tuntuu
Kun miehellä tulee seisokki ja ja sellainen kihmelöinti sinne niin mitä naisessa köy? :)1067658Haistoin ensin tuoksusi
Käännyin katsomaan oletko se todellakin sinä , otin askeleen taakse ja jähmetyin. Moikattiin naamat peruslukemilla. Tu372842- 352422
- 1192155
- 171819
Miksi kohtelit minua kuin tyhmää koiraa?
Rakastin sinua mutta kohtelit huonosti. Tuntuu ala-arvoiselta. Miksi kuvittelin että joku kohtelisi minua reilusti. Hais101563- 101426
Musiikkineuvos Ilkka Lipsanen eli Danny TV:ssä - Blondeja, hittibiisejä, räjäyttävä Danny Show...
Ilkka Lipsanen eli Danny on viihdyttänyt meitä jo kuusi vuosikymmentä. Musiikkineuvos on myös liikemies, jonka voidaan381424Kyllä poisto toimii
Esitin illan suussa kysymyksen, joka koska palstalla riehuvaa häirikköä ja tiedustelin, eikö sitä saa julistettua pannaa151387"Joka miekkaan tarttuu, se siihen hukkuu"..
"Joka miekkaan tarttuu, se siihen hukkuu".. Näin puhui jo aikoinaan Jeesus, kun yksi hänen opetuslapsistaan löi miekalla111349