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 

有存儲在單元格

文本值否則將其解釋爲（未知）公式