|
▼γ さん:
>こんにちは。
>
>そのコードはどこから持ってきたものですか?
>その説明をしてください。
>SheetとかLCとかSCとかはどのように設定されたもの?
>そういうセル範囲を指定しているんでしょう、としか言えない。
>
>あなたの目的(数値がどこに配置されていて、どのような種類のグラフを
>書こうとしているのか)を説明するのが先決でしょう。
>そして、マクロ記録をしてみるのが、最上の方法でしょう。
>>返答ありがとうございます。
コードは作成依頼したものです。
それを参考に自分でアレンジしたかったのですが、
依頼すると有料ですので・・・
説明不足でしたね申し訳ございません。
5つの項目について指定期間の折れ線グラフを作成するものです。
グラフに関する記述はシートの5つの列の指定範囲のグラフを表して
居るものだと思いますが私には分かりません。
以下の範囲で説明が出来るようでありましたらお願い致します。
'グラフ作成
Dim i As Long, SC As Long, LC As Long, CL As Long
SC = StartCell
LC = LastCell
'作画
With ActiveSheet.ChartObjects(1).Chart
For i = 1 To .SeriesCollection.Count
.SeriesCollection(i).Formula = _
"=SERIES(" & sheet & "!R6C" & i + 41 & ":R7C" & i + 41 & "," & sheet & "!R" & SC & "C1:R" & LC & "C1," & sheet & "!R" & SC & "C" & i + 41 & ":R" & LC & "C" & i + 41 & "," & i & ")"
Next i
End With
End Sub
|
|