Excel VBA質問箱 IV

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

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


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

46791 / 76732

←次へ　｜　前へ→


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

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


	引用なし

	パスワード

▼kobasan さん：
>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

すいません。試してみたのですが、129行から130行へグラフ範囲を広げることはできましたが、その次にマクロを実行しても131行へ変化しませんでした。
よくわかってなくてすいません。

0 hits

▼

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