色の設定(Color プロパティ・RGB 関数)
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ソース
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 |
実行結果
関連記事
-
-
引数が省略されたかどうかをチェックする( IsMissing 関数 )
IsMissing 関数の使い方 【書式】 result = IsMissing …
-
-
ショートカットメニュー(CommandBar オブジェクト)
ショートカットメニュー(コンテキストメニュー) 右クリックで表示されるメニューの …
-
-
ユーザー設定リストを使って並べ替える(Sort)
VBAでリスト、テーブルを並べ替える(Sort) VBAで、ソートを行うには、S …
-
-
対象のオブジェクトをクリアする(Clear メソッド)
Clear メソッド 対象となるオブジェクト全体をクリアします。Range オブ …
-
-
変数がオブジェクト型かどうかをチェックする( IsObject 関数 )
IsObject 関数の使い方 【書式】 result = IsObject ( …
-
-
テキストファイル(UTF-8)を読み込み、書き出し(ADODB.Stream)
Stream オブジェクト ADO(ActiveX Database Objec …
-
-
変数がEmpty 値かどうかをチェックする( IsEmpty 関数 )
IsEmpty 関数の使い方 【書式】 result = IsEmpty ( e …
-
-
文字列:アルファベットを小文字または大文字に変換(LCase 関数,UCase 関数)
LCase 関数・UCase 関数 の使い方 【書式】 <アルファベットの大文字 …
-
-
指定した値を8進数で表記した文字列に変換する(Oct 関数)
Oct 関数 の使い方 【書式】 result = Oct ( expressi …
-
-
変数が数値型かどうかをチェックする( IsNumeric 関数 )
IsNumeric 関数の使い方 【書式】 result = IsNumeric …