2012-04-03 144 views
4

假設我有我的數據在行中,並且我想從中創建一個圖表(x,y散點圖)。使用VBA添加多個數據系列到excel圖表

date 1.1. 1.2. 1.3. 1.4 1.5 
set1 12 36 12 23 33 
set2 44 22 11 1 13 
set3 54 5 56 56 34 
set4 1 2 6 12 33 

我該如何將set1,set2和set4添加到圖表中,而不必一個接一個地選擇它們?

因爲我可以做

Dim xrange As Range 
Set xrange = Application.InputBox("select x-range", "Get Range", Type:=8) 

的x範圍(日期),但這樣做對數據集(多行選擇)將無法正常工作相同,因爲散點圖中的每個系列需要一個單獨的範圍

ActiveChart.SeriesCollection(1).XValues = xrange 
    ActiveChart.SeriesCollection(1).Values = "=Sheet1!$4:$4" 

但我有多個數據集的選擇。我需要一種方法來分割我的輸入框選擇範圍並將它們寫入唯一變量。然後我會用上面的方法爲每個xrange +變量對添加一個新的系列。

有沒有辦法做到這一點?

一個potentail的答案並不需要堅持我上面發佈的內容,歡迎任何建議。

+0

您必須使用'.SeriesCollection.NewSeries'。請參閱我的回覆http://stackoverflow.com/questions/9778827/graphs-with-various-y-values-and-one-x-values-in-excel-vba。 – 2012-04-03 23:03:38

回答

4

設置源數據範圍。 Excel將自動爲您創建系列。在下面的例子中,列A爲X,列B爲Y1,列D爲Y2:

ActiveChart.SetSourceData Source:=Range("A1:B4,D1:D4") 
+1

刪除X值頂部單元格中的標籤(本例中爲「Date」),以幫助Excel識別它們是X值而不是另一組Y值。如果Excel注意到第一列中的日期格式,這可能是不必要的,但最好確定一下。 – 2013-10-13 21:00:32

相關問題