EXCEL 棒グラフ作成について

質問

宜しくお願いします。

例えば、
　1日　3
　2日　4
　3日　5
　4日　6
　5日　7
　　：
といったデータがあるとします。
グラフウィザードで、棒グラフを作ると
棒がデフォルトの薄紫になると思います。
棒自体をゆっくりWクリックすれば、棒の色変更が可能になります。
この場合、全ての棒が同じ色です。
特定の部をゆっくりWクリックすれば、その棒のみ色変更は可能です。
と、手動であれば色変更は可能ですが、この色変更を自動では行えないでしょうか?
例えば、日曜だけは色を変える…とか。

何か良い方法があれば、教えて下さい。

回答No.1

noname#176215 · ベストアンサー

グラフの系列を２個作って 日曜日を別に分ければできます。
一例ですけど。

　　　　　A　　　 B　　　　C　　　D
1　　　日付　　数値　 平日　日曜
2　　1/1(火)　　3　　　　3
3　　1/2(水)　　4　　　　4
4　　1/3(木)　　5　　　　5
5　　1/4(金)　　6　　　　6
6　　1/5(土)　　7　　　　7
7　　1/6(日)　　8　　　　　　　　8
8　　1/7(月)　　9　　　　9

■C2セル
=IF(WEEKDAY(A2)=1,"",B2)

■D2セル
=IF(WEEKDAY(A2)=1,B2,"")
8行目までオートフィルコピー

A1:B8セルで [挿入]→[グラフ]→[縦棒グラフ]

「系列」タブで 系列を[追加]し「平日」「日曜」を作成
「数値」を削除
→[OK]

あとは作成したグラフの系列をダブルクリック
「オプション」タブの [棒の重なり]を「100」 [棒の間隔]を「100」

大体こんな感じです。

お礼

まさにその通りです。
ありがとうございました。

自分で、他の質問者に同じような回答をしたにも関わらず
気づいていませんでした…(独り言です)

回答No.2

imogasi

VBAでデータ要素の書式設定をいじくれば可能でしょう。
ＶＢＡでもシート・グラフ混在で、少し難しいが。
わがままなニーズなんで勉強が必要。
基本的にはマクロの記録がヒントになる。
例データ
Ａ２：Ｂ１６（この例はＡ２からスタートしているところに注意）
5月1日 45
5月2日 15
5月3日 34
5月4日 11
5月5日 8
5月6日 36
5月7日 41
5月8日 23
5月9日 17
5月10日 28
5月11日 13
5月12日 7
5月13日 8
5月14日 9
5月15日 43
ーー
標準モジュールに下記をコピペして実行
Sub Macro1()
Sheets("Sheet1").Activate
d = ActiveSheet.Range("A65536").End(xlUp).Row
For i = 2 To d
Sheets("Sheet1").Activate
If Weekday(ActiveSheet.Range("A" & i)) = vbSunday Then
MsgBox ActiveSheet.Cells(i, "A")
ActiveSheet.ChartObjects("グラフ 1").Activate
ActiveChart.SeriesCollection(1).Points(i - 1).Select
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
End If
Next i
End Sub
ーーーー
5/4日５/11日（日曜）のマーカーが赤色になる。