色の設定(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 |
実行結果
関連記事
-
-
文字列:指定した文字の文字コードを取得する(Asc 関数)
Asc 関数 【書式】 result = Asc ( string ) 引数・戻 …
-
-
四捨五入・切り上げ・切り捨て・丸め(Round 関数 他)
Round 関数(丸め)の使い方 【書式】 value = Round ( ex …
-
-
フォント 太字・斜体(Bold, Italic, FontStyle プロパティ)
太字の設定(Bold プロパティ) Bold プロパティは、フォントを太字にする …
-
-
日付時刻:経過時間を取得( Timer 関数 )
Timer 関数の使い方 【書式】 result = Timer () 【戻り値 …
-
-
変数のデータ型・宣言(Dim ステートメント)
変数の宣言 一般的な方法 【書式】 Dim varname [ As type, …
-
-
データをクリアする(ClearContents メソッド)
ClearContents メソッド 対象がセル範囲(Range オブジェクト) …
-
-
変数が数値型かどうかをチェックする( IsNumeric 関数 )
IsNumeric 関数の使い方 【書式】 result = IsNumeric …
-
-
画面の更新を停止(ScreenUpdating プロパティ)
画面の更新を停止 マクロを実行すると、画面が更新されます。これにより、実行速度が …
-
-
書式を変換(Format 関数)
Format 関数の使い方 【書式】 result = Format ( exp …
-
-
引数の整数部分を取得する(Fix 関数・Int 関数)
Fix 関数・Int 関数の使い方 【書式】 number_fix = Fix …