- 締切済み
Excelで添付図ようなグラフを作成するVBA
Nobu-Wの回答
- Nobu-W
- ベストアンサー率39% (725/1832)
http://excel.style-mods.net/tips_vba/index.htm 詳しく述べれないですが>< 上記HPの『グラフの操作』を参考にしてやっ てみて下さい
関連するQ&A
- EXCEL VBA グラフの名前
EXCEL上でデータを入力して、そのデータを基に手動でグラフを作成して、その過程をマクロに記録します。 出来上がったマクロに対して、MsgBox(ActiveChart.Name)という文を挿入して実行すると、 「グラフ グラフ 3」と表示されます。 一方、手動で作成したグラフを選択して、大きさを変え、それをマクロに記録して中身を見ると、 ActiveSheet.Shapes("グラフ 3").ScaleWidth 1.12, msoFalse, msoScaleFromTopLeft のように表示されます。 グラフの名前としては後者が正しいと思うのですが、 どうして前者のような表示が出てしまうのでしょうか?
- ベストアンサー
- オフィス系ソフト
- エクセルで作りたい図があるのですが上手くいきません。
研究の添えつけ資料を作成しているのですが、イメージどおりの図が作れず困っています。どのような図か、というと表しにくいのですが… ある道具について改良前使用群(A群)と改良後使用群(B群)で、同じアンケート(7項目、良い・悪いの2択)をとりました。項目毎にA群とB群を並べたものを横棒グラフ1つで表したい(提出規定上、1項目ずつ比較したグラフを載せるスペースがないため) 項目が例えば形・重さ…とあったとして、 良い 悪い 形A 42% 58% 形B 88% 12% 重さA 70% 30% 重さB 90% 10% という表にして横棒グラフ一つで表すことはできるのですが、項目毎でABの棒グラフをくっつけて見やすくしたいと思うとうまくいきません。 良い表し方があれば教えてください。よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 自動的にグラフを作成してくれるExcel VBAの作り方を教えて下さい。
001,002,003,・・・200というナンバーが B12,C12,D12,・・・??12 に入っているとします。 A13,A14,・・・A6016にはそれぞれ 1,2,3,・・・,6003 というナンバーが入っています。 B13・・・??6016 にはそれぞれのデータが入っているとします。 このデータを使って、 x軸を「A13,A14,・・・A6016」y軸を「B13・・・B6016、C13・・・C6016、・・」 として200個の散布図グラフを作成したいのですが、これを自動でやってくれる マクロを教えて下さい。 よろしくお願い致します。
- ベストアンサー
- Visual Basic
- Excel VBA グラフ作成
グラフを複数、自動で作成しようと思っています。 データは、 がっつり A 1 B 3 C 5 D 8 E 10 しっとり A 3 B 5 ・ ・ ・ 最初に「しっとり」などのような項目名が記してあり、 その後5行はデータになっています。 Aを選択した人が3人、Bを選択した人が5人などの意味です。 A2からデータが入っており、 グラフを作る個数は決まっておらず、表の個数により作成したいと思っています。 「Sheet1」にグラフを自動で作成するにあたり、 3つ質問があります。 マクロに「SampleGraphという名称で作ってみました。」 ----------------- Sub Sample_Graph() Dim i As Long Dim SampleChart As Shape i = 2 Set SampleChart = Worksheets("Sheet1").Shapes.AddChart With SampleChart.Chart .SetSourceData Range("'Sheet1'" & "A" & i + 1 & ":" & "B" & i + 6) .ChartType = xlColumnClustered .HasTitle = True .ChartTitle.Text = Range("A" & i) End With i = i + 7 End Sub ------------------------------ 質問1 実行すると、Set SampleChart = Worksheets("Sheet1").Shapes.AddChartのところで エラー438が出ます。どうしてこのエラーが出るのでしょうか? フォームにプログラムを書いて組んでいるのですが・・・ (フォームのボタン1をクリックしたら実行するようにしています) 質問2 グラフのサイズを決め、個数によって配置を変えたりしたいです。 Inputboxを使い、 ”何列にしますか?”というメッセージを表示 そして、数値を入力すると 3列でグラフ表示される 質問3 図のように、項目名とは別に 「Yes」「No」などを表示させたいです。 データに含むとおかしくなりますし、 かといってタイトルや系列名を変えることも難しいかと。 何か良い方法はありませんか? 以上、質問3点長々と書かせて頂きました。 分かりにくい点が多々ありますが、よろしくお願い致します。 せめて、グラフを作れるようにはなりたいと思っています!
- ベストアンサー
- Excel(エクセル)
- グラフ作成の仕方
こんにちは、グラフ作成の仕方でお願いします。 Vistaエクセル2007で作成した、下記の表があります。 A B C 3 商品名 単価 販売数 売上金額 4 ステッカ 500 6.487 3.243.500 5 フラッグ 600 8.127 4.876.200 6 メガホン 600 6.859 4.115.400 7 ペナント 700 6.893 4.825.100 それで ・グラフにするデータの範囲(セルA3~A7、セルD3~D7)を選択し 「挿入」→「縦棒」→「2-D縦棒」の所で「集合縦棒」をクリックすると 複合グラフにできないグラフの種類があります。別のグラフの種類を選んでください。と、情報が表示されグラフができません。 ・また 「挿入」→「縦棒」クリック、一番下に「すべてのグラフの種類」をクリックすると、グラフの挿入画面が出ます。 「縦棒」→「集合縦棒」を選択し「OK」クリックすると、やはり 上に書きました同じ情報の表示がされ、グラフができません。 どの様にしたらできるのか、教えて下さいお願いします。
- 締切済み
- Windows Vista
- エクセルのグラフ作成について
エクセルで教えてください(初心者です)。まずは、自分で調べるのでしょうが、仕事上、すぐに進めなければならないので、すいませんが知っている方で教えてくだされば幸いです。 下記のような数値をグラフ化したいのですが、大量にデータのグループがあるので、いちいちグラフ作成ボタンを押さなくとも、セルにデータを入力してグラフ作成ボタンをおせば、すべてのグループのグラフが1枚のSheetかけるようにしたいです。(マクロを組む必要があるのでしょうか) *グループ1 A B C S/N1 30 50 70 S/N2 50 60 65 S/N3 40 67 70 A,B,CをX軸,そのときの数値(30,50,70)をY軸にしたいです。 どうかお願いいたします
- 締切済み
- オフィス系ソフト
- Excelのグラフ作成
セルA1に自動で更新される値(データ)があり、 この値が更新される度にA2、A3へとシフトされ値(データ)が溜まっていきます。 (新しいデータが常にA1に表示されます) このリアルタイムで更新される値のグラフを作成したいのですが上手くいきません。 セルが挿入されデータが溜まっていきますので、A1からA10までデータが溜まった時点で グラフを作成してもグラフの範囲も一緒にシフトされ新しいデータが取り込まれません。 いい方法はないでしょうか? 宜しくお願いします。
- ベストアンサー
- Excel(エクセル)
- エクセルのグラフ作成で教えてください
エクセル 2010でのグラフ 作成で困っております。 できれば、大至急教えて下さる方がおられましたら、とても助かります。 グラフの散布図を作成したいのですが、うまくグラフに表示されません。数値は X軸・・・0.98、0.95、0.86、0.57 → のような、1以下の小数点2ケタ数ばかり、最小値0.54 Y軸・・・5.4、 4,7、 6,7、4,5→ のような、1以上の小数点一桁 最大値10、です。 入力は、半角数字でしております。 範囲選択→挿入→散布図、と、買い求めたガイドブックの 通りにやっているのですが、グラフには、タイトルの欄にずらっと数値が並び、グラフになりません。 どうすれば散布図になるでしょう。 どうぞ、よろしくお願いします。
- 締切済み
- その他(業務ソフトウェア)
- EXCELlのマクロで図を操作するには
ペイントで作成した図をExcel画面にコピーして、マクロで操作(移動など)しようとしてもできません。マクロの記録を見ると、図をクリックしても記録されておらず、クリックしたセル(A5、B3など)しか記録されていません。どうしたらできるでしょうか?
- ベストアンサー
- Windows Vista
- エクセルマクロでのグラフ作成について
エクセルのマクロでグラフを作成したいのですが 設定したい値のセルが行も列も飛び飛びなんです。このような場合、どうやってセルを設定すればいいか教えてください。 セルの自動マクロ記録でやってみると、例えばですが ActiveChart.SetSourceData Source:=Sheets("グラフ").Range( _ "A5,A10,A15,A20,A25,A30,A35,D5,D10,D15,D20,D25,D30,D35"), PlotBy:= xlColumns このような設定で希望通りのグラフが出来上がります。 A列(X軸)とD列(Y軸)の値で、列は固定で数行置きのデータでのグラフが作りたいのです。 しかもどの行かは固定ではありませんので、セルアドレスをそのまま入力するのではなく、Cells(,) で設定したいのですが、Unionを使ってみたり、色々試したのですが、うまくできません。 おわかりの方教えて頂けませんでしょうか。 よろしくお願いいたします。
- 締切済み
- その他(プログラミング・開発)
お礼
ありがとうございました。