[[20090603191143]]　『ピボットテーブルとグラフの更新』（タロウマン）　ページの最後に飛ぶ

『ピボットテーブルとグラフの更新』（タロウマン）

  ピボットテーブルの範囲は自動で出来るようになったのですが、
 グラフの更新が上手く出来ません。
 下記のマクロのグラフのピボットテーブルの範囲が変わった場合
 自動で範囲を変えたいので教えて下さい。
 最終列の列名は抜き出せたのですが、
     ActiveChart.SetSourceData Source:="Sheets(""Ｈ21消耗品使用状況"").Range(""B4:" & 最終列 & "13"")", PlotBy:=xlRows
 ではおかしいので教えて下さい。

 Sub 最終()
    最終列 = Left(Range("IV5").End(xlToLeft).Offset(0, -1).Address(0, 0), 1)
    Range("B5").Select
    ActiveSheet.PivotTables("ﾋﾟﾎﾞｯﾄﾃｰﾌﾞﾙ1").RefreshTable
    ActiveSheet.ChartObjects("グラフ 1").Activate
    ActiveChart.ChartArea.Select
    ActiveChart.SetSourceData Source:=Sheets("Ｈ21消耗品使用状況").Range("B4:L13"), PlotBy:=xlRows
 End Sub

 ピボットグラフを作成しておけば
 ピボットテーブルが更新されたら
 勝手にグラフも更新されますが・・・
 グラフをピボットグラフに変更するのは
 駄目なんですかね・・・？

 ちなみに（こんなので良いのかは分かりませんが）
 B4セルから、最終列13行目の範囲は
     Range("B4", Cells(13, 最終列))
 の様に書けると思います。

 (HANA)

 済みません、よく見ていませんでした。
 「最終列」には列のアルファベットが入っているのですね。
 でしたら
 　　    Range("B4:" & 最終列 & "13")
 で良いと思います。

 最終列がAA列以降に成ることは無いのですかね・・・？

 (HANA)

 ありがとうございました。
　ちょっと勘違いしてました。
　"　を追加しすぎだっだ
　　　（タロウマン）

コメント返信：

[ 一覧(最新更新順) ]

[[20090603191143]] 『ピボットテーブルとグラフの更新』（タロウマン） ページの最後に飛ぶ

[[20090603191143]]　『ピボットテーブルとグラフの更新』（タロウマン）　ページの最後に飛ぶ