Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3847 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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")

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

　　.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 さん：
ありがとうございました。
うまく作成できました！
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3847 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free