Excel grafikonkiegészítés makróval minden munkalapon
2022-06-22T09:12:51+02:00
2022-06-22T09:12:51+02:00
2022-07-18T21:16:34+02:00
heccsatt
Sziasztok!
Adott egy sok munkalapos excel. Minden munkalap azonos formátum, csak a benne lévő adatok mások. MInden lapon van 8 grafikon, amire 2-2 vonalat kellene rajzolni (mérések felső és alsó határértéke). A vonalak értékei minden munkalapon ugyanott vannak. 
Elkezdtem makró felvétellel az első munkalapon, ott meg is csinálja, de amint átmegyek a következő munkalapra, oda is első munkalap adataiból húzza a grafikonra a vonalat. Hogyan lehet a hivatkozást megvariálni, hogy mindig az aktív munkalap adataiból csinálja a vonalat?
Köszönöm. Itt a makró kód:

Sub Méret1ATH()
'
' Méret1ATH Makró
'
' Billentyűparancs: Ctrl+q
'
    ActiveSheet.ChartObjects("Diagram 4").Activate
    ActiveSheet.ChartObjects("Diagram 4").Activate
    Application.CutCopyMode = False
    Application.CutCopyMode = False
    Application.CutCopyMode = False
    Application.CutCopyMode = False
    ActiveChart.SeriesCollection.NewSeries
    ActiveChart.FullSeriesCollection(2).Name = "='Z4544880_2-2'!$D$8:$E$8"
    ActiveChart.FullSeriesCollection(2).XValues = "='Z4544880_2-2'!$A$25:$A$34"
    ActiveChart.FullSeriesCollection(2).Values = _
        "='Z4544880_2-2'!$F$8,'Z4544880_2-2'!$F$8,'Z4544880_2-2'!$F$8"
    ActiveSheet.ChartObjects("Diagram 4").Activate
    ActiveChart.FullSeriesCollection(2).Select
    Selection.MarkerStyle = -4142
    Application.CommandBars("Format Object").Visible = False
End Sub
Mutasd a teljes hozzászólást!

abcd