2013-12-09 76 views
0

這是我的第一篇文章。我有一個循環遍歷圖表中的每個系列的宏,並且應該將系列公式打印到工作表列中。分配給單元格的字符串是空的,但不是分配給消息框時的字符串?

即使字符串變量(form_string)不是,也會顯示錯誤,因爲單元格值返回爲空。似乎將form_string打印到消息框工作正常。我嘗試了將字符串分配給單元格或範圍的所有變體,但似乎沒有任何變化。

Sub ChartSeriesForms() 

    Dim x As Series 
    Dim form_counter As Integer 
    Dim form_string As String 

    form_counter = 1 
    For Each x In Charts(1).SeriesCollection 
      form_string = x.Formula 
      'MsgBox form_string 
      Worksheets("SeriesFormula").Cells(form_counter,1).Value = form_string 
      form_counter = form_counter + 1 
    Next 

End Sub 

任何想法,這將是偉大的。

回答

0

你的問題是,x.Formula形式

=SERIES([Series Name],[X Values],[Y Values],[Plot Order]) 

返回一個字符串,當你寫這一個單元格Excel嘗試把它解釋爲一個工作表中公式,這是無效的。

如果你只是想看看公式在單元格中的文本,在前面加上一個'

Worksheets("SeriesFormula").Cells(form_counter,1).Value = "'" & form_string 
+0

感謝您的回答。它效果很好。 – skyscraper

相關問題