Excel VBA图表无法识别值

Question

我还有一个令人困惑的问题，你们中的一个人可能会解决这个问题。所以基本上我有这个代码用Excel VBA编写一个折线图。它是动态的，如果添加更多值，可以改变。但它将第一个值读为0，将最后一个值读为0，即使它们不是0.这是我用来将图形放在页面上的代码。

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

当它实际上是1534时，A3的值为0，当它们也不同时，它也将A10和A11读为0。

如果你能解决这个问题，我会感到惊讶：D

Answer 1

图表忽略数字的唯一情况是数字存储为文本。请参见快照

如何知道号码是否存储为文字，我们如何纠正？

如果您使用的是 Excel 2003 ，请转到菜单Tools | Options。在Error Checking标签下，确保选中了Number Stored as text复选框。

在 Excel 2007/2010 中，点击Excel Options，可以从 Excel 2007 中的Office Icon或Options访问该File在 Excel 2010 中的Formulas标签中。

转到Numbers formatted as text or preceded by an apostrophe标签，确保选中Exclamation mark。

如果选中上面的复选框，您会注意到一个小的绿色三角形，如上面的快照所示。从具有绿色三角形的第一个单元格开始选择整个范围。点击Convert to number。点击{{1}}即可完成。