エクセルど素人から、再度質問です。

質問

エクセルど素人から、再度質問です。
シート１に、
　A
1 雨
2　雪
3　あめ
4　飴
5　幸
　・
　・
　・
と、様々な言葉が続いています。

シート２には、
　　　A　　　　　　　　　　B 　　　　　 　　 C 　
1 明日は　　　　　　　昨日と違って　　　　　雨になる　　
2　今日の　　　　　　　天気は　　　　　　　　雪かも・・・
3　祭り　　　　　　　　行ったら　　　　　　　あめ買う
　　・
　　・
　　・
こんなエクセル表　シート１とシート２があって、シート１のすべての単語をシート２の表から検索（抽出？）して、その該当するシート２の単語だけを色付けしたいのです。

こんな技をぜひとも教えてください。ど素人なので、詳しいやり方を教えてください。
どうぞよろしくお願いいたします。

回答No.2

tom04 · ベストアンサー

No．1です！
何度も失礼します。

他に色々方法を考えてみたのですが、なかなか良い案が浮かびません。
結局前回の応用になってしまいますが・・・

条件付書式は別Sheetを参照出来なかったと思いますので、
↓の画像のように同じSheetに作業用の表を作成します。
相対参照になりますので、同じSheetのどこでもかまいません、開いているスペースを利用すれば良いと思います。

今回はSheet1の検索文字がありSheet2のセル内に検索文字が含まれていれば、水色になるようにしています。

Sheet2のA9セルに
=IF(OR(ISNUMBER(FIND(Sheet1!$A$2:$A$6,A1))),1,"")
前回にも書きましたが、ここで検索文字の範囲に空白が含まれていると全てのセルに「1」が表示されてしまいますので、
Sheet1のA列を範囲指定する場合は空白を含まないようにしてください。
（配列数式ですので　前回同様Shift＋Ctrl＋Enterキーで確定です。）
これを列方向と行方向にオートフィルでずぃ～～～～！っとコピーします。

そして、Sheet2の色づけしたい表全てを範囲指定し、
条件付書式の「数式が」の数式欄に
=A9=1　としてパターンの色を水色にしています。
これでSheet1の範囲指定した中の文字が含まれるセルに色がつきます。

これでお判りかと思いますが、条件付書式の数式欄のセル番地は
作業用の表の左一番上のセル番地にしておきます。

以上、今回も長々と書いてしまいましたが、
参考になったでしょうか？
この程度しか思い浮かびません。m(__)m

お礼

tom04さん、返事が遅くなり申し訳ありません。
できました！！！！
本当に感動です。素晴らしい！！

本当にありがとうございました。心の底から感謝です。
今後も何かあった時はよろしくお願いします。

ありがとうございました。

回答No.1

tom04

こんばんは！
解釈が違っていたらごめんなさい。

↓の画像のようにSheet1のA列に入力されている単語がSheet2のセルにあれば
そのセルが「赤」になるようにしています。
一つ引っかかるのは
>・・・その該当するシート２の単語だけを色付けしたいのです。・・・

という部分です。
セル内の単語だけ！というわけにはいきませんが。

Sheet2のセルに一気に条件付書式から塗るつぶし！という方法ではありませんが、
作業用の列をSheet2のデータ列分設けています。
Sheet2のD2セルに
=IF(OR(ISNUMBER(FIND(Sheet1!$A$1:$A$5,A2))),1,"")
（ここでSheet1のセル範囲指定で空白セルを範囲指定してしまうと、全てに「1」が表示されてしまいます）
これは配列数式になってしまいますので、この画面からそのままコピー＆ペーストしただけではエラーになると思います。
D2セルに貼り付け後、F2キーを押す、又はD2セルでダブルクリック、又は数式バー内で一度クリックします。
編集可能になりますので
Shift＋Ctrl＋Enterキーで確定します。
数式の前後に｛　｝マークが入りは配列数式になります。
このD2セルをF2セルまでオートフィルでコピーした後に、そのまま行方向へコピーします。

そして、A列～C列のデータを範囲指定し、条件付書式で塗りつぶしのパターンを選択します。

当方使用のExcel2003の場合ですが、D2～データの最後まで範囲指定　→
書式　→　条件付書式　→　「数式が」を選択し数式欄に
=D2=1　として　→　書式　→　パターンで「赤」を選択してOK
（数式には範囲指定した一番左上セル番地を設定します）

これで画像のように、Sheet1のA列にある単語が含まれるセルが「赤」になります。
尚、数式欄に入力するセル番地は範囲指定した一番左上のセル番地にします。

もしかして、Sheet1の方に色づけをしたい！という質問でしたら
まったく逆の方法になるかもしれません。

以上、長々と書きましたが参考になればよいのですが、
尚、的外れなら読み流してくださいね。m(__)m

お礼

tom04さん、丁寧な解説本当にありがとうございました。
でも、でもです。トライしたのですがうまくいきません。
自分の説明が悪かったと思うのですが、シート２の列はＣ列で終わるのではなく、さらにあと１０列近く続いているのです。こうなると数式変わってきますかね。
もしよろしければ、応用が利くよう数式の解説をお願いできないでしょうか。
また、別方法でＶＢＡでも良いです。
本当にすいません。どうぞよろしくお願いします。