0

ボタンをクリックしてグラフを生成するコードを書きましたが、正しく機能しています。

問題は、最初から最後まで列全体を選択しているため、2番目のセルから指定された列を選択したいということです。

これが私のコードです：

Dim ch As Chart
Set ch = ActiveWorkbook.Charts.Add
Set ch = ch.Location(Where:=xlLocationAsObject, Name:=assume)

With ch

.ChartType = xlXYScatterLines

With .Parent
    .Top = Columns(b).Offset(0, 4).Top
    .Left = Columns(b).Offset(0, 4).Left
    .Name = "ch"
End With

End With


Dim sh As Series
Set sh = ch.SeriesCollection(1)

 With sh
.Values = Columns(b).Offset(0, 0)
.XValues = Columns(b).Offset(0, -2)
End With

ここで「assume」はシート名を保持する変数です。そして、「b」は、列名の例「a」「b」を保持する変数です...

soo "b"= coulmn "e" の場合、Columns(b).Offset(0, -2) の 2 番目のセルからデータを選択する必要があります。

4

1 に答える 1

0

Columns(b)たとえばに置き換えRange(cells(2, b), cells(65536, b))ます。

65536は、Excel 2003で可能な最大の行番号ですが、それ以降のバージョンでは何であるかわかりません。あなたの場合、最後の行番号が何であれ、それを入れてください。

于 2012-10-11T13:25:56.907 に答える