|
▼Kein さん:
>>から1列左、3行下のセルを基準として、その基準セルから400行下、3行右の範囲
>という指定は
>
>>.Offset(3, -1).Resize(400, 3))
>
>の部分になります。Offset,Resizeプロパティのヘルプを調べて下さい。
>こちらでテストしたかぎりでは
>>アクティブセルのみのグラフ
>にはなりませんでしたが。
教示いただいたマクロを参考にし、以下のようにモディファイしました。
2行のマクロはアクティブセルの選択を行っています。
Sub 電流波形グラフ作成()
Rows("8:8").Find(Range("G6").Value).Activate
Dim MyR As Range
With ActiveCell
If .Parent.Name <> "Sheet1" Then Exit Sub
If .Column < 3 Then Exit Sub
Set MyR = Union(Range("B10:B400"), _
.Offset(3, -1).Resize(400, 3))
End With
With Charts.Add
.ChartType = xlXYScatterLinesNoMarkers
.SetSourceData MyR
.Name = "Graph1"
End With
Set MyR = Nothing
(以下、中略)
End Sub
以下中略部ではグラフのタイトル設定等のマクロが記述されたいます。
|
|