Wie erstelle ich ein Excel-Diagramm, die Daten aus mehreren Blättern zieht? [geschlossen]

Question

Ich habe Zahlen monatliche Verkäufe in separaten Blättern gespeichert. Ich möchte ein Grundstück von Umsatz für mehrere Produkte pro Monat erstellen. Jedes Produkt würde mit jedem Monat, die entlang der x-Achse in einer anderen farbigen Linie auf das gleiche Chart dargestellt werden.

Was ist der beste Weg, um eine einzelne Liniendiagramm zu erstellen, die von den gleichen relativen Zellen auf mehreren Blättern ziehen?

Answer 1

Verwenden Sie den Diagramm-Assistenten.

Auf Schritt 2 von 4 gibt es eine Registerkarte mit der Bezeichnung „Serie“. Es gibt drei Felder und ein Listenfeld auf diesem Registerkarte. Das Listenfeld zeigt die verschiedenen Serien Sie bereits auf dem Chart inklusive. Jede Serie hat sowohl ein Feld „Namen“ und „Werte“ Feld, das zu dieser Reihe spezifisch ist. Das letzte Feld ist das „Kategorie (X) Achsenbeschriftungen“ Feld, das zu allen Serien üblich ist.

Klicken Sie auf die Schaltfläche „Hinzufügen“ unter dem Listenfeld. Dadurch wird eine leere Reihe zu Ihrem Listenfeld hinzuzufügen. Beachten Sie, dass die Werte für „Name“ und für „Werte“ ändern, wenn Sie eine Serie in der Liste markieren.

Wählen Sie Ihre neue Serie.

Es ist ein Symbol in jedem Feld auf der rechten Seite. Mit diesem Symbol können Sie Zellen in der Arbeitsmappe wählen Sie aus den Daten zu ziehen. Wenn Sie darauf klicken, blendet der Assistent vorübergehend selbst (mit Ausnahme des Feldes Sie arbeiten in) können Sie mit der Arbeitsmappe zu interagieren.

Wählen Sie das entsprechende Blatt in der Arbeitsmappe und wählen Sie dann die Felder mit den Daten, die Sie im Diagramm angezeigt werden sollen. Die Schaltfläche auf der rechten Seite des Feldes kann angeklickt werden, um den Assistenten sichtbar machen.

Ich hoffe, das hilft.

EDIT: Die oben bis 2003 gilt und vor. Für das Jahr 2007, wenn das Diagramm ausgewählt ist, sollten Sie in der Lage sein, eine ähnliche Aktion mit dem „Select Data“ auf der Registerkarte „Entwurf“ des Bandes zu tun. Es öffnet sich ein Dialogfeld mit der Serie für das Diagramm oben. Sie können die Serie wählen Sie einfach, wie Sie in Excel 2003 können, aber müssen Sie die „Hinzufügen“ und „Bearbeiten“ Tasten individuelle Serie zu definieren, verwendet werden.

Answer 2

Hier ist ein Code aus Excel 2010, die funktionieren kann. sowohl absolut als auch prozentual Basis mit Daten Es hat ein paar Besonderheiten (wie Filterung schlecht encodieren Zeichen von Titeln), aber es wurde entwickelt, um mehr Multi-Serie Graphen von 4-dimensionalen Daten zu erstellen. Ändern Sie es, wie Sie mögen:

Sub createAllGraphs()

Const chartWidth As Integer = 260
Const chartHeight As Integer = 200




If Sheets.Count = 1 Then
    Sheets.Add , Sheets(1)
    Sheets(2).Name = "AllCharts"
ElseIf Sheets("AllCharts").ChartObjects.Count > 0 Then
    Sheets("AllCharts").ChartObjects.Delete
End If
Dim c As Variant
Dim c2 As Variant
Dim cs As Object
Set cs = Sheets("AllCharts")
Dim s As Object
Set s = Sheets(1)

Dim i As Integer


Dim chartX As Integer
Dim chartY As Integer

Dim r As Integer
r = 2

Dim curA As String
curA = s.Range("A" & r)
Dim curB As String
Dim curC As String
Dim startR As Integer
startR = 2

Dim lastTime As Boolean
lastTime = False

Do While s.Range("A" & r) <> ""

    If curC <> s.Range("C" & r) Then

        If r <> 2 Then
