質問: xlnone end select end if next r end sub 無知なので、ネットで調べて上記のような数式を拾ってきたのですが、どうやら1シート分の設定に書かれているようです。。。 全シートに反映がされるように設定をするにはどこをどのように書き換えればよろしいでしょうか。 お分かりの方がいらっしゃいましたら、よろしくお願いいたします。
回答: こんなのエクセルー検索・置換で出来るのではないか。 >無知なので vba云々するより、自分でエクセルの本体の機能を良く勉強するほうが肝心と思うが。 ーー データセル範囲を範囲指定 編集ー置換ー 検索する文字列 *a* セルの値の文字列にaガ含まれている場合 置換する文字列 なし 書式 フォントー赤 シート 行 数式 全て置換をクリック ーー 最近のエクセルバージョンでは置換後の書式設定が出来るはず。 個の操作をマクロの記録を採れば、vba化できるはず。 上記は>特定の文字列が複数ある場合は1度では出来ないが、vba化して直線的に場合のコードを並べれば1ぱっつで成就する。 ================ その行のセルを全てを色を着けるなら 操作は 例えばa2:d7に xxa -xcad -asd adfg dfghh sasd (注ーは空白セルを示す) セル範囲を指定し 書式ー条件付き書式ー数式が =countif($a2:$d2,"*a*")>=1 書式設定(例えばセルパターンの色グリーン) ok 第6行目以外はセルがグリーンになる。 vba化したければ、この操作をマクロの記録を採ればよい。