Excel（エクセル）のマクロ・ＶＢＡ・関数・操作などのメモ

色の設定（Color プロパティ・RGB 関数）

2015/07/18

Color プロパティ

Color プロパティは、指定したオブジェクトの色を取得・設定します。設定には、RGB 値を使用します。RGB 値は、RGB 関数で取得することができます。（ ⇒ RGB 値に関しては、RGB 値一覧表を参照）

【書式】

＜取得＞
result = Object.Color

＜設定＞
Object.Color = rgb

引数・戻り値

object ・・・対象となる オブジェクトを指定します。
Border オブジェクト（罫線）、Borders オブジェクト（輪郭線）、Font オブジェクト（文字）、Interior オブジェクト（セル）、FormatColor（カラースケール） など
rgb ・・・ RGB 値を指定します。
result ・・・指定したオブジェクトに設定されている RGB 値

RGB 関数

RGB 関数は、赤・緑・青の明るさを数値で指定することで色を指定します。

【書式】

result = RGB ( red, green, blue )

引数・戻り値

red ・・・赤色の強さを表す 0 ～ 255 の整数値を指定します。
green ・・・緑色の強さを表す 0 ～ 255 の整数値を指定します。
blue ・・・青色の強さを表す 0 ～ 255 の整数値を指定します。
result ・・・色を表す RGB 値

Color プロパティ・RGB 関数使用例

サンプルVBAソース

　
Sub Sample_ColorRGB()

    'セル「B2」を赤で塗りつぶします
    Range("B2").Interior.Color = RGB(255, 0, 0)
    
    'セル範囲「B4：M4」の文字色を青にします
    Range("B4:M4").Font.Color = rgbBlue
    
    'セル範囲「A5：A20」の文字色を赤にします
    Range("A5:A20").Font.Color = 255
    

    'セル「B5」から「M20」にカラースケール
    Dim myColorScale As ColorScale
    Set myColorScale = Range("B5:M20").FormatConditions.AddColorScale(3)
    myColorScale.ColorScaleCriteria(1).FormatColor.Color = RGB(0, 255, 255)
    myColorScale.ColorScaleCriteria(2).FormatColor.Color = RGB(255, 255, 0)
    myColorScale.ColorScaleCriteria(3).FormatColor.Color = RGB(255, 0, 0)

End Sub

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

　

Sub Sample_ColorRGB()

'セル「B2」を赤で塗りつぶします

Range("B2").Interior.Color = RGB(255, 0, 0)

'セル範囲「B4：M4」の文字色を青にします

Range("B4:M4").Font.Color = rgbBlue

'セル範囲「A5：A20」の文字色を赤にします

Range("A5:A20").Font.Color = 255

'セル「B5」から「M20」にカラースケール

Dim myColorScale As ColorScale

Set myColorScale = Range("B5:M20").FormatConditions.AddColorScale(3)

myColorScale.ColorScaleCriteria(1).FormatColor.Color = RGB(0, 255, 255)

myColorScale.ColorScaleCriteria(2).FormatColor.Color = RGB(255, 255, 0)

myColorScale.ColorScaleCriteria(3).FormatColor.Color = RGB(255, 0, 0)

End Sub

　

実行結果

- VBA基本 Border オブジェクト, Borders オブジェクト, Color プロパティ, Font オブジェクト, FormatColor オブジェクト, Interior オブジェクト, RGB 関数, VBA基本, エクセルVBA

Tweet

Message コメントをキャンセル

このサイトはスパムを低減するために Akismet を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: Erase ステートメント（配列の初期化・動的配列のメモリ解放）

Erase ステートメントの使い方【書式】 Erase myArray [, …

: 文字列：指定した文字コードに対応する文字を返す（Chr 関数）

Chr 関数の使い方【書式】 result = Chr ( code ) 引数 …

: メッセージボックスを表示（MsgBox関数）

MsgBox関数【書式】 result = MsgBox ( Prompt [ …

: Array 関数（バリアント型の配列を作成）

Array 関数の使い方【書式】 myArray = Array ( elem …

: 日付時刻：日付時刻データを計算（ DateAdd 関数）

DateAdd 関数（日付・時刻の値を加算・減算結果を取得）【書式】 resu …

: ユーザー定義関数：自動再計算関数の設定（Volatile メソッド）

ユーザー定義関数で、自動再計算を行うかどうかを設定するワークシート上で使用する …

: 変数が日付型かどうかをチェックする（ IsDate 関数）

IsDate 関数の使い方【書式】 result = IsDate( expr …

: VBAの変数宣言

VBAの変数宣言について変数を暗黙的に宣言するエクセル VBA の場合、明示 …

: 指定したセル範囲のサイズを変更（Resize プロパティ）

Resize プロパティ指定したセル範囲のサイズ（行数や列数）を変更します。 …

: ある数値が、複数の範囲のどの範囲に含まれるかを示す文字列を返す（Partition 関数）

Partition 関数の使い方 Partition 関数は、ある数値が、区切 …

PREV: RGB 値一覧表（XlRgbColor 列挙型）
NEXT: 色の設定（ColorIndex プロパティ・Colors プロパティ）