RGB関数:色を表す数値を取得する
RGB 関数は Excel VBA で用意されている関数の一つで、引数に指定した赤、緑、青のそれぞれの割合から色を表す数値を取得することができます。セルの背景色や表示される文字の色を指定する場合に使用します。ここでは Excel VBA における RGB 関数の使い方について解説します。
(Last modified: )
目次
RGB関数の定義と使い方
RGB 関数は赤、緑、青の色の割合を指定し、色を表す Long 型の数値を返します。
1 番目の引数には赤の割合を表す数値を 0 から 255 までの Integer 型の数値で指定してください。
2 番目の引数には緑の割合を表す数値を 0 から 255 までの Integer 型の数値で指定してください。
3 番目の引数には青の割合を表す数値を 0 から 255 までの Integer 型の数値で指定してください。
代表的な色を作成する場合の色の指定は次の通りです。
| 作成される色 | 赤 | 緑 | 青 |
|---|---|---|---|
| 黒 | 0 | 0 | 0 |
| 青 | 0 | 0 | 255 |
| 緑 | 0 | 255 | 0 |
| シアン | 0 | 255 | 255 |
| 赤 | 255 | 0 | 0 |
| マゼンタ | 255 | 0 | 255 |
| 黄色 | 255 | 255 | 0 |
| 白 | 255 | 255 | 255 |
次の例を見てください。
Debug.Print RGB(255, 0, 255) '16711935
RGB 関数は指定した引数に対する色を表す数値を返すので、今回はマゼンタを表す 16711935 とイミディエイトウィンドウに出力されます。
それでは簡単なサンプルを作成して試してみます。
Option Explicit
Sub RGB関数()
Range("B2").Value = "東京都"
Range("B2").Interior.Color = RGB(48, 48, 48)
Range("B2").Font.Color = RGB(255, 255, 255)
Range("C2").Interior.Color = RGB(0, 148, 255)
End Sub
このプログラムを実行すると、 B2 セルの文字色と背景色、 B3 セルの背景色がそれぞれ指定した色に設定されます。
-- --
Excel VBA における RGB 関数の使い方について解説しました。
( Written by Tatsuo Ikura )
著者 / TATSUO IKURA
これから IT 関連の知識を学ばれる方を対象に、色々な言語でのプログラミング方法や関連する技術、開発環境構築などに関する解説サイトを運営しています。