書式を条件にしたい

質問

こんにちは。

エクセル2000を使っています。
A列に書かれた文字の色を判別して隣のB列に色名を記述したいのですが
その方法がわかりません。。

ご存知の方がいたら教えてください。

回答No.4

cistronezk

＞赤字で書かれた行を抽出できればどのような方法でもダイジョブです。

お手軽なのは、「検索と置換」ダイアログを表示して、「オプション」－「書式」で「書式の検索」を表示して「フォント」の色で検索する方法でしょうか。
ただし、Excel2000では書式による検索ができないようなので、Excel2002以降のバージョンを探してそちらで行う必要があります。

回答No.3

cistronezk

書式設定でマイナスを赤字で表示しているならCELL関数で判別できますが、そうでないならマクロを使わないといけないでしょう。
こちらが参考になるかと。
http://hp.vector.co.jp/authors/VA016119/hajimete/udf1.html
さらに、ColorIndexを「赤」とかいう文字に変換するには、別途Functionを自分で用意する必要があります。
色の種類が少ないなら、ColorIndexの数値を置換した方が速いでしょう。

参考URL：

http://hp.vector.co.jp/authors/VA016119/hajimete/udf1.html

回答No.2

nishi_24

Excelでは書式を取得することはExcelの基本機能だけでは無理です。

No.1さんのやり方ではA1に「赤」という文字が書かれていた場合の適用になってしまうので質問内容とはずれてしまいます。

VBAでマクロを記述すれば可能です。
必要でしたらコード書きましょうか？

回答No.1

akiomyau

具体的な例がないので
A1が赤だったら文字を赤くしたいとして

例えばB1を選択して
書式メニューの条件付き書式設定を
選びます。
数式がを選び
=A1="赤"
と式を入れ書式で赤を指定してはどうでしょうか。
但し、Excel2000の使用上、３つまでしか条件はできませんが。

補足

質問が伝わりにくくてゴメンナサイ；；

ご回答いただいたことの逆がやりたくて、
「A1の文字が赤色でかかれていたらB1に"赤"と表示したい」です。

例えば
A1～A100にそれぞれ"AAA"という文字が書いてありますが、
このうちいくつかの行だけが文字が赤くなっています。
その赤文字の行だけB列に"赤"と書きたいのです。

if文みたいにB列にif(A列の文字色=赤,"赤","")というような記述ができるのかと思いB列に表示と書きましたが、
赤字で書かれた行を抽出できればどのような方法でもダイジョブです。