|
▼kobasan さん:
>Z1を作業エリアにしています。
>
>41行から130行まで変化するようにしています。
>
>Sub Macro2()
>Dim LastRow As Long
>Dim data範囲 As String
> '最終行を設定
> if Range("z1").Value <41 then Range("z1").Value = 41
> If Range("z1").Value < 131 Then
> Range("z1").Value = Range("z1").Value + 1
> Else
> Range("z1").Value = 41
> End If
>
> LastRow = ActiveSheet.Range("z1").Value '最終行
> data範囲 = "C40:C" & LastRow & ",K40:K" & LastRow
>
>> ActiveSheet.ChartObjects("グラフ 810").Activate
>> ActiveChart.ChartArea.Select
>> ActiveChart.SetSourceData Source:=Sheets("<指 標>").Range("C40:C130,K40:K130") _
>> , PlotBy:=xlColumns
>>End Sub
できました! 以下のようにしたら、130行を基点にして、マクロを実行する毎に下の行へグラフ範囲を広げていけるようになりました。
Dim LastRow As Long
Dim data範囲 As String
'最終行を設定
If Range("z1").Value < 129 Then Range("z1").Value = 129
If Range("z1").Value < 999 Then
Range("z1").Value = Range("z1").Value + 1
Else
Range("z1").Value = 41
End If
LastRow = ActiveSheet.Range("z1").Value '最終行
data範囲 = "C40:C" & LastRow & ",K40:K" & LastRow
ActiveSheet.ChartObjects("グラフ 810").Activate
ActiveChart.ChartArea.Select
ActiveChart.SetSourceData Source:=Sheets("<指 標>").Range("C40:C" & LastRow & ",K40:K" & LastRow) _
, PlotBy:=xlColumns
感謝です! 本当にありがとうございました。
|
|