人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

EXCELでグラフを作成しております。

100個ぐらい作成しなければならないのです。

データは一枚のシートに、並んでおり、それぞれ手でグラフを作っております。

マクロを使ってグラフを作ろうとしたのですが、

ActiveChart.SetSourceData Source:=Sheets(”全体まとめ”).Range(”W31:AB34”), PlotBy _


Range(”W31:AB34”
とエリアを絶対値で決められてしまい、複数のグラフを作成できません。


相対的に範囲を選択する方法が、あればできると思うのですが、調べてもよくわかりません。

はじめにグラフにしたいエリアをアクティブにしておいて、マクロを実行するだけで、グラフを作成できるようにするには、どうしたらよいのでしょうか?

ステップとしては、
1、グラフにしたいエリアの数字をアクティブにする
2、マクロを実行
3、選択したエリアの数字でグラフ作成。

という流れで作れればよいと考えております。

よろしくお願いします。

●質問者: msdtakashi
●カテゴリ:コンピュータ
✍キーワード:Excel アクティブ エリア グラフ ステップ
○ 状態 :終了
└ 回答数 : 3/3件

▽最新の回答へ

1 ● @~/かける/にょも
●20ポイント

http://support.microsoft.com/default.aspx?scid=kb;ja;408046

[XL97]コメントが挿入されているセルの数を取得する方法

以下のマクロを試してみてください。

要はSelection.Addressでrange()の括弧の中身に使える範囲が取得できますということです

Sub グラフを作る()

選択範囲 = Selection.Address ’ここで選択したセルを選択範囲変数に入れている

Charts.Add

ActiveChart.ChartType = xlLineMarkers

ActiveChart.SetSourceData Source:=Sheets(”Sheet1”).Range(選択範囲), PlotBy:= _

xlRows

ActiveChart.Location Where:=xlLocationAsObject, Name:=”Sheet1”

With ActiveChart

.HasTitle = False

.Axes(xlCategory, xlPrimary).HasTitle = False

.Axes(xlValue, xlPrimary).HasTitle = False

End With

End Sub

◎質問者からの返答

試して見ます。


2 ● nankichi
●20ポイント

http://www2.odn.ne.jp/excel/waza/graph.html#SEC4

エクセル技道場-グラフ

その目的ならマクロ使う必要はないですよ。作りたいグラフを標準にしてしまいましょう。urlにやり方が書いてあります。

http://arena.nikkeibp.co.jp/lecture/20030507/104568/

グラフを作成した後で、参照するデータ範囲を変更する / デジタルARENA

もう一つ別のやり方。

一度つくったグラフをctrlキーを押しながら適当にドラッグアンドドロップしてみてください。

コピーできます。

で、コピーしたグラフの領域をマウスで変えます。

このurlの図5 参照してください。

◎質問者からの返答

なるほど、無理にマクロ使う必要ないんですね。


3 ● aki73ix
●20ポイント

http://www15.ocn.ne.jp/~range/js/js003.html

過去の株価を調べる2

これは参考にしたサイトです


   Dim Vals As Range

    Set Vals = Range(Selection, Selection.End(xlDown))

    Charts.Add

    ActiveChart.ChartType = xlColumnClustered

    ActiveChart.SetSourceData Source:=Vals, PlotBy:= _

        xlColumns

    ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"


このように強制的に選択範囲をグラフにすることも出来ますが無理に ActiveChart.SetSourceData Source を指定しなくても

Charts.Add

ActiveChart.ChartType = xlColumnClustered

ActiveChart.Location Where:=xlLocationAsObject, Name:="Sheet1"

まででグラフを選択した範囲で作成できますよ

◎質問者からの返答

ありがとうございます。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