Excel VBA質問箱 IV

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

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


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

46796 / 76732

←次へ　｜　前へ→


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

kobasan - 06/2/16(木) 0:12 -


	引用なし

	パスワード

▼ぷーちゃんさん今晩は。

Z1を作業エリアにしています。

41行から130行まで変化するようにしています。

これでどうでしょうか。

>以下は、グラフ809を選択した時に表示されたグラフ範囲に対して、1行下にドラッグして、グラフ範囲を1行広げた自動実行のプログラムです。
>これを改造？して、次にマクロを実行した時に、このグラフ範囲が更に1行下に広がるようししたいのです。つまり、マクロを実行する度に、下にグラフ範囲が1行づつ広がっていくようにしたいのです。
>
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

1 hits

▼

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