HOME > エクセルVBA > サンプル > Color

Color


【ファイル名】Color.xlsm
【バージョン】Ver 1.0.0.0
【作成日】2021年07月14日
【動作確認】Windows 10
【必要なソフト】Microsoft Excel 2010
【ダウンロード】Color.zip
【説明】ColorConstants と XlRgbColor 定数と QBColor 関数の色のサンプルです。
【外部リンク】Docs > Office VBA リファレンス > 言語リファレンス > リファレンス > 定数 > カラー定数
ColorConstants
定数 値(16進数) 値(10進数) 説明 色の見本
vbBlack &H000000 0
vbRed &H0000FF 255
vbGreen &H00FF00 65280
vbYellow &H00FFFF 65535
vbBlue &HFF0000 16711680
vbMagenta &HFF00FF 16711935
vbCyan &HFFFF00 16776960 シアン
vbWhite &HFFFFFF 16777215
このページの上

【外部リンク】Docs > Office VBA リファレンス > Excel > オブジェクト モデル > Enumerations > XlRgbColor 列挙
XlRgbColor(名前順)
名前 値(10進数) 説明 色の見本
rgbAliceBlue 16775408 アリスブルー
rgbAntiqueWhite 14150650 アンティークホワイト
rgbAqua 16776960 水色
rgbAquamarine 13959039 アクアマリン
rgbAzure 16777200 空色
rgbBeige 14480885 ベージュ
rgbBisque 12903679 ビスク
rgbBlack 0
rgbBlanchedAlmond 13495295 ブランシュアーモンド
rgbBlue 16711680
rgbBlueViolet 14822282 青紫
rgbBrown 2763429
rgbBurlyWood 8894686 バーリーウッド
rgbCadetBlue 10526303 カデットブルー
rgbChartreuse 65407 シャルトルーズ
rgbCoral 5275647 さんご
rgbCornflowerBlue 15570276 コーンフラワーブルー
rgbCornsilk 14481663 コーンシルク
rgbCrimson 3937500 深紅
rgbDarkBlue 9109504 濃い青
rgbDarkCyan 9145088 濃いシアン
rgbDarkGoldenrod 755384 濃いゴールデンロッド
rgbDarkGray 11119017 濃い灰色
rgbDarkGreen 25600 濃い緑
rgbDarkGrey 11119017 濃い灰色
rgbDarkKhaki 7059389 濃いカーキ
rgbDarkMagenta 9109643 濃いマゼンタ
rgbDarkOliveGreen 3107669 濃いオリーブグリーン
rgbDarkOrange 36095 濃いオレンジ
rgbDarkOrchid 13382297 濃いオーキッド
rgbDarkRed 139 濃い赤
rgbDarkSalmon 8034025 濃いサーモンピンク
rgbDarkSeaGreen 9419919 濃いシーグリーン
rgbDarkSlateBlue 9125192 濃いスレートブルー
rgbDarkSlateGray 5197615 濃いスレートグレー
rgbDarkSlateGrey 5197615 濃いスレートグレー
rgbDarkTurquoise 13749760 濃いターコイズ
rgbDarkViolet 13828244 濃い紫
rgbDeepPink 9639167 深いピンク
rgbDeepSkyBlue 16760576 深いスカイブルー
rgbDimGray 6908265 ディムグレー
rgbDimGrey 6908265 ディムグレー
rgbDodgerBlue 16748574 ドジャーブルー
rgbFireBrick 2237106 れんが色
rgbFloralWhite 15792895 フローラルホワイト
rgbForestGreen 2263842 フォレストグリーン
rgbFuchsia 16711935 明るい紫
rgbGainsboro 14474460 ゲーンズボロ
rgbGhostWhite 16775416 ゴーストホワイト
rgbGold 55295 ゴールド
rgbGoldenrod 2139610 ゴールデンロッド
rgbGray 8421504 灰色
rgbGreen 32768
rgbGreenYellow 3145645 グリーンイエロー
rgbGrey 8421504 灰色
rgbHoneydew 15794160 ハニーデュー
rgbHotPink 11823615 ホットピンク
rgbIndianRed 6053069 インディアンレッド
rgbIndigo 8519755 インディゴ
rgbIvory 15794175 アイボリー
rgbKhaki 9234160 カーキ
rgbLavender 16443110 ラベンダー
rgbLavenderBlush 16118015 ラベンダーブラッシュ
rgbLawnGreen 64636 若草色
rgbLemonChiffon 13499135 レモンシフォン
rgbLightBlue 15128749 明るい青
rgbLightCoral 8421616 薄いさんご
rgbLightCyan 9145088 明るい水色
rgbLightGoldenrodYellow 13826810 LightGoldenrodYellow
rgbLightGray 13882323 薄い灰色
rgbLightGreen 9498256 明るい緑
rgbLightGrey 13882323 薄い灰色
rgbLightPink 12695295 薄いピンク
rgbLightSalmon 8036607 薄いサーモンピンク
rgbLightSeaGreen 11186720 薄いシーグリーン
rgbLightSkyBlue 16436871 薄いスカイブルー
rgbLightSlateGray 10061943 薄いスレートグレー
rgbLightSteelBlue 14599344 薄いスチールブルー
rgbLightYellow 14745599 明るい黄
rgbLime 65280 黄緑
rgbLimeGreen 3329330 ライムグリーン
rgbLinen 15134970 リネン
rgbMaroon 128 栗色
rgbMediumAquamarine 11206502 淡いアクアマリン
rgbMediumBlue 13434880 淡い青
rgbMediumOrchid 13850042 淡いオーキッド
rgbMediumPurple 14381203 淡い紫
rgbMediumSeaGreen 7451452 淡いシーグリーン
rgbMediumSlateBlue 15624315 淡いスレートブルー
rgbMediumSpringGreen 10156544 淡いスプリンググリーン
rgbMediumTurquoise 13422920 淡いターコイズ
rgbMediumVioletRed 8721863 淡いバイオレットレッド
rgbMidnightBlue 7346457 ミッドナイトブルー
rgbMintCream 16449525 ミントクリーム
rgbMistyRose 14804223 ミスティローズ
rgbMoccasin 11920639 モカシン
rgbNavajoWhite 11394815 ナバホホワイト
rgbNavy 8388608 ネイビー
rgbNavyBlue 8388608 ネイビーブルー
rgbOldLace 15136253 オールドレース
rgbOlive 32896 オリーブ
rgbOliveDrab 2330219 オリーブドラブ
rgbOrange 42495 オレンジ
rgbOrangeRed 17919 オレンジレッド
rgbOrchid 14053594 オーキッド
rgbPaleGoldenrod 7071982 ペールゴールデンロッド
rgbPaleGreen 10025880 ペールグリーン
rgbPaleTurquoise 15658671 ペールターコイズ
rgbPaleVioletRed 9662683 ペールバイオレットレッド
rgbPapayaWhip 14020607 パパイヤホイップ
rgbPeachPuff 12180223 ピーチパフ
rgbPeru 4163021 ペルー
rgbPink 13353215 ピンク
rgbPlum 14524637 プラム
rgbPowderBlue 15130800 パウダーブルー
rgbPurple 8388736
rgbRed 255
rgbRosyBrown 9408444 ローズブラウン
rgbRoyalBlue 14772545 ロイヤルブルー
rgbSalmon 7504122 サーモンピンク
rgbSandyBrown 6333684 サンディブラウン
rgbSeaGreen 5737262 シーグリーン
rgbSeashell 15660543 シーシェル
rgbSienna 2970272 シェンナ
rgbSilver 12632256 銀色
rgbSkyBlue 15453831 スカイブルー
rgbSlateBlue 13458026 スレートブルー
rgbSlateGray 9470064 スレートグレー
rgbSnow 16448255 スノー
rgbSpringGreen 8388352 スプリンググリーン
rgbSteelBlue 11829830 スチールブルー
rgbTan 9221330 タン
rgbTeal 8421376 青緑
rgbThistle 14204888 あざみ色
rgbTomato 4678655 トマト
rgbTurquoise 13688896 ターコイズ
rgbViolet 15631086 紫色
rgbWheat 11788021 小麦
rgbWhite 16777215
rgbWhiteSmoke 16119285 ホワイトスモーク
rgbYellow 65535
rgbYellowGreen 3329434 イエローグリーン

