如何创建从多个工作表中提取数据的Excel图表? [关闭]
-
03-07-2019 - |
题
我将月度销售数据存储在单独的表格中。我想创建一个每月多个产品的销售情节。每个产品将在同一图表上以不同的彩色线表示,每个月沿x轴运行。
创建从多张纸上的相同相对单元格中拉出的单个折线图的最佳方法是什么?
解决方案
使用图表向导。
在第2步(共4步)中,有一个标有“系列”的标签。此选项卡上有3个字段和一个列表框。列表框显示您已在图表中包含的不同系列。每个系列都具有“名称”和“名称”。字段和“值”。特定于该系列的字段。最后一个字段是“类别(X)轴标签”。字段,这是所有系列共有的。
点击“添加”按钮列表框下方的按钮。这将在列表框中添加一个空白系列。请注意“名称”的值。并且对于“值”在列表框中突出显示系列时更改。
选择新系列。
右侧的每个字段都有一个图标。此图标允许您选择工作簿中的单元格以从中提取数据。单击它时,向导会暂时隐藏自身(您正在使用的字段除外),允许您与工作簿进行交互。
在工作簿中选择适当的工作表,然后选择包含要在图表中显示的数据的字段。可以单击该字段右侧的按钮以取消隐藏向导。
希望有所帮助。
编辑:以上内容适用于2003年及之前。对于2007年,当选择图表时,您应该能够使用“选择数据”进行类似的操作。 “设计”选项功能区的标签。这将打开一个对话框,列出图表的系列。您可以像在Excel 2003中一样选择系列,但必须使用“添加”按钮。和“编辑”用于定义自定义系列的按钮。
其他提示
以下是Excel 2010中可能有效的一些代码。它有几个细节(比如从标题中过滤坏编码字符),但它被设计为从具有绝对和基于百分比的数据的4维数据创建多个多系列图。根据您的喜好修改:
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<*>quot; & startR & ":$D<*>quot; & (r - 1)
c.SeriesCollection(c.SeriesCollection.Count).Values = "='" & s.Name & "'!$E<*>quot; & startR & ":$E<*>quot; & (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<*>quot; & startR & ":$F<*>quot; & (r - 1), minusvalues:="='" & s.Name & "'!$F<*>quot; & startR & ":$F<*>quot; & (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<*>quot; & startR & ":$D<*>quot; & (r - 1)
c2.SeriesCollection(c2.SeriesCollection.Count).Values = "='" & s.Name & "'!$G<*>quot; & startR & ":$G<*>quot; & (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<*>quot; & startR & ":$H<*>quot; & (r - 1), minusvalues:="='" & s.Name & "'!$H<*>quot; & startR & ":$H<*>quot; & (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
2007功能更强大..:=) 要在图表中添加新系列: 选择图表,然后单击功能区上的图表工具中的设计, 在“设计”功能区上,选择“选择数据”;在数据组中, 然后,您将看到“添加”按钮以添加新系列。
希望这会有所帮助。