|
こんにちは。Satsukiと申します。グラフについてのご質問です。
下記のようなリストがあり、住所欄と比率欄でグラフを書きたいのですが、範囲指定すると、人数欄も含めたグラフができてしまいます。どのように直したらよいでしょうか。
リストは複数あり、行数は可変で、それぞれについてグラフを書くので、共通のNo.欄を基点にして範囲指定をしてみました。
どなたかご教示よろしくお願いいたします。
No. 住所 人数 比率
1 A市 245 77.5
2 B市 38 12.0
3 C市 6 1.9
4 D市 3 0.9
5 E市 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
|
|