XlRgbColor(色相順)
名前 値(10進数) 説明 色の見本 色相 輝度 彩度 RGB
rgbLightPink 12695295 薄いピンク 234 206 240 255, 182, 193
rgbPink 13353215 ピンク 233 210 240 255, 192, 203
rgbCrimson 3937500 深紅 232 113 200 220, 20, 60
rgbLavenderBlush 16118015 ラベンダーブラッシュ 227 233 240 255, 240, 245
rgbPaleVioletRed 9662683 ペールバイオレットレッド 227 156 143 219, 112, 147
rgbHotPink 11823615 ホットピンク 220 169 240 255, 105, 180
rgbDeepPink 9639167 深いピンク 218 129 240 255, 20, 147
rgbMediumVioletRed 8721863 淡いバイオレットレッド 215 104 194 199, 21, 133
rgbOrchid 14053594 オーキッド 202 155 141 218, 112, 214
rgbFuchsia 16711935 明るい紫 200 120 240 255, 0, 255
rgbDarkMagenta 9109643 濃いマゼンタ 200 65 240 139, 0, 139
rgbPurple 8388736 200 60 240 128, 0, 128
rgbViolet 15631086 紫色 200 173 183 238, 130, 238
rgbPlum 14524637 プラム 200 179 113 221, 160, 221
rgbThistle 14204888 あざみ色 200 192 58 216, 191, 216
rgbMediumOrchid 13850042 淡いオーキッド 192 139 141 186, 85, 211
rgbDarkViolet 13828244 濃い紫 188 99 240 148, 0, 211
rgbDarkOrchid 13382297 濃いオーキッド 187 120 146 153, 50, 204
rgbIndigo 8519755 インディゴ 183 61 240 75, 0, 130
rgbBlueViolet 14822282 青紫 181 127 182 138, 43, 226
rgbMediumPurple 14381203 淡い紫 173 156 143 147, 112, 219
rgbMediumSlateBlue 15624315 淡いスレートブルー 166 161 191 123, 104, 238
rgbSlateBlue 13458026 スレートブルー 166 139 128 106, 90, 205
rgbDarkSlateBlue 9125192 濃いスレートブルー 166 94 94 72, 61, 139
rgbGhostWhite 16775416 ゴーストホワイト 160 237 240 248, 248, 255
rgbBlue 16711680 160 120 240 0, 0, 255
rgbMediumBlue 13434880 淡い青 160 96 240 0, 0, 205
rgbDarkBlue 9109504 濃い青 160 65 240 0, 0, 139
rgbNavy 8388608 ネイビー 160 60 240 0, 0, 128
rgbNavyBlue 8388608 ネイビーブルー 160 60 240 0, 0, 128
rgbLavender 16443110 ラベンダー 160 226 160 230, 230, 250
rgbMidnightBlue 7346457 ミッドナイトブルー 160 64 152 25, 25, 112
rgbWhite 16777215 160 240 0 255, 255, 255
rgbWhiteSmoke 16119285 ホワイトスモーク 160 231 0 245, 245, 245
rgbGainsboro 14474460 ゲーンズボロ 160 207 0 220, 220, 220
rgbLightGray 13882323 薄い灰色 160 199 0 211, 211, 211
rgbLightGrey 13882323 薄い灰色 160 199 0 211, 211, 211
rgbSilver 12632256 銀色 160 181 0 192, 192, 192
rgbDarkGray 11119017 濃い灰色 160 159 0 169, 169, 169
rgbDarkGrey 11119017 濃い灰色 160 159 0 169, 169, 169
rgbGray 8421504 灰色 160 120 0 128, 128, 128
rgbGrey 8421504 灰色 160 120 0 128, 128, 128
rgbDimGray 6908265 ディムグレー 160 99 0 105, 105, 105
rgbDimGrey 6908265 ディムグレー 160 99 0 105, 105, 105
rgbBlack 0 160 0 0 0, 0, 0
rgbRoyalBlue 14772545 ロイヤルブルー 150 136 175 65, 105, 225
rgbCornflowerBlue 15570276 コーンフラワーブルー 146 159 190 100, 149, 237
rgbLightSteelBlue 14599344 薄いスチールブルー 143 187 99 176, 196, 222
rgbDodgerBlue 16748574 ドジャーブルー 140 134 240 30, 144, 255
rgbLightSlateGray 10061943 薄いスレートグレー 140 128 34 119, 136, 153
rgbSlateGray 9470064 スレートグレー 140 120 30 112, 128, 144
rgbAliceBlue 16775408 アリスブルー 139 233 240 240, 248, 255
rgbSteelBlue 11829830 スチールブルー 138 118 106 70, 130, 180
rgbLightSkyBlue 16436871 薄いスカイブルー 135 181 221 135, 206, 250
rgbSkyBlue 15453831 スカイブルー 132 174 171 135, 206, 235
rgbDeepSkyBlue 16760576 深いスカイブルー 130 120 240 0, 191, 255
rgbLightBlue 15128749 明るい青 130 190 128 173, 216, 230
rgbPowderBlue 15130800 パウダーブルー 124 191 125 176, 224, 230
rgbDarkTurquoise 13749760 濃いターコイズ 121 98 240 0, 206, 209
rgbCadetBlue 10526303 カデットブルー 121 120 61 95, 158, 160
rgbAzure 16777200 空色 120 233 240 240, 255, 255
rgbAqua 16776960 水色 120 120 240 0, 255, 255
rgbDarkCyan 9145088 濃いシアン 120 65 240 0, 139, 139
rgbLightCyan 9145088 明るい水色 120 65 240 0, 139, 139
rgbTeal 8421376 青緑 120 60 240 0, 128, 128
rgbPaleTurquoise 15658671 ペールターコイズ 120 194 156 175, 238, 238
rgbDarkSlateGray 5197615 濃いスレートグレー 120 59 61 47, 79, 79
rgbDarkSlateGrey 5197615 濃いスレートグレー 120 59 61 47, 79, 79
rgbMediumTurquoise 13422920 淡いターコイズ 119 132 144 72, 209, 204
rgbLightSeaGreen 11186720 薄いシーグリーン 118 99 167 32, 178, 170
rgbTurquoise 13688896 ターコイズ 116 136 173 64, 224, 208
rgbAquamarine 13959039 アクアマリン 107 180 240 127, 255, 212
rgbMediumSpringGreen 10156544 淡いスプリンググリーン 105 118 240 0, 250, 154
rgbMintCream 16449525 ミントクリーム 100 235 240 245, 255, 250
rgbSpringGreen 8388352 スプリンググリーン 100 120 240 0, 255, 127
rgbMediumAquamarine 11206502 淡いアクアマリン 98 168 240 102, 255, 170
rgbSeaGreen 5737262 シーグリーン 98 87 121 46, 139, 87
rgbMediumSeaGreen 7451452 淡いシーグリーン 98 112 119 60, 179, 113
rgbHoneydew 15794160 ハニーデュー 80 233 240 240, 255, 240
rgbLime 65280 黄緑 80 120 240 0, 255, 0
rgbGreen 32768 80 60 240 0, 128, 0
rgbDarkGreen 25600 濃い緑 80 47 240 0, 100, 0
rgbPaleGreen 10025880 ペールグリーン 80 190 222 152, 251, 152
rgbLightGreen 9498256 明るい緑 80 180 176 144, 238, 144
rgbLimeGreen 3329330 ライムグリーン 80 120 146 50, 205, 50
rgbForestGreen 2263842 フォレストグリーン 80 81 146 34, 139, 34
rgbDarkSeaGreen 9419919 濃いシーグリーン 80 156 60 143, 188, 143
rgbChartreuse 65407 シャルトルーズ 60 120 240 127, 255, 0
rgbLawnGreen 64636 若草色 60 119 240 124, 252, 0
rgbGreenYellow 3145645 グリーンイエロー 56 142 240 173, 255, 47
rgbDarkOliveGreen 3107669 濃いオリーブグリーン 55 72 94 85, 107, 47
rgbYellowGreen 3329434 イエローグリーン 53 120 146 154, 205, 50
rgbOliveDrab 2330219 オリーブドラブ 53 83 145 107, 142, 35
rgbIvory 15794175 アイボリー 40 233 240 255, 255, 240
rgbLightYellow 14745599 明るい黄 40 225 240 255, 255, 224
rgbYellow 65535 40 120 240 255, 255, 0
rgbOlive 32896 オリーブ 40 60 240 128, 128, 0
rgbLightGoldenrodYellow 13826810 LightGoldenrodYellow 40 216 192 250, 250, 210
rgbBeige 14480885 ベージュ 40 219 133 245, 245, 220
rgbPaleGoldenrod 7071982 ペールゴールデンロッド 38 162 191 238, 232, 107
rgbDarkKhaki 7059389 濃いカーキ 37 139 92 189, 183, 107
rgbLemonChiffon 13499135 レモンシフォン 36 216 240 255, 250, 205
rgbKhaki 9234160 カーキ 36 179 185 240, 230, 140
rgbGold 55295 ゴールド 34 120 240 255, 215, 0
rgbCornsilk 14481663 コーンシルク 32 224 240 255, 248, 220
rgbGoldenrod 2139610 ゴールデンロッド 29 118 179 218, 165, 32
rgbDarkGoldenrod 755384 濃いゴールデンロッド 28 92 213 184, 134, 11
rgbFloralWhite 15792895 フローラルホワイト 27 233 240 255, 250, 240
rgbOrange 42495 オレンジ 26 120 240 255, 165, 0
rgbOldLace 15136253 オールドレース 26 227 204 253, 245, 230
rgbWheat 11788021 小麦 26 200 184 245, 222, 179
rgbPapayaWhip 14020607 パパイヤホイップ 25 220 240 255, 239, 213
rgbMoccasin 11920639 モカシン 25 205 240 255, 228, 181
rgbBlanchedAlmond 13495295 ブランシュアーモンド 24 216 240 255, 235, 205
rgbNavajoWhite 11394815 ナバホホワイト 24 201 240 255, 222, 173
rgbAntiqueWhite 14150650 アンティークホワイト 23 219 187 250, 235, 215
rgbBurlyWood 8894686 バーリーウッド 23 168 136 222, 184, 135
rgbTan 9221330 タン 23 165 105 210, 180, 140
rgbBisque 12903679 ビスク 22 212 240 255, 228, 196
rgbDarkOrange 36095 濃いオレンジ 22 120 240 255, 140, 0
rgbLinen 15134970 リネン 20 226 160 250, 240, 230
rgbPeru 4163021 ペルー 20 126 141 205, 133, 63
rgbPeachPuff 12180223 ピーチパフ 19 207 240 255, 218, 185
rgbSandyBrown 6333684 サンディブラウン 18 160 209 244, 164, 96
rgbSeashell 15660543 シーシェル 16 232 240 255, 245, 238
rgbSienna 2970272 シェンナ 13 96 135 160, 82, 45
rgbLightSalmon 8036607 薄いサーモンピンク 11 177 240 255, 160, 122
rgbCoral 5275647 さんご 11 158 240 255, 127, 80
rgbOrangeRed 17919 オレンジレッド 11 120 240 255, 69, 0
rgbDarkSalmon 8034025 濃いサーモンピンク 10 167 172 233, 150, 122
rgbTomato 4678655 トマト 6 153 240 255, 99, 71
rgbMistyRose 14804223 ミスティローズ 4 226 240 255, 228, 225
rgbSalmon 7504122 サーモンピンク 4 171 224 250, 128, 114
rgbSnow 16448255 スノー 0 238 240 255, 250, 250
rgbRed 255 0 120 240 255, 0, 0
rgbDarkRed 139 濃い赤 0 65 240 139, 0, 0
rgbMaroon 128 栗色 0 60 240 128, 0, 0
rgbLightCoral 8421616 薄いさんご 0 173 189 240, 128, 128
rgbFireBrick 2237106 れんが色 0 100 163 178, 34, 34
rgbBrown 2763429 0 97 143 165, 42, 42
rgbIndianRed 6053069 インディアンレッド 0 140 127 205, 92, 92
rgbRosyBrown 9408444 ローズブラウン 0 156 60 188, 143, 143
このページの上

