Excel 如何设置用于图表的表格数据范围
使用Excel 2010,我试图使用几个不同表中的部分数据在Sheet1上创建一个图表。在下面的示例中,我只是尝试从一个表中提取数据作为开始。我似乎难以设置此表中此数据的范围 最后,我将循环遍历每个表中大约8个不同长度的数据列和大约21个表。因此,任何帮助自动化这将是伟大的 这就是我目前所拥有的Excel 如何设置用于图表的表格数据范围,excel,vba,excel-2010,excel-charts,excel-tables,Excel,Vba,Excel 2010,Excel Charts,Excel Tables,使用Excel 2010,我试图使用几个不同表中的部分数据在Sheet1上创建一个图表。在下面的示例中,我只是尝试从一个表中提取数据作为开始。我似乎难以设置此表中此数据的范围 最后,我将循环遍历每个表中大约8个不同长度的数据列和大约21个表。因此,任何帮助自动化这将是伟大的 这就是我目前所拥有的 Sub createChart() Dim rng As Range Dim chrt As Object 'Table is named BMS_01_01_Module_0
Sub createChart()
Dim rng As Range
Dim chrt As Object
'Table is named BMS_01_01_Module_01 and the column Name I want data from is Cell 1 Voltage
Set chrt = Sheet1.Shapes.AddChart2
chrt.ChartArea.SetSourceData Source:=activesheetlistobjects("BMS_01_01_Module_01").ListColumns("Cell 1 Voltage").Range
chrt.ChartArea.ChartType = x1Line
End Sub
我假设上面的代码产生了“objectrequired”错误。我建议将语句(ChartArea.SetSourceData)拆分为多个步骤,这将使您能够更好地控制代码和灵活性 要引用表范围,只需创建一个ListObject变量和一个范围变量,rest将在下面用示例进行解释
Dim tbl As ListObject
Set tbl = ActiveSheet.ListObjects("BMS_01_01_Module_01")
使用so时,可以非常轻松地引用表格的任何部分:
Dim rng As Range
'Reference the whole table, including headers:
Set rng = tbl.Range
'Reference just the table data (no headers):
Set rng = tbl.DataBodyRange
'Reference just the data in a single column:
Set rng = tbl.ListColumns("Cell 1 Voltage").DataBodyRange
'Reference the headers only
Set rng = tbl.HeaderRowRange
因此,您的代码应该类似于以下内容:
chrt.ChartArea.SetSourceData Source:=tbl.ListColumns("Cell 1 Voltage").DataBodyRange
试试这个
Sub createChart()
Dim rng As Range
Dim obj As ChartObject
Dim chrt As Chart
Dim Lst As ListObject
Dim cm As ListColumn
Dim Ws As Worksheet
Set Ws = ActiveSheet
Set Lst = Ws.ListObjects("BMS_01_01_Module_01")
Set cm = Lst.ListColumns("Cell 1 Voltage")
'Set cm = Lst.ListColumns(1)
Set rng = cm.DataBodyRange
'Table is named BMS_01_01_Module_01 and the column Name I want data from is Cell 1 Voltage
Set obj = Sheet1.ChartObjects.Add(200, 200, 400, 400)
With obj.Chart
'chrt.ChartArea.SetSourceData Source:=ActiveSheet.ListObjects("BMS_01_01_Module_01").ListColumns("Cell 1 Voltage").Range
.SetSourceData Source:=rng
.ChartType = xlLine
End With
End Sub
最后我对代码做了一些修改。我只希望有一种方法可以引用表,而不必首先激活表所在的表。注:图表和表格不在同一张纸上 这就是最终在单一范围内起作用的原因:
Sub createChart()
Dim rng As Range
Dim cht As Object
Dim Ws As Worksheet
Set cht = Sheet1.Shapes.addChart
Worksheets("BMS_01_Module_01").Activate
Set Ws = ActiveSheet
Ws.ListObjects("BMS_01_Module_01").ListColumns("Cell 1 Voltage").Range.Select
cht.Chart.SetSourceData Source:=Selection
cht.Chart.ChartType = xlLine
End Sub