Excel多个dynamic图表

我有一系列的数据，我想绘制成几张图。 数据按datesorting，并根据先前的条件提取标有“真”条件的数据。

由于有大量的数据集，是否可以自动生成一系列graphics？ 我知道如何使用loggingmacros函数来创buildmacros，只是我不确定如何过滤数据来创buildgraphics。

在下面的示例数据中，我将有2个图表，date范围为1月1日至3日，另一个date为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

这是可行的。 dynamic创build图表是您应该将其放在库中以备将来参考的例程之一。 我已经这样做了，代码如下。 该代码将根据x / y范围和位置创build图表。 位置允许图表在创build时排列在网格中。 你将不得不调整你的范围，以便你可以给它下面的input需要。 这应该只是迭代和跟踪要创build的图表的问题。

唯一的关键步骤是使用ChartObjects.Add创build一个新的图表（包含定位数据），然后使用SeriesCollection.NewSeries向图表添加一个系列。

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

 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