エクセルのグラフで可能でしょうか？

質問

エクセルのグラフを利用して以下のことは可能でしょうか？
簡単な例で説明させていただきます。

エクセルA列には商品名
　　　　B列にはすべて【1】を入力。
たとえば
A　　　　 B
りんご　　1
みかん　　1
メロン　　1
すいか　　1

を基本に円グラフを作成すると
グラフは90度で4分割したものができると思います。
その角度は固定をしたままで
C列に　それぞれの在庫の有無を入力したとします。
たとえば
A　　　　 B　　　C
りんご　　1　　　有
みかん　　1　　　無
メロン　　1　　　無
すいか　　1　　　有

すると、りんごとすいかのグラフが色づき
みかんとめろんは色がつかない
それにより、グラフの色づきで在庫の有無を確認する
そういったような使い方をしたいのですが、
このようなことは可能でしょうか？
よろしくお願いいたします。

回答No.1

mt2008 · ベストアンサー

マクロを使わないと難しいと思います。
ちなみに、マクロでやるとするとこんな感じですかね。

Sub Sample()
　Dim i, nColor As Integer
　ActiveSheet.ChartObjects("グラフ 1").Select
　For i = 1 To 4 '←4分割されているので4回ループ
　　nColor = 20 '←「無」の時の色
　　If Cells(i, 3) = "有" Then nColor = 45 '←「有」の時の色
　　ActiveChart.SeriesCollection(1).Points(i).Interior.ColorIndex = nColor
　Next i
End Sub

お礼

ありがとうございます。
早速試してみたのですがとても基本的なことで申し訳ないのですが、
マクロの【グラフ1】のところが
私が作成したグラフと一致しないようで
ChartObjectプロパティを取得できませんというエラーになります。
グラフ1をいろいろ変更してみたのですがうまくいきませんでした・・・
大変申し訳ないのですが、この【グラフ1】のオブジェクト名を調べる方法をご教授いただけないでしょうか？
また、さらに申し訳ないのですが、
ここでエラーがでて検証できないので
よろしければ教えていただきたいのですが、
このマクロはマクロボタンを作成して登録するのでしょうか？
それともグラフに登録するのでしょうか？

重ねて申し訳ありませんが、よろしくお願いします。

回答No.3

mt2008

No.1です。
グラフのオブジェクト名の確認でしたら
グラフエリアを選択してグラフウィンドウを表示すると上部のバーに「[Book1]Sheet1 グラフ1」と言う感じでオブジェクト名が表示されます。
あるいは、マクロの記録でグラフエリアを選択してからマクロのソースを見る……など、いくつか方法はあります。
個人的には後者ですね。コピペ出来ますから。

マクロはボタンを作って登録の方が、使う側にとって判りやすくて良いと思います。

お礼

ありがとうございます。

うまくいきました！！

ボタンの登録でもちゃんと反応しました！！

お手数おかけしました。

回答No.2

koko88okok

特定のセルに「有」を入力した時、特定のセルに色を表示すればよいと思いますので、「条件付き書式設定」をお使いになることをお勧めします。

具体的には、以下のように操作～設定します。
下記のような表で、A1セルを選択して「書式」→「条件付き書式」で表示されるダイアログで、「数式が」を表示し「=B1="有"」と入力して、「書式」ボタンを押して「パターン」タブでご希望の色を指定します。

A1セルを選択して、オートフィルコピーし、「オートフィルオプション」ボタンを押して「書式のみコピー」を選択します。

Ｂ１以下のセルに「有」が入力されると、左隣のセルの背景に色が付きます。色を変更したい場合は、そのセルを選択して「条件付き書式設定」で色を変更します。

　Ａ　　　Ｂ
りんご　　有
みかん　　無
メロン　　無
スイカ　　有

「条件付き書式の活用」
http://hamachan.info/excel/jyoken.html

なお、在庫の「有」「無」は、「入力規則」を設定すると、マウスのクリックだけで入力ができます。

「リストで入力簡単！」
http://kokoro.kir.jp/excel/nkisoku_list.html

お礼

さっそくありがとうございます。

条件付書式設定はわかってたのですが、

それをクグラフを使って行いたかったもので・・・