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

関連記事

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

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

: ショートカットメニュー（CommandBar オブジェクト）

ショートカットメニュー（コンテキストメニュー）右クリックで表示されるメニューの …

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

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

: VBA の演算子（文字連結演算子：& 演算子 + 演算子）

文字連結演算子文字連結演算子は、文字列の連結を行うときに使用する演算子で、「& …

: CPU に制御を移す（DoEvents 関数）

DoEvents 関数 DoEvents 関数を実行すると、CPU に制御を移し …

: 四捨五入・切り上げ・切り捨て・丸め（Round 関数他）

Round 関数（丸め）の使い方【書式】 value = Round ( ex …

: 連想配列（Dictionary オブジェクト）

連想配列連想配列とは、添字（キー）に文字列を使用することができる配列です。 V …

: 引数の整数部分を取得する（Fix 関数・Int 関数）

Fix 関数・Int 関数の使い方【書式】 number_fix = Fix …

: Join 関数（配列の要素を結合）

Join 関数 1次元配列の各要素を指定した区切り文字で連結します。【書式】 …

: 書式を変換（Format 関数）

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

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