我同意@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 系列来创建图表

2.-使用数据透视表甚至更好，您可以克隆您的Recordset以创建一个数据透视表，允许您通过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 和 Amount

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