|
>数値変数を用いながら複数のデータ範囲を指定
これは具体的にどんなことをしたいのでしょーか ?
連続していないセル範囲なら、Union メソッドをつかいますが、領域の数が多いなら
別のやり方にした方がよいでしょう。例えば A1:A3, A7, A10:A12, A15 が項目軸に
なるとして、その隣のB列の値を数値軸にプロットする場合、項目の範囲をループ
しながら2つの配列を作ります。
Dim XVary() As Long, Vary() As Long, i As Long
Dim C As Range
For Each C In Range("A1:A3, A7, A10:A12, A15")
ReDim Preserve XVary(i): XVary(i) = C.Value
ReDim Preserve Vary(i): Vary(i) = C.Offset(, 1).Value
i = i + 1
Next
With ActiveSheet.ChartObjects(1).Chart.SeriesCollection.NewSeries
.XValues = XVary
.Values = Vary
End With
Erase XVary, Vary
このような方法もある、という一例です。
|
|