Question

我想要在某个日期之前读完几本书。我想跟踪完成这些书的进度，所以我决定尝试制作一个简单的刻录图表。图表应该能够一目了然地告诉我我是否有望在目标日期之前完成我的书籍。

我决定尝试使用Excel 2007创建一个显示刻录的图表。但是我很难让图表运行良好，所以我想我可以问一下。

我有以下单元格用于目标日期和页面读取，显示我何时开始（今天）和目标日期（11月初）：

Date         Pages remaining
7/19/2009    7350
11/3/2009    0

以下是我打算填写实际数据的方法。我将在闲暇时添加额外的行：

Date            Pages remaining
7/19/2009       7350
7/21/2009       7300
7/22/2009       7100
7/29/2009       7070
...

我可以使用Excel将这些数据中的任何一个放到单线图上。我只是很难结合。

我希望在同一个图表上获得两组数据，其中Y轴为Y轴，X轴为Date。有了这样的图表，我可以很容易地看到我相对于目标读取速度的实际读取速度，并确定我的目标是如何顺利实现目标。

我尝试了几件事，但没有一份帮助文档似乎指出了我正确的方向。如果我的所有数据都在一大块数据点而不是在两个独立的数据块中，我感觉这可能会更容易一些。但由于我只拥有 2个目标数据的数据点（开始和结束），我无法想象我应该需要弥补虚假数据来填补漏洞。

问题......

如何将这两组数据放入一个图表？

可替换地，

随着时间的推移，有什么更好的方式来描绘我的目标进展？

Answer 1

感谢您的回答！他们肯定让我走上正轨。但是他们都没有完全得到我想要的一切，所以这就是我实际上最终要做的事情。

我缺少的关键信息是我需要将数据放在一个大块中，但我仍然可以在其中留下空单元格。像这样：

  Date         Actual remaining     Desired remaining
7/13/2009            7350                 7350
7/15/2009            7100
7/21/2009            7150
7/23/2009            6600
7/27/2009            6550
8/8/2009             6525
8/16/2009            6200
11/3/2009                                  0

现在我有一些Excel在图表上更好一些。只要我将图表选项设置为“将空单元格显示为：用线连接数据点”，它就会看起来非常好看。使用上述测试数据：

Book burn down chart

然后我只需要我的更新宏在最后一行上面插入新行，以便随时填写新数据。我的宏看起来像这样：

' Find the last cell on the left going down.  This will be the last cell 
' in the "Date" column
Dim left As Range
Set left = Range("A1").End(xlDown)

' Move two columns to the right and select so we have the 3 final cells, 
' including "Date", "Actual remaining", and "Desired remaining"
Dim bottom As Range
Set bottom = Range(left.Cells(1), left.Offset(0, 2))

' Insert a new blank row, and then move up to account for it
bottom.Insert (xlShiftDown)
Set bottom = bottom.Offset(-1)

' We are now sitting on some blank cells very close to the end of the data,
' and are ready to paste in new values for the date and new pages remaining

' (I do this by grabbing some other cells and doing a PasteSpecial into bottom)

欢迎关于该宏的改进建议。我只是摆弄它直到它起作用。

现在我有一张漂亮的图表，我可以用书呆子书给书呆子书呆子。