Excel 多个动态图形

Question

我有一系列数据，我想把它们绘制成几个图表。数据按日期排序，并根据先前条件提取的数据旁边标有 TRUE 条件。

由于数据集很大，是否可以自动生成一系列图形？我知道如何使用记录宏功能创建宏，只是我不确定如何过滤数据以制作图表。

在下面的示例数据中，我将有 2 个日期范围为 1-3 月的图表和另一个日期范围为 1 月 6 日至 7 日的图表。

例如：

T/F   Date    Data
True  1-Jan   0.1
True  2-Jan   0.2
True  3-Jan   0.4
False 4-Jan   0.2
False 5-Jan   0.1
True  6-Jan   0.3
True  7-Jan   0.4

Answer 1

这是

可行的。 动态创建图表是应将其保存在库中以供将来参考的例程之一。 我已经这样做了，代码如下。 该代码将根据 x/y 范围和位置创建图表。 该位置允许在创建图表时将其排列在网格中。 你将不得不争吵你的范围，以便你可以给下面的子它所需的输入。 这应该只是循环访问和跟踪要创建的图表的问题。

实现此目的的唯一关键步骤是使用 ChartObjects.Add 创建新图表（包含定位数据），然后SeriesCollection.NewSeries向图表添加序列。

您可以使用location递增多次调用此代码，以创建所需的图表并将它们放入网格中。

Sub CreateChartFromRange(xval As Range, yval As Range, location As Integer)
    Dim height As Double, width As Double
    height = 300
    width = 300
    Dim columns As Integer
    columns = 3
    'assume active sheet
    Dim cht_obj As ChartObject
    Set cht_obj = ActiveSheet.ChartObjects.Add( _
        (location Mod columns) * width, _
        (location  columns) * height, _
        width, _
        height)
    Dim ser As Series
    Set ser = cht_obj.Chart.SeriesCollection.NewSeries
    ser.Values = yval
    ser.XValues = xval
    'assume XY scatter type
    ser.ChartType = xlXYScatter
End Sub