色見本（ColorIndex一覧）

エクセルのワークシート上での文字やセルの背景色、ユーザーフォームのラベルなど各パーツの文字色・背景色に指定できる色見本です。

IF関数と組み合わせれば、条件に応じて色を変更することができます。

ColorIndex	RGB	16進数	ColorIndex	RGB	16進数
1	RGB(0,0,0)	#000000	29	RGB(128,0,128)	#800080
2	RGB(255,255,255)	#ffffff	30	RGB(128,0,0)	#800000
3	RGB(255,0,0)	#ff0000	31	RGB(0,128,128)	#008000
4	RGB(0,255,0)	#00ff00	32	RGB(0,0,255)	#0000ff
5	RGB(0,0,255)	#0000ff	33	RGB(0,204,255)	#00ccff
6	RGB(255,255,0)	#ffff00	34	RGB(204,255,255)	#ccffff
7	RGB(255,0,255)	#ff00ff	35	RGB(204,255,204)	#ccffcc
8	RGB(0,255,255)	#00ffff	36	RGB(255,255,153)	#ffff99
9	RGB(128,0,0)	#800000	37	RGB(153,204,255)	#99ccff
10	RGB(0,128,0)	#008000	38	RGB(255,153,204)	#ff99cc
11	RGB(0,0,128)	#000080	39	RGB(204,153,255)	#cc99ff
12	RGB(128,128,0)	#808000	40	RGB(255,204,153)	#ffcc99
13	RGB(128,0,128)	#800080	41	RGB(51,102,255)	#3366ff
14	RGB(0,128,128)	#008080	42	RGB(51,204,204)	#33cccc
15	RGB(192,192,192)	#c0c0c0	43	RGB(153,204,0)	#99cc00
16	RGB(128,128,128)	#808080	44	RGB(255,204,0)	#ffcc00
17	RGB(153,153,255)	#9999ff	45	RGB(255,153,0)	#ff9900
18	RGB(153,51,102)	#993366	46	RGB(255,102,0)	#ff6600
19	RGB(255,255,204)	#ffffcc	47	RGB(102,102,153)	#666699
20	RGB(204,255,255)	#ccffff	48	RGB(150,150,150)	#969696
21	RGB(102,0,102)	#660000	49	RGB(0,51,102)	#003366
22	RGB(255,128,128)	#ff8080	50	RGB(51,153,102)	#339966
23	RGB(0,102,204)	#0066cc	51	RGB(0,51,0)	#003300
24	RGB(204,204,255)	#ccccff	52	RGB(51,51,0)	#333300
25	RGB(0,0,128)	#000080	53	RGB(153,51,0)	#993300
26	RGB(255,0,255)	#ff00ff	54	RGB(153,51,102)	#993366
27	RGB(255,255,0)	#ffff00	55	RGB(51,51,153)	#333399
28	RGB(0,255,255)	#00ffff	56	RGB(51,51,51)	#333333

関連記事

小さな会社や個人では、アプリや専用ソフトを使って商品管理とかはコストが見合わず、エクセルで商品管理していませんか？

このエクセルによる商品管理でリストの中にある期限切れ商品が気づかずに放置されて困ったことありませんか？

エクセルファイルを開いたら自動的に通知させれば、簡単に解決しますよ！

方法は簡単で、エクセル関数とエクセルVBAを組み合わせて、ユーザーフォーム上に簡単なお知らせ機能を持たせるだけで完成しますので、作り方をご紹介します。

エクセル関数の設定

“とりっぷぼうる”サイト内で紹介しているフリーパスも、全てが通年販売だと一度掲載すればそのままでいいのですが、当然ながら期間限定フリーパスが圧倒的に多いです。

その為に期限切れになったら削除しないといけないので、サイト内で管理は難しいのでエクセルにリストを作成して管理しています。

見ての通り、実際にこのような単純なリストで管理しています。

TODAY関数で本日の日付を自動取得

今日の日付は当然ながら日々変わっていくので、わざわざ毎回手入力するなんて面倒です。

そこで、エクセルを開いたら今日の日付を自動的に取得して表示させる関数が「TODAY関数」です。