【外部リンク】Docs > Office VBA リファレンス > 言語リファレンス > リファレンス > 関数 > QBColor 関数
番号 色の名前 色の見本
0
1
2
3 シアン
4
5 マゼンタ
6
7
8 灰色
9 明るい青
10 明るい緑
11 明るいシアン
12 明るい赤
13 明るいマゼンタ
14 明るい黄
15 明るい白
このページの上

【外部リンク】Windows > Apps > AWin32 > API > The Windows Shell > Shlwapi.h > ColorRGBToHLS function
【外部リンク】Windows > Apps > AWin32 > API > The Windows Shell > Shlwapi.h > ColorHLSToRGB function
Module1
Option Explicit

#If Win64 Then
  ' https://docs.microsoft.com/ja-jp/windows/win32/api/shlwapi/nf-shlwapi-colorrgbtohls
  Private Declare PtrSafe Sub ColorRGBToHLS Lib "Shlwapi.dll" (ByVal clrRGB As Long, pwHue As Integer, pwLuminance As Integer, pwSaturation As Integer)
  
  ' https://docs.microsoft.com/ja-jp/windows/win32/api/shlwapi/nf-shlwapi-colorhlstorgb
  Private Declare PtrSafe Function ColorHLSToRGB Lib "Shlwapi.dll" (ByVal wHue As Integer, ByVal wLuminance As Integer, ByVal wSaturation As Integer) As Long
