使用VBA Excel代码中的RecordSet数据创build图表
我从Access获取数据，复制到Excel工作表并使用Excel VBA创build图表。 数据如下所示：
图表看起来像这样：
我想显示在工作表中的所有交易，但在图表中我想显示date的总和。 例如19/08/2015共计2695，20/08/2015共计287。
如何在VBA Excel中创build图表来显示每天的总和？
我同意@ChipsLetten
1.-从SQL你可以使用这样的东西：
---- This is the sum for each day SELECT t.DOT, SUM(t.Amount) ---- You can add an extra Column with the SUM by Dates /* t.Dot, t.Category, t.Item, t.Amount , SUM(t.Amount) OVER(PARTITION BY t.Dot ORDER BY t.Dot) [SumTrans] */ FROM Transactions t GROUP BY t.DOT -- If you add the Column you must change "GROUP BY" -- GROUP BY t.Dot, t.Category, t.Item, t.Amount 添加列可以使用DOT和SumTrans系列创build图表
2.-使用数据透视表甚至更好，您可以克隆您的Recordset创build一个数据透视表，使您可以通过DOT SUM金额
*Wkb is a Workbooks object, Wks is a Worksheet object* Dim oRstChrt As ADODB.Recordset, oStrm As ADODB.Stream Dim oChrt As Chart '' Copy Recordset for the pivot table cache Set oRstChrt = New ADODB.Recordset Set oStrm = New ADODB.Stream '' Create an alternative Recordset for the new pivot table oRst.Save oStrm oRstChrt.Open oStrm '' Set Recordset to cache for a pivot table Set objPivotCache = _ Wkb.PivotCaches.Create(SourceType:=xlExternal, Version:=xlPivotTableVersion14) '' Recordset with Data Set objPivotCache.Recordset = oRstChrt '' Assign Range for the pivot table and Name it. With objPivotCache .CreatePivotTable TableDestination:=Wks.Range([Cell]), TableName:=[PivotTable_Name] End With
然后把你需要的领域， 在这种情况下， DOT和金额
With Wks.PivotTables([PivotTable_Name]) With .PivotFields("DOT") .Orientation = xlRowField .Position = 1 End With '' You can create a second level, but '' if the field is not collapse, your chart will change, '' so keep the field collapse '' To Collapse the field put this '' Wks.PivotTables([PivotTable_Name]). _ '' PivotFields([PivotTableField]).ShowDetail = False 'With .PivotFields("Item") '.Orientation = xlRowField '.Position = 2 'End With '' This allows you to SUM the Amount field .AddDataField .PivotFields("Amount"), "Total Amount", xlSum End '' After the Pivot Table was created you can create your chart '' Set the object Set oChrt = Charts.Add '' Give a name and format With oChrt .Name = "[Chart_Name]" .ChartType = xlColumnClustered '' you could change to 3D '' Source Range in this case from the pivot table .SetSourceData Source:=Wks.PivotTables([PivotTable_Name]).TableRange2, _ PlotBy:=xlRows '' Format chart .HasTitle = True .ChartTitle.Text = "Total Transactions" .Axes(xlCategory, xlPrimary).HasTitle = True .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Dates" ' .Axes(xlValue, xlPrimary).HasTitle = True ' .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Transactions" End With
你有两个select：
-
使用SUM和GROUP BY运行另一个SQL查询，为您提供总计。 这是您的图表的数据。
-
看看在Excel中使用枢轴图。 这将计算你的总数，并绘制图表。