Temat: Podwójny wykres słupkowy

Czy w excelu można z automatu zrobić taki wykres? Aby był podwójny - dwa słupkowe na sobie do porównania?

Przykład;

Temat: Podwójny wykres słupkowy

Tak, można.

Wystarczy wrzucić dwie z serii na oś pomocniczą (Prawy przycisk Format Data Series/Series Options/Secondary Axis - na rysunku z boku), ustalić osie na tą samą skalę (Format osi - min i max ustalone) i na dwóch seriach zmienić odległości przerw (format serii i Gap width - też na rysunku):



Ten post został edytowany przez Autora dnia 09.06.16 o godzinie 08:54

Temat: Podwójny wykres słupkowy

Pokombinuję - dziękuję za podpowiedź :)Ten post został edytowany przez Autora dnia 09.06.16 o godzinie 09:06

Temat: Podwójny wykres słupkowy

Podpowiedź jest błędna gdyż:

Ewelina S.:
Czy w excelu można z automatu zrobić taki wykres? Aby był podwójny - dwa słupkowe na sobie do porównania?

a to:

Barbara B.:
Tak, można.

Wystarczy wrzucić dwie z serii na oś pomocniczą (Prawy przycisk Format Data Series/Series Options/Secondary Axis - na rysunku z boku), ustalić osie na tą samą skalę (Format osi - min i max ustalone) i na dwóch seriach zmienić odległości przerw (format serii i Gap width

nie jest "z automatu" a jest opisem metody jak utworzyć taki wykres stosując działania dodatkowe.

to tylko tak w kwestii formalnej :)

Temat: Podwójny wykres słupkowy

W kwestii formalnej pada odpowiedź "Tak, można" :)

Andy L.:
Podpowiedź jest błędna gdyż:

Ewelina S.:
Czy w excelu można z automatu zrobić taki wykres? Aby był podwójny - dwa słupkowe na sobie do porównania?

a to:

Barbara B.:
Tak, można.

Nie ma klikalnej wbudowanej opcji takiego wykresu, więc dalszy opis jest opisem metody, który dla "zwykłego" człowieka będzie łatwiejsza do odtworzenia niż utworzenie makra.

Wystarczy wrzucić dwie z serii na oś pomocniczą (Prawy przycisk Format Data Series/Series Options/Secondary Axis - na rysunku z boku), ustalić osie na tą samą skalę (Format osi - min i max ustalone) i na dwóch seriach zmienić odległości przerw (format serii i Gap width

nie jest "z automatu" a jest opisem metody jak utworzyć taki wykres stosując działania dodatkowe.

to tylko tak w kwestii formalnej :)

Z drugiej strony, jeśli już chcemy pomóc, to mając metodę dałoby się napisać makro w czasie prawdopodobnie krótszym od przyczepiania się do poprzednich postów, i moglibyśmy mieć automat :)

Sub wykres_dwie_osie()

'aby makro utworzyło wykres zaznacz dane (4 serie) wraz z nagłówkami

'tworzenie wykresu



    'tworzy wykres z zaznaczenia

ActiveSheet.Shapes.AddChart2(201, xlColumnClustered).Select



    'przenosi 1 i 3 serię danych na oś pomocniczą

ActiveChart.FullSeriesCollection(1).AxisGroup = 2

ActiveChart.FullSeriesCollection(3).AxisGroup = 2



    'ustawia nakładanie serii danych

ActiveChart.ChartGroups(2).Overlap = 0

ActiveChart.ChartGroups(1).Overlap = 0

    

    'zmienia odległości słupków na 1 i 3 serii danych

ActiveChart.ChartGroups(1).GapWidth = 80

    

    'zmienia min max i jednostke glowna na osi głównej

With ActiveChart.Axes(xlValue)

    .MinimumScale = 0

    .MaximumScale = 1

    .MajorUnit = 0.2

End With

    

    'zmienia min max i jednostke glowna na osi pomocniczej

With ActiveChart.Axes(xlValue, xlSecondary)

    .MinimumScale = 0

    .MaximumScale = 1

    .MajorUnit = 0.2

End With



End Sub

Temat: Podwójny wykres słupkowy

W kwestii formalnej odpowiedź powinna wyglądać tak: Nie, nie można, ale... i tu ciąg dalszy. :)