Excel VBA質問箱 IV

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

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


3848 / 13646 ツリー ←次へ | 前へ→

【59851】円グラフのセル範囲指定について かりこ 09/1/13(火) 21:30 質問[未読]
【59852】Re:円グラフのセル範囲指定について kanabun 09/1/13(火) 21:46 発言[未読]
【59854】Re:円グラフのセル範囲指定について かりこ 09/1/13(火) 22:25 お礼[未読]

【59851】円グラフのセル範囲指定について
質問  かりこ  - 09/1/13(火) 21:30 -

引用なし
パスワード
   こんにちは。円グラフの指定について教えてくださいませ。

A列 B列
NO  数値
101 100
222 200
312 200
411 300

合計 800


NO別に合計に対する値を%で円グラフにしたいのですが

With ActiveSheet.ChartObjects(1).Chart
   .ChartType = xlPie
   .SetSourceData Source:=データ, PlotBy:=xlColumns
End With

(NOの数はその都度違うのですが)
データ部分の
セル指定をどのようにしたら、%で表示できるのでしょうか。

結果としては・・
101は12.5%
222は25.0%
312は25.0%
411は37.5%
の円グラフです。

宜しくお願い致します。

【59852】Re:円グラフのセル範囲指定について
発言  kanabun  - 09/1/13(火) 21:46 -

引用なし
パスワード
   ▼かりこ さん:
>こんにちは。

>NO別に合計に対する値を%で円グラフにしたいのですが
>
>With ActiveSheet.ChartObjects(1).Chart
>   .ChartType = xlPie
>   .SetSourceData Source:=データ, PlotBy:=xlColumns
>End With
>
>(NOの数はその都度違うのですが)
>データ部分の
>セル指定をどのようにしたら、%で表示できるのでしょうか。

A列の NO の書式を 「文字列」にしてあれば、データソースの指定は
  .SetSourceData Source:=Sheets("Sheet1").Range("A1:B5")

でいいはずです。
%表示するには
系列の書式設定 - データラベル で、「ラベルの内容」をパーセント
にして、表示されたラベル%の「表示形式」で 小数点以下1位を
指定すればいいと思います。

  .SeriesCollection(1).ApplyDataLabels AutoText:=True, LegendKey:= _
    False, HasLeaderLines:=True, ShowSeriesName:=False, _
    ShowCategoryName:=False, ShowValue:=False, _
    ShowPercentage:=True, ShowBubbleSize:=False
  .SeriesCollection(1).DataLabels.NumberFormatLocal = "0.0%"



【59854】Re:円グラフのセル範囲指定について
お礼  かりこ  - 09/1/13(火) 22:25 -

引用なし
パスワード
   ▼kanabun さん:
ありがとうございました。
うまく作成できました!

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