Question

我正在尝试创建一个图表，该图表显示2014年1月1日的当前销售情况，并将其与目标目标进行比较。

我有一个包含日期的工作表，旁边的列添加了销售额，以便最新的一个显示到目前为止的总销售额（VA05NDump）：

1/2/2014   $12,609.23
1/2/2014   $19,211.91
1/3/2014   $27,310.43
1/3/2014   $42,631.40
1/3/2014   $49,265.85
1/3/2014   $56,078.11

我有一个日期为2014年1月1日至2014年12月31日的专栏，其列旁边是每个日期的目标定位（MacroParty）：

1/1/2014    $36,000.00 
1/2/2014    $72,000.00 
1/3/2014    $108,000.00 
1/4/2014    $144,000.00 
1/5/2014    $180,000.00 
1/6/2014    $216,000.00

我想运行一个宏，从2014年1月1日到最新的条目创建一个图表，然后将它与我们应该击中的目标进行比较。

制作图表的代码：

Dim cObj As Shape 
Dim cht As chart   
Dim srs As Series  

Set cObj = ActiveSheet.Shapes.AddChart   
Set cht = cObj.chart                     

    cht.ChartType = xlXYScatterSmoothNoMarkers

    cObj.Top = Range("C22").Top
    cObj.Left = Range("C22").Left

    cObj.Width = 500
    cObj.Height = 300    

Set srs = cht.SeriesCollection.NewSeries
    srs.Name = "=""target"""
    srs.XValues = "=MacroParty!$S$4:$S$368"
    srs.Values = "=MacroParty!$T$4:$T$368"

Set srs = cht.SeriesCollection.NewSeries
    srs.Name = "=""current"""
    srs.XValues = "=VA05NDump!$G$2:$G$899"
    srs.Values = "=VA05NDump!$P$2:$P$899"

现在我想要它，以便macroparty表中的x值相应地调整到VA05NDump表中列表中的最新日期。否则，我得到的图表显示了迄今为止的销售情况（今天是5月22日），但另一个系列则是12/31，因此图表看起来很糟糕。

我想有一个带有= max（）的单元格，它会给出最近的日期，然后在目标日期旁边有一个带编号的列，并运行一个= vlookup（）来获取相应的数字。然后以某种方式使用它....但我无法让它工作......

任何帮助都会很棒！

将可调范围插入一系列

0 个答案: