Excel VBA テクニック集
カラーコードから赤緑青のコードへの変換関数





Excel VBA テクニック集
カラーコードから赤緑青のコードへの変換関数です。
つまり、ＲＧＢ関数の逆関数です。ＲＧＢ関数を数式で表現すると、
（カラー）＝（青）×２５６×２５６＋（緑）×２５６＋（赤）
なので、この逆関数を作れば赤緑青の各コードが取得できます。


Public Function Get_Color_Blue(Color_Value As Long) As Integer
    Get_Color_Blue = (Color_Value And &HFF0000) \ 65536
End Function

Public Function Get_Color_Green(Color_Value As Long) As Integer
    Get_Color_Green = (Color_Value And &HFF00&) \ 256
End Function

Public Function Get_Color_Red(Color_Value As Long) As Integer
    Get_Color_Red = Color_Value And &HFF&
End Function

「こだわりハウス」写真館| 数学公式集| ピンポイントストリートビュー| ＦａｃｅＢｏｏｋ| Excel Vba テクニック集| Excel 計算式解析・他解析| 富山の建築家| Excel 計算式解析・他解析| 積分の定義・積分の記号の意味の研究|