Skip to content

CellColor

Summary

指定した範囲のセルの背景色をRGBスケールで変更する関数です。

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
Function CellColor(rngR As Range, _
                   intColorR As Long, intColorG As Long, intColorB As Long, _
                   Optional dblTintAndShade As Double)

'RGBパラメータ
    With rngR.Interior
             .Pattern = xlSolid
             .PatternColorIndex = xlAutomatic
             .Color = RGB(intColorR, intColorG, intColorB)
             .TintAndShade = dblTintAndShade
             .PatternTintAndShade = 0
    End With
End Function

説明

このコードは、指定した範囲のセルの背景色を指定したRGB値に変更します。
rngR引数で指定したセル範囲に対して、intColorR、intColorG、およびintColorB引数で指定した色コードに基づいてRGB値を設定します。

オプションのdblTintAndShade引数を使用して、色の濃度を調整することもできます。
この関数は、セルの背景色を一括で変更する際に便利です。

引数

  • rngR (Range型): 色を変更する対象のセル範囲
  • intColorR (Long型): 赤(Red)成分の色コード（0から255の範囲）
  • intColorG (Long型): 緑(Green)成分の色コード（0から255の範囲）
  • intColorB (Long型): 青(Blue)成分の色コード（0から255の範囲）
  • dblTintAndShade (Double型, オプション): 色の濃度を調整するための値（省略可能）

戻り値

  • なし

Examples

指定したセルの背景色を赤や青に変更する方法です。 

1
2
3
4
5
' A1セルの背景色を赤に変更
CellColor(Range("A1"), 255, 0, 0)

' B2:C5のセル範囲の背景色を青に変更し、濃度を0.5に設定
CellColor(Range("B2:C5"), 0, 0, 255, 0.5)