Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

46784 / 76732

←次へ　｜　前へ→


	【34915】Re:マクロについて教えて下さい-その１

ぷーちゃん - 06/2/16(木) 2:05 -


	引用なし

	パスワード

▼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

感謝です！　本当にありがとうございました。

1 hits

▼

【34890】マクロについて教えて下さい-その１ ぷーちゃん 06/2/15(水) 22:48