seriesAdd:
            c.SeriesCollection.Add s.Range("D" & startR & ":E" & (r - 1)), , False, True
            c.SeriesCollection(c.SeriesCollection.Count).Name = Replace(s.Range("C" & startR), "Â", "")
            c.SeriesCollection(c.SeriesCollection.Count).XValues = "='" & s.Name & "'!$D$" & startR & ":$D$" & (r - 1)
            c.SeriesCollection(c.SeriesCollection.Count).Values = "='" & s.Name & "'!$E$" & startR & ":$E$" & (r - 1)
            c.SeriesCollection(c.SeriesCollection.Count).HasErrorBars = True
            c.SeriesCollection(c.SeriesCollection.Count).ErrorBars.Select
            c.SeriesCollection(c.SeriesCollection.Count).ErrorBar Direction:=xlY, Include:=xlBoth, Type:=xlCustom, Amount:="='" & s.Name & "'!$F$" & startR & ":$F$" & (r - 1), minusvalues:="='" & s.Name & "'!$F$" & startR & ":$F$" & (r - 1)
            c.SeriesCollection(c.SeriesCollection.Count).ErrorBar Direction:=xlX, Include:=xlBoth, Type:=xlFixedValue, Amount:=0

            c2.SeriesCollection.Add s.Range("D" & startR & ":D" & (r - 1) & ",G" & startR & ":G" & (r - 1)), , False, True
            c2.SeriesCollection(c2.SeriesCollection.Count).Name = Replace(s.Range("C" & startR), "Â", "")
            c2.SeriesCollection(c2.SeriesCollection.Count).XValues = "='" & s.Name & "'!$D$" & startR & ":$D$" & (r - 1)
            c2.SeriesCollection(c2.SeriesCollection.Count).Values = "='" & s.Name & "'!$G$" & startR & ":$G$" & (r - 1)
            c2.SeriesCollection(c2.SeriesCollection.Count).HasErrorBars = True
            c2.SeriesCollection(c2.SeriesCollection.Count).ErrorBars.Select
            c2.SeriesCollection(c2.SeriesCollection.Count).ErrorBar Direction:=xlY, Include:=xlBoth, Type:=xlCustom, Amount:="='" & s.Name & "'!$H$" & startR & ":$H$" & (r - 1), minusvalues:="='" & s.Name & "'!$H$" & startR & ":$H$" & (r - 1)
            c2.SeriesCollection(c2.SeriesCollection.Count).ErrorBar Direction:=xlX, Include:=xlBoth, Type:=xlFixedValue, Amount:=0
            If lastTime = True Then GoTo postLoop
        End If

        If curB <> s.Range("B" & r).Value Then

            If curA <> s.Range("A" & r).Value Then
                chartX = chartX + chartWidth * 2
                chartY = 0
                curA = s.Range("A" & r)
            End If

            Set c = cs.ChartObjects.Add(chartX, chartY, chartWidth, chartHeight)
            Set c = c.Chart
            c.ChartWizard , xlXYScatterSmooth, , , , , True, Replace(s.Range("B" & r), "Â", "") & " " & s.Range("A" & r), s.Range("D1"), s.Range("E1")

            Set c2 = cs.ChartObjects.Add(chartX + chartWidth, chartY, chartWidth, chartHeight)
            Set c2 = c2.Chart
            c2.ChartWizard , xlXYScatterSmooth, , , , , True, Replace(s.Range("B" & r), "Â", "") & " " & s.Range("A" & r) & " (%)", s.Range("D1"), s.Range("G1")

            chartY = chartY + chartHeight
            curB = s.Range("B" & r)
            curC = s.Range("C" & r)
        End If

        curC = s.Range("C" & r)
        startR = r
    End If

    If s.Range("A" & r) <> "" Then oneMoreTime = False ' end the loop for real this time
    r = r + 1
Loop

lastTime = True
GoTo seriesAdd
postLoop:
cs.Activate

End Sub

Answer 3

2007 ist mächtiger mit Band ..: =) So fügen Sie neue Serie in Diagramm zu tun: Wählen Sie Diagramm, klicken Sie dann auf Entwurf in Diagrammtools auf dem Band, Auf der Design-Band, wählen Sie "Select Data" in Data Group, Dann werden Sie auf den Button siehe Hinzufügen, um neue Serie hinzufügen.

Hoffnung, dass helfen.