Question

我从Access获取数据，复制到Excel工作表并使用Excel VBA创建图表。数据如下所示：

图表看起来像这样：

我想在工作表中显示所有交易，但在图表中我想显示日期数量的总和。例如，2015年8月19日总金额2695,20 / 20/2015总金额287。

如何在VBA Excel中创建图表以显示每天的总和？

Answer 1

我同意@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的数量来计算

*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

Answer 2

您有两种选择：

使用SUM和GROUP BY运行另一个SQL查询以获得总计。这是您图表的数据。
在Excel中使用Pivot Charts。这将为您计算总计，并绘制图表。

使用VBA Excel代码中的RecordSet数据创建图表

2 个答案: