Excel VBA質問箱 IV

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

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


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

25036 / 76732

←次へ　｜　前へ→


	【57041】グラフの範囲指定（系列指定）

satsuki - 08/7/18(金) 16:23 -


	引用なし

	パスワード

こんにちは。Satsukiと申します。グラフについてのご質問です。
下記のようなリストがあり、住所欄と比率欄でグラフを書きたいのですが、範囲指定すると、人数欄も含めたグラフができてしまいます。どのように直したらよいでしょうか。
リストは複数あり、行数は可変で、それぞれについてグラフを書くので、共通のNo.欄を基点にして範囲指定をしてみました。
どなたかご教示よろしくお願いいたします。

No. 住所　人数　　　　比率
1　Ａ市　　 245　　　　77.5
2　Ｂ市　　　38　　　　12.0
3　Ｃ市　　　 6　　　　 1.9
4　Ｄ市　　　 3　　　　 0.9
5　Ｅ市　　　 1　　　　 0.3
　不明　　　23　　　　 7.3 　　　　
　合計　　 316　　　 100.0

Dim FR As Range
Dim FR2 As Range
Dim myrange As Range
Dim myrange2 As Range
Range("A1").Select

Dim SearchWord As String
　　SearchWord = "No."
　　Set FR = Worksheets("グラフ").Range("A1:A500").Find
　　(What:=SearchWord, LookIn:=xlValues, LookAt:=xlWhole)

　　Worksheets("グラフ").Select
　　Range(FR.Address).Offset(1, 1).Select
　　Set myrange = Range(Range(FR.Address).Offset(1, 1), Range(Selection,_
　　 Selection.End(xlDown).Offset(-1, 0)))
　　Range(FR.Address).Offset(1, 3).Select
　　Set myrange2 = Range(Range(FR.Address).Offset(1, 3), Range(Selection,_
　　 Selection.End(xlDown).Offset(-1, 0)))

　　Charts.Add
　　ActiveChart.ChartType = xlBarClustered
　　ActiveChart.SetSourceData Source:=Sheets("グラフ").Range(myrange,_
　　 myrange2), PlotBy:=xlColumns

0 hits

▼

【57041】グラフの範囲指定（系列指定） satsuki 08/7/18(金) 16:23

≪