特定の文字の時にセルの色を塗り替えたい

質問

お知恵をお貸しください。

エクセルで編み物の図柄を作っているのですが、イメージしやすいように
毛糸の色に合わせて、色を変えたいと思い、各セルにA・Ｂ・C・D・・・と文字を入れて
「条件付け」で都度色を変えられるようにしようと思いましたが、私の持っている
エクセルはver.2000と古くて条件付けが3個迄しかできませんでした。

OpenOfficeなら最新版が手に入るからとダウンロードしてみましたが、こちらも条件付けは3個迄でいｓた…。

他のソフトだと使い慣れないのもあり、できればエクセルで何とかしたいのですが、
良い方法がわかりません。

調べたところ、VBAというので何とかできそうというのもありましたが、今まで全く触ったことがなく
少し見ただけではさっぱり判らず途方にくれています。

[1]希望としては特定のセルを一度で色を塗り替えられる。

[2]できれば色はRGBなどで変えたい。

以上です。

添付が色を変えたいセルのものです。3色は条件付けで色付けをしています。

良い方法をご存知の方、ご教示をお願いいたします。

回答No.1

keithin · ベストアンサー

手順：添付図
シート２のＡ列に、何と記入したらどのように色塗りしたいのか、実際のサンプルを作成する
シート１に戻る
シート１のシート名タブを右クリック、コードの表示を選ぶ
現れたシートに下記をコピー貼り付ける

private sub worksheet_change(byval Target as excel.range)
　dim h as range
　on error resume next
　for each h in target
　h.interior.colorindex = xlnone
　h.interior.colorindex = worksheets("Sheet2").range("A:A").find(what:=h.value,lookin:=xlvalues,lookat:=xlwhole).interior.colorindex
　next
end sub

ファイルメニューから終了してエクセルに戻る
シート１に記入する。

＃参考
１セルずつ記入しても、いくつかのセルにまとめて記入したり削除したりコピー貼り付けても構いません。
まずまっさらのエクセルに実際に作成し、ご自分の手を色々動かしてください。

＃補足
既にシート１に記入済みの網目に後から色を付ける手順：
（シート２の色塗りを変更した場合に反映する方法も同じ）

シート２に色塗りサンプルを作成する
シート１にマクロを登録する
シート１に記入済みの内容をコピーする
その場で上から重ねて貼り付ける

＃参考
エクセル２００７以降を使うと、条件付き書式で３色の制約は無くなって無制限に色数を増やせるようになります。

お礼

詳しく、わかりやすくご説明頂き、ありがとうございます。

早速、試した所、sheet2を設定した後、色は変わらなかったのですが、再度sheet1のセルに「Ａ」を入力したら無事に色が変わりました。

その後、試しにAの色を『臙脂色』→『パステルイエロー』にsheet2の方で変更して、
sheet1の色が変更するか確認したところ、sheet1の色は変わらずでしたが
再度sheet1のセルに「A」を入力しなおすと、パステルイエローに変わりましたが、
これだと、毎回色を変える毎に文字を入植しなおさなくてはならず、量が多いので大変になります。

できれば、設定次第で色を変えられる方法をご存知であれば、お教え頂けますよう、お願い申上げます。

追伸
エクセル2007以降は条件付が無制限というのもお教え頂きありがとうございます。
今回質問の前に初めて知ったのですが、高価なソフトなので、なかなかすぐには購入できず、手持ちの物で何とかならないかと思っております。

回答No.2

keithin

ん？

＞毎回色を変える毎に文字を入植しなおさなくてはならず、量が多いので大変になります。

わざわざそんなメンドクサイ事をしなくても、そういう状況についても最初に書いておきましたよ。
回答を読んでいないのですね。失礼な話だと思いませんか？

再掲：
既にシート１に記入済みの網目に後から色を付ける手順：
（シート２の色塗りを変更した場合に反映する方法も同じ）

シート２に色塗りサンプルを作成する
シート１にマクロを登録する
シート１に記入済みの内容をコピーする
その場で上から重ねて貼り付ける

再掲：
まっさらのエクセルに実際に作成し、ご自分の手を色々動かしてください。

＞設定次第で色を変えられる方法をご存知であれば、お教え頂けますよう、お願い申上げます。

言葉が足りてませんが、「色を塗り替えたら即座に反映」と言いたのでしょうね。
そういう方法はありません。（あったら最初からそういう風にお話ししてますよ。）

ちなみに。
シート２の色を塗り替えた後、イチイチマクロボタンをポチッとすればシート１に反映するようなマクロを作る事も、もちろん出来ます。私の回答とは違うやり方なのでフォローはしませんが、興味があるようならマクロも勉強してみて下さい。

＞早速、試した所…

エクセル２００３では元から「条件付き書式では３色しか塗れない」のを、無理矢理マクロにやらせているのですから。
手順通りにやらないと、当然上手くいきません。勝手なやり方をしていて「思い通りにならない」と言われても、もちろんダメです。

思い通りにやりたいなら、より高性能な、最新の２００７以降のソフトをご利用ください。
諦めて出来る方法でやるのか、やりたいように出来るよう投資するか。です。

お礼

ご教示ありがとうございます。

再度、試した結果、コピーペーストで上手く色を変更することができました。

貼り付けの方法も試したつもりでしたが、やり方が間違っていたようです。

丁寧にお教えくださっていたのに、理解が至らず本当に失礼いたしました。

希望の操作を無事にすることができましたので、こちらで解決とさせて頂きます。

このたびは、本当にありがとうございました。

取り急ぎ、お礼までですが失礼いたします。