Excel VBA質問箱 IV

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

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


7482 / 76732 ←次へ | 前へ→

【74837】Re:1つのシートへまとめる方法
発言  kanabun  - 13/9/26(木) 0:48 -

引用なし
パスワード
   ▼lol さん:
>こんにちは!VBA初心者です(__)
>
>下記のマクロはグループごとにシートが作成されるため、シートの数が100を越えてしまいます。なのでこれらのデータを一枚のシートに納めたいのですが、

コードをみると、データはグループごとにまとまっていて、2行目から下へ
ループしていって、上と異なるグループに入ったら、直前のグループについて
新規シートに そのグループの最初の行start_grp から 現在行の1行前(i-1) まで
行データを転記し、
転記されたシートのほうで 折れ線グラフを作成しているようです。

なので、グループごとにシートに分けないということは、グループの変わり目で
新規シートを作ってそこにグラフを作るという処理を、
グループの変わり目を見つけたら、シートは作らず、元のシート上に グラフを
描く処理だけ マクロにすればいいということになります。

ただし、グラフの系列名は 元シートの1行目だけにあるので、グラフの元データ範囲 は 大まかにいうと、 元シートの
> (start_grp & ":" & i - 1)
の範囲を指定して SetDataSourceして、各系列の名前はあとから 1行目をセット
するようにしてやるとうまく行くと思います。
グラフの「系列データ」メニューで 「名前」のセルをセットする操作のマクロ
記録を採ってみてください。

1 hits

【74836】1つのシートへまとめる方法 lol 13/9/25(水) 19:02 質問
【74837】Re:1つのシートへまとめる方法 kanabun 13/9/26(木) 0:48 発言
【74840】Re:1つのシートへまとめる方法 こたつねこ 13/9/26(木) 10:05 発言

7482 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free