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 [, …

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

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

: 列挙型変数（Enum ステートメント）

列挙型変数を使う列挙型変数を使用するには、Enum ステートメントを使って、宣 …

: セルのデータを区切り文字で複数のセルに分割する（TextToColumns メソッド）

TextToColumns メソッド TextToColumns メソッドを使用 …

: 日付時刻：文字列から日付・時刻データを取得（ DateValue 関数、TimeValue 関数）

DateValue 関数（文字列から日付データを取得）【書式】 date_va …

: 上付き文字・下付き文字（Superscript,Subscript）

上付き文字（Superscript プロパティ） Superscript プロパ …

: 変数がNull 値かどうかをチェックする（ IsNull 関数）

IsNull 関数の使い方【書式】 result = IsNull ( exp …

: ユーザー設定リストを使って並べ替える（Sort）

VBAでリスト、テーブルを並べ替える（Sort） VBAで、ソートを行うには、S …

: カレントフォルダ（CurDir 関数、ChDir ステートメント、ChDrive ステートメント）

カレントフォルダカレントフォルダとは、ブックを開いたり保存するときに既定で参照 …

: 文字列：アルファベットを小文字または大文字に変換（LCase 関数,UCase 関数）

LCase 関数・UCase 関数の使い方【書式】＜アルファベットの大文字 …

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