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

関連記事

: VBA の演算子（算術演算子）

算術演算子算術演算を行うときに使用する演算子です。 ^（べき乗）、*（積）、/ …

: データをクリアする（ClearContents メソッド）

ClearContents メソッド対象がセル範囲（Range オブジェクト） …

: 変数が配列かどうかをチェックする（ IsArray 関数）

IsArray 関数の使い方【書式】 result = IsArray( va …

: VBA の演算子（比較演算子）

比較演算子比較演算子による演算の結果は「真」の場合は「True」、「偽」の場合 …

: データ型を調べて、そのデータ型を示す数値を返す（VarType 関数）

VarType 関数の使い方 VarType 関数は、引数に、データ型を調べた …

: 色の設定（ThemeColor プロパティ・TintAndShade プロパティ）

ThemeColor プロパティ・TintAndShade プロパティテーマカ …

: カレントフォルダの取得・設定（DefaultFilePath プロパティ）

DefaultFilePath プロパティカレントフォルダとは、ブックを開いた …

: 日付時刻：日付・時刻の間隔を取得（ DateDiff 関数）

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

: 日付時刻：年・月・日を取得（Year、Month、Day 関数）

日付から年・月・日を取得する関数【書式】 date_year = Year ( …

: 文字列：文字列を指定した形式に変換する（StrConv 関数）

StrConv 関数の使い方【書式】 result = StrConv ( s …

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