Excel VBA图表无法识别值

我还有一个非常令人困惑的问题，你们中的一个可能能够解决。 所以基本上我有这个代码来使用Excel VBA编写一个线图。 它是这样做的，所以它可以是dynamic的，可以改变，如果增加更多的价值。 但它读取第一个值为0，最后一个值为0，即使它们不是0.下面是我用来将graphics放在页面上的代码。

Sub createchart4() lastA = Range("A1").End(xlDown).Row ActiveSheet.Shapes.AddChart.Select ActiveChart.ChartType = xlLine ActiveChart.SetSourceData Source:=Range("Main!$A$1:$A$" & lastA) ActiveChart.ChartTitle.Select ActiveChart.SeriesCollection(1).Name = "=Main!$A$1" ActiveChart.SeriesCollection(1).Values = "=Main!$A$3:$A$" & lastA End Sub 

这就是说A3的值实际上是1534，而且它也是A10和A11的值也是0。

如果你能弄明白这一点，我会惊讶的发现：D

Answer 1

当图表忽略一个数字时唯一的情况是当数字被存储为文本。 请参阅快照

如何知道这个数字是否存储为文本，我们如何纠正？

如果您正在使用Excel 2003，请转至菜单Tools | Options Tools | Options 。 在“ Error Checking选项卡下，确保选中“ Number Stored as textcheckbox。

在Excel 2007/2010中 ，单击可从Excel 2007中的Office Icon或Excel 2010中的File选项卡中的Options访问的Excel Options 。

转到“ Formulas选项卡，确保Numbers formatted as text or preceded by an apostrophe被选中。

如果上面的checkbox被选中，那么您会注意到上面快照中显示的一个小的绿色三angular形 。 从具有绿色三angular形的第一个单元格中select整个范围。 点击Exclamation mark 。 点击Convert to number ，你就完成了。