はじめまして。Excelマクロを業務利用するようになった初心者です。
グラフの系列に順に色を設定するマクロを組みたかったのですが、
以下の通り作成しても様々エラーが生じてうまくいきません。
間違っている箇所と修正方法を御指摘いただきたくよろしくお願いいたします。
Sub color()
'
' color Macro
' chartsを順繰りに色決め
Dim i As Long, j As Long
Dim r As Long, g As Long, b As Long
For i = 0 To Charts.Count
For j = 0 To l
r = InputBox("rは?", "r", 0)
g = InputBox("gは?", "g", 0)
b = InputBox("bは?", "b", 0)
ActiveChart.SeriesCollection(j + 1).Select With Selection.Format.Fill .Visible = msoTrue .ForeColor.RGB = RGB(r, g, b) .Transparency = 0 .Solid End With
Next j
Next i
End Sub
質問文中に普通にソースコードを記載いただくと、前スペースが除去されてしまい、For文などのネストが見難くなってしまいます。
ソースコードは前後の行に```で囲っていただけると見やすくなって助かります。