上記画像にTODAY関数はセルF2に記入しています。

このTODAY関数を私自身は様々なエクセルファイルで使用してるぐらい、使用頻度の高いエクセル関数と言ってもいいと思います。

しかも使い方もすごく簡単でセルF2にはこのように入力しているだけです。

それでは次に、残り何日なのかが分かるように計算式を設定しましょう。

期限終了日から今日の日付を引いて残数表示

上記画像に計算式はD列に記入しています。

ごくごく普通の引き算なので、終了日から今日の日付を引くと残り日数が表示され、例えばセルD2には下記のように数式を入れると・・・

となりますが、あまりにもこのままでは単純すぎて、C列が空欄（まだリストにデータが無い状態）だと、エラーになり#####と表示されてしまいます。

このままでは並べ替えなどができないので、空欄の時は「0」と表示されるようにIF関数を使いましょう。

これで、フリーパス（商品）が未登録の時は「0」となり、エラー表示が無くなり見た目もスッキリしますね。

この式をD列の3行目以降にも入力すれば完成ですが、ここでの場合は200行目まで入力してあれば、問題ないと思って入れてあります。

このIF関数はとても便利で条件に応じて結果を自由に変えることができるので、絶対にマスターしなくちゃいけないエクセル関数です。

エクセル関数での準備はこれでおしまいなので、残りは全てエクセルVBAで作業となります。

ワークシート上の見栄えなどの書式などは、ここでは省略します。

エクセルVBAの設定

ここで行うエクセルVBAを使わないで毎回の手作業であれば、特に必要が無くなってしまうのですが、エクセルVBAでの設定を行うと下記手順が全て自動化されますので、エクセルファイルを開いただけで完成します。

1. リストの並べ替えが自動化され期限切れに近い順に表示されます
2. 期限切れになったリスト見つけて文字色を赤字に変えて目立たせる

この2つの作業が一瞬で行われるのでとても便利なので、下記の手順で設定していきましょう。

並べ替えVBAコード

エクセルファイルを開くと同時に様々な作業を行うには、VBA画面のThisWorkbookに自動化させたい作業１，２の順番にコードを書いて行けば完成します。

まず最初に、並べ替えVBAコードを記述するとこにより商品リストの終了日が古い順（小さい）に並べ替えることができます。

先ほどご案内した通り、ここでは200行目までとします！

このままでも、エクセルファイルを開くと自動的に期限切れに近くなってきた順に上から表示されるので、手動で並べ替えを行うよりは確実になると思います。

ただ、せっかくなので目立つように期限切れになった時には、文字色を赤字にして目立たせましょう。

参考までに、エクセルVBAでの並べ替え項目は3つまでとなっています。

期限切れリストを見つけたら赤文字

先ほど並べ替えを行うVBAコードを書いた次の行に、残日数（期限）が切れたら（マイナス表示になったら）文字色を赤に表示するというVBAコードを書き足します。

このようにVBAコードを書くと、セルD2がマイナスなら赤文字、次にセルD3をチェック、次にセルD4をチェックと繰り返し200行目（セルD200）まで繰り返しチェックしてくれます。

完成したVBAコード

下記が１，２を組み合わせて完成したコードを、ThisWorkbookに書いています。

関連記事

表の中で特定の値を目立たせるために色を変更したいと思った事ありませんか？

Excel-VBAを使えば、一瞬で見つけ出して目立つように色を変更することができるFont.ColorIndexと条件分岐のIFステートメント、さらに繰り返し処理を行うFor～Nextを組み合わせた方法ご紹介します。

条件により文字色を変更

Excel-VBAを使わずに表の中で条件に合ったセルの値の文字色を変更することもでき、ワークシート上で【ホーム】【条件付き書式】【新しいルール】で条件設定したい全てのセルに設定できますが、複数となるとめんどくさいし大変ですよね。

そこでExcel-VBAを使って、ユーザーフォームに配置したコマンドボタンにVBAコードを書きこんでおけば、ボタン1回押すだけでできるので効率的ですし簡単です。

IF～ThenとFor～Nextを組み合わせ

