当尝试将系列公式分配给单元格值时，Excel Vba - 运行时错误1004

Question

我遇到了运行时错误代码1004：应用程序定义或对象定义。

当我尝试获取所有图表的所有系列值时，我需要将其粘贴到单元格以便于监控。一切都运行正常，但当我试图给出一个与系列值相等的值时，它就会停滞不前。

示例：

Dim xchart As ChartObject
For Each xchart In ActiveSheet.ChartObjects

Dim ser As Series

For Each ser In xchart.Chart.SeriesCollection
 ......
    Sheet1.Range("a1").Value = ser.Formula ' Run-time Error Occur
 ....
Next ser    
Next xchart

有人可以帮我解决这个问题吗？

Answer 1

使用

Sheet1.Range("a1").Value = "'" & ser.Formula 

将文本值存储在单元格

中

否则会将其解释为（未知）公式