una - ¿Cómo creo un gráfico de Excel que extraiga datos de varias hojas?

como hacer una grafica comparativa en excel 2013

Question

Tengo cifras de ventas mensuales almacenadas en hojas separadas. Me gustaría crear una parcela de ventas para múltiples productos por mes. Cada producto se representaría en una línea de color diferente en el mismo gráfico, con cada mes ejecutándose a lo largo del eje x.

¿Cuál es la mejor manera de crear un solo gráfico de líneas que extraiga de las mismas celdas relativas en varias hojas?

Answer 1

Use el asistente de gráficos.

En el Paso 2 de 4, hay una pestaña con la etiqueta "Serie". Hay 3 campos y un cuadro de lista en esta pestaña. El cuadro de lista muestra las diferentes series que ya está incluyendo en el gráfico. Cada serie tiene un campo "Nombre" y un campo "Valores" que son específicos de esa serie. El campo final es el campo "Etiquetas de eje de categoría (X)", que es común a todas las series.

Haga clic en el botón "Agregar" debajo del cuadro de lista. Esto agregará una serie en blanco a su cuadro de lista. Observe que los valores para "Nombre" y para "Valores" cambian cuando resalta una serie en el cuadro de lista.

Seleccione su nueva serie.

Hay un icono en cada campo en el lado derecho. Este icono le permite seleccionar celdas en el libro de trabajo para extraer los datos. Cuando hace clic en él, el asistente se oculta temporalmente (a excepción del campo en el que está trabajando), lo que le permite interactuar con el libro de trabajo.

Seleccione la hoja apropiada en el libro y luego seleccione los campos con los datos que desea mostrar en el cuadro. Se puede hacer clic en el botón a la derecha del campo para mostrar el asistente.

Espero que ayude.

EDITAR: Lo anterior aplica a 2003 y antes. Para 2007, cuando se seleccione la tabla, debería poder realizar una acción similar utilizando la opción "Seleccionar datos" en la pestaña "Diseño" de la cinta de opciones. Esto abre un cuadro de diálogo que enumera las Series para el gráfico. Puede seleccionar la serie tal como lo haría en Excel 2003, pero debe usar los botones "Agregar" y "Editar" para definir series personalizadas.

Answer 2

2007 es más poderoso con la cinta ..: =) Para agregar nuevas series en el gráfico haz: Selecciona Gráfico, luego haz clic en Diseño en Herramientas de gráfico en la cinta, En la cinta Diseño, selecciona "Seleccionar datos" en Grupo de datos, luego verás el botón para Agregar para agregar nuevas series.

Espero que eso ayude.

Answer 3

Aquí hay un código de Excel 2010 que puede funcionar. Tiene un par de detalles (como el filtrado de caracteres de codificación incorrecta de los títulos) pero fue diseñado para crear múltiples gráficos de varias series a partir de datos de 4 dimensiones que tienen datos absolutos y basados ​​en porcentajes. Modifíquelo como lo desee:

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