#Else
  Private Declare Sub ColorRGBToHLS Lib "Shlwapi.dll" (ByVal clrRGB As Long, pwHue As Integer, pwLuminance As Integer, pwSaturation As Integer)
  Private Declare Function ColorHLSToRGB Lib "Shlwapi.dll" (ByVal wHue As Integer, ByVal wLuminance As Integer, ByVal wSaturation As Integer) As Long
#End If

' 色相を取得する
Public Function Hue(ByVal clrRGB As Long) As Integer
  Dim pwHue As Integer
  Dim pwLuminance As Integer
  Dim pwSaturation As Integer
  
  Call ColorRGBToHLS(clrRGB, pwHue, pwLuminance, pwSaturation)
  Hue = pwHue
End Function

' 輝度を取得する
Public Function Luminance(ByVal clrRGB As Long) As Integer
  Dim pwHue As Integer
  Dim pwLuminance As Integer
  Dim pwSaturation As Integer
  
  Call ColorRGBToHLS(clrRGB, pwHue, pwLuminance, pwSaturation)
  Luminance = pwLuminance
End Function

' 彩度を取得する
Public Function Saturation(ByVal clrRGB As Long) As Integer
  Dim pwHue As Integer
  Dim pwLuminance As Integer
  Dim pwSaturation As Integer
  
  Call ColorRGBToHLS(clrRGB, pwHue, pwLuminance, pwSaturation)
  Saturation = pwSaturation
End Function

' HLSからRGBの色を取得する
Public Function HLSToRGB(ByVal wHue As Integer, ByVal wLuminance As Integer, ByVal wSaturation As Integer) As Long
  HLSToRGB = ColorHLSToRGB(wHue, wLuminance, wSaturation)
End Function

' 色のR, G, Bの数値の文字列を取得する
Public Function RGBToStr(ByVal clrRGB As Long) As String
    Dim r, G, B
    
    r = clrRGB Mod 256
    G = Int(clrRGB / 256) Mod 256
    B = Int(clrRGB / 256 / 256)
    
    RGBToStr = r & ", " & G & ", " & B
End Function

' 赤色の数値を取得する
Public Function getRed(ByVal clrRGB As Long) As Integer
    getRed = clrRGB Mod 256
End Function

' 緑色の数値を取得する
Public Function getGreen(ByVal clrRGB As Long) As Integer
    getGreen = Int(clrRGB / 256) Mod 256
End Function

' 青色の数値を取得する
Public Function getBlue(ByVal clrRGB As Long) As Integer
    getBlue = Int(clrRGB / 256 / 256)
End Function

' 色のR, G, Bの数値を取得する
Private Sub getRGB(ByVal clrRGB As Long, ByRef r As Long, ByRef G As Long, ByRef B As Long)
    r = clrRGB Mod 256
    G = Int(clrRGB / 256) Mod 256
    B = Int(clrRGB / 256 / 256)
End Sub
このページの上