エクセルで、色を指定したと同時に数字を表示させたいのですが、可能でしょうか？

質問

エクセルの機能について教えて下さい。
セルを色付けすると同時に、数字が自動的に表示させることができるようにならないでしょうか？

例えば、青＝２　黄色＝１　赤＝０としておいて、
Ａ１のセルに青色を指定したと同時に、Ａ１セルに数字の
２が表示されるように、計算式をいれることができないかと考えています。

どうかご教授願いますｍ(_ _)ｍ

回答No.2

merlionXX · ベストアンサー

No1の merlionXXです。
では、マクロのサンプルです。

1. 該当するシートのタブを右クリック、[コードの表示]。
2. 出てきた所に、以下のコードを貼付けます。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Interior.ColorIndex
Case 5: v = 2
Case 6: v = 1
Case 3: v = 0
End Select
If v <> "" Then
Target.Value = v
End If
End Sub

3. 右上の × でExcelの画面に戻ります。

これで、青、赤、黄の色のついたセルをクリックすると、そのセルに数字が自動的に入ります。

補足

マクロまで作っていただき、本当にありがとうございました！
ｍ(_ _)ｍ

実際に行ったところ、本当に数字が現れて、絶句しました！(^-^)
本当に色々な事ができるのですね。

作っていただいたコードについては、また勉強して理解したいと思いますが、もう1点だけ教えてくださいｍ(_ _)ｍ

色の指定を、現在の青・黄・赤以外も作る場合は、「case 5:v=2」の
ところを増やしていけばよいと思われますが、他の色で行う場合、数字はどのようになるのでしょうか？何か、参照する表でもあるのでしょうか？

エクセルの、色を選択するところを見てみましたが、なぜ青色が、「case　5」で、黄色が、「case 6」であるのか、配置からでは理解ができませんでした。

たいへんお手数おかけいたしますが、ご教授のはおど、よろしくお願いいたしますｍ(_ _)ｍ

回答No.3

merlionXX

ColorIndexはあらかじめ色に割り当てられている番号で指定します。代表的な色番号は次の通りです。

色番号 色 色番号 色
-----------------------------------
1 黒 7 マゼンタ
2 白 8 シアン
3 赤 9 茶
4 明るい緑 10 緑
5 青 11 紺
6 明るい黄色 12 うぐいす

お礼

たいへんお手数をかけました。どうもありがとうございました
ｍ(_ _)ｍ

回答No.1

merlionXX

色から数値を表示させるならマクロしかないですね。
それよりは逆に数字を入れたら指定の色になるようにしたらいかがですか？
それならセルの「条件付書式」で設定できます。

お礼

早速の回答ありがとうございましたｍ(_ _)ｍ
たぶんできないのでは？と思っていましたので、逆に、マクロでならできると教えていただいてよかったです(^-^)

マクロは詳しくないので、また勉強してみたいと思います。どうしても色を先につけて、数字を表示させるようにしたいので、勉強したうえで分からなければ、再度質問させていただきたいと思います。
その時には、またよろしくお願いいたします。

今回は、どうもありがとうございましたｍ(_ _)ｍ