セルの背景をグラデーションにする

シートを美しく見せるために、セルの背景にグラデーションをかけたくなる場合があります。セルの背景に色をつけるで説明した通り、セルの色はInterior.Colorプロパティに色を与えることで着色できます。そこでこれを少し工夫し、与える色を少しずつ変える工夫を加えることでグラデーションを作ることができます。ここでは色の指定をRGBで行います。RGBはその名の通り、順番にRed、Green、Blueを255段階で指定します。今回は赤いグラデーションを作ることにしますので、赤は常に255にします。緑、青の数字が0に近いほど純粋な赤、255に近いほど白に近づきますから、forを使って他の色の大きさを変化させれば良いわけです。このマクロでB列を10行目まで着色すると、こんな感じになります。

Sub test()   For i = 1 To 10     'G,Bの色を指定する。255をi/10ずつ増加させ、変数idxに格納     idx = 255 * i / 10     'セルの色を指定     Cells(i, 2).Interior.Color = RGB(255, idx, idx)   Next i End Sub

ビジネスプロフェッショナルのExcel術 (日経BPムック)