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 を使っています。コメントデータの処理方法の詳細はこちらをご覧ください。

関連記事

: 式を評価し、結果（真・偽）に応じた式・値を返す（IIf 関数）

IIf 関数の使い方 IIf（アイイフ）関数は、式を評価してその結果（真・偽） …

: Math 関数（ Abs,Atn,Cos,Exp,Log,Rnd,Sgn,Sin,Sqr,Tan ）

Abs 関数【書式】 value = Abs ( number ) 【引数・戻 …

: IME の現在の状態を取得します（IMEStatus 関数）

IMEStatus 関数の使い方【書式】 result = IMEStatus …

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

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

: 文字に下線を設定する（Underline プロパティ）

下線を設定（Underline プロパティ） Underline プロパティは、 …

: ポイント単位の値に変換（CentimetersToPoints,InchesToPoints）

CentimetersToPoints メソッドセンチメートル単位の値をポイン …

: VBA の演算子（演算子の優先順位）

演算子の優先順位演算子の優先順位とは、１つの式の中に演算子が複数ある場合、どの …

: オブジェクトの書式をクリアする（ClearFormats メソッド）

ClearFormats メソッド対象となるオブジェクトの書式（スタイル）を初 …

: 指定した値を16進数で表記した文字列に変換する（Hex 関数）

Hex 関数の使い方【書式】 result = Hex ( expressi …

: 文字列：文字列右から指定文字数取得（Right 関数,RightB 関数）

Right 関数・RightB 関数の使い方【書式】 result_righ …

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