ここでやりたいことは、条件に一致したセルを繰り返し探してVBAで文字色を変える事なので、複数のセルをそれぞれ条件に合っていれば、赤色文字に変更、そうでない場合は黒色文字に変更するという事です。

関連記事

ユーザーフォームに配置したコマンドボタンの文字色を条件に応じて変更したいと思いませんか？

Excel-VBAのForeColorプロパティとStaticステートメントを使うことで、コマンドボタンをクリックするたびに黒色文字と赤色文字が交互に表示できるようになります。

ForeColorプロパティ

エクセルに標準機能として用意されているVBA「ForeColorプロパティ」は、RGBの色番号を指定することで文字色を変更することができます。

文字色変更するVBAコード

まず基本となるユーザーフォームに配置したコマンドボタン1をクリックすると文字色を初期設定の「黒色」から「赤色」に変更するだけならば、下記のようにVBAコードを記述すれば簡単にできます。

IFステートメント追加で戻せるようにする

それでは、次に黒色文字の時にクリックすると赤色文字になり、赤色文字の時は黒色文字に変更できるようにするには、条件分岐のIFステートメントを追加します。

このようなVBAコードを記述すると、コマンドボタンをクリックするたびに文字色が黒色と赤色を繰り返し表示されるようになります。

Staticステートメント

マイクロソフトのサイトを見るとこのように記載されています。

プロシージャ レベルで変数を宣言し、ストレージ領域を割り当てるために使用します。 Static ステートメントで宣言された変数は、コードが実行されている間はその値を保持します。

マイクロソフト公式サイトより引用

難しいことが書いてありますが、簡略すると・・・

好きな名前で変数を宣言（ここではonoff）してEnd Ifまでは、状態が有効になっているので、文字色が今何色なのかを見続けることができています。

そして真偽を判定でき「Boolean (ブール型変数)」を使う事で、黒色の場合・赤色の場合と判定ができるようになります。

そして最後に「変数」＝Not「変数」でスイッチのように入り切りできるようになるので、黒文字と赤文字がクリック毎に切り替わるようになります。

関連記事

表の中で特定の値を目立たせるためにセルの背景色を変更したいと思った事ありませんか？

Excel-VBAを使えば、一瞬で見つけ出して目立つように色を変更することができるFont.ColorIndexと条件分岐のIFステートメント、さらに繰り返し処理を行うFor～Nextを組み合わせた方法ご紹介します。

ColorIndexとFor～Next

Excel-VBAを使わずに表の中で条件に合ったセルの値の文字色を変更することもでき、ワークシート上で【ホーム】【条件付き書式】【新しいルール】で条件設定したい全てのセルに設定できますが、複数となるとめんどくさいし大変ですよね。

そこでExcel-VBAを使って、ユーザーフォームに配置したコマンドボタンにVBAコードを書きこんでおけば、ボタン1回押すだけでできるので効率的ですし簡単です。

ここでやりたいことは、条件に一致したセルを繰り返し探してVBAで背景色を変える事なので、複数のセルをそれぞれ条件に合っていれば、うすピンク背景色に変更、そうでない場合は白色背景色に変更するという事です。

というVBAコードで繰り返し指定した行の値を探して条件に合致すれば、背景色を変えてくれます。

関連記事

コピペOK！ユーザーフォームに配置しているラベル（Label）の色を初期設定の黒色ではなくて、目立つように赤色に変更したいと思ったことありませんか？

ForeColorとRGBの組み合わせで重複した値を見つけたら色変更もできるので、ご紹介いたします。

ラベル色指定ForeColor=RGBとIfの組み合わせ

ユーザーフォームに配置したラベルの色を初期設定の黒色ではなく、赤色に変えるならばラベルのプロパティ内より「ForeColor」「パレット」で変更することができます。

しかしながらこの場合は常時赤色になってしまい、条件によってラベルの色を変更することはできません。

そこでIFステートメントとForeColor = RGBを組み合わせることで、「もし〇〇だったら、赤色、そうでなかったら黒色」というように条件に応じて色を変更することができます。

ここでは、セルA1とセルA2の点数が同じ場合に、ユーザーフォームに配置したラベルの色を変更するVBAコードをご紹介します。

関連記事