1

これまで Excel 2010 で手動で行っていたプロセスを自動化しようとしています。ピボット グラフを頻繁に作成します。これらのグラフの系列の 1 つが棒として表示されます。ピボット チャートの行ラベルの 1 つに基づいて、各バーの塗りつぶしの色を変更します。たとえば、行ラベル = "GEO" の場合、バーの塗りつぶしの色を緑に変更します。

このプロセスは、VBA を使用して自動化できると確信しています。これまでの私のコードは次のとおりです。このマクロを実行すると、If ステートメントの最初の行で停止し、このエラーが発生します。コンパイル エラー: 配列が必要です。このコードを機能させる方法について誰かアドバイスをもらえますか?

Sub By_Rig_PC_Coloring()

For i = 1 To ActiveChart.SeriesCollection(2).Points.Count
    ActiveChart.SeriesCollection(2).Points(i).Select
    If xlRowField("MFR") = "GEO" Then
        Selection.Format.Fill.Forcolor.RGB = RGB(0, 176, 80)
    End If
Next i

End Sub
4

1 に答える 1