• ベストアンサー

エクセルVBAで４色以上の条件付書式を設定するには

こんにちは。 Sheet1のF4:DU53までの範囲で、ある文字が入ると自動でいろが変わるようにしたいのですが、コードを教えていただけないでしょうか。 できればこのようにしたいと思っています。A1:A10にキーワード、 B1:B10にキーワードに対する色を塗り、F4:DU53の範囲でセルにワードが入れば色がかわるようにしたいと考えています。 教えていただけないでしょうか？

質問者が選んだベストアンサー

  • ベストアンサー
  • imogasi
  • ベストアンサー率27% (4737/17068)
回答No.1

条件付き書式といえば、エクセル２００７か否が回答に影響すると思う。補足のこと。 ーー 下記は条件付き書式と関係ないやり方。 下記テストの準備 A1:A10に a b c d e f g h i j を入れる（複雑な語句でも良い） B1:B10のセルパターン色を適当に設定する 下記例はF4:I１０を対象ににする。 （読者の読みやすさや、回答者のテストのやりやすいよう、こういう狭い範囲で、A列の近くの例を挙げるのが気配りだと思うが。後は質問者の実際の場合に,あわせて修正すること。修正は通常簡単。） Sheet1のchangeイベントに Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo er1 If Target.Column >= 6 And Target.Column <= 9 And Target.Row >= 4 And Target.Row <= 10 Then If Target = "" Then Target.Interior.ColorIndex = xlNone Else p = Range("A1:A10").Find(What:=Target).Row MsgBox p Target.Interior.Color = Cells(p, "B").Interior.Color End If End If Exit Sub er1: MsgBox "not fond" Target.Interior.ColorIndex = xlNone End Sub -- MsgBox "not fond"　はしつこいから、テストが終ったら削除が良かろう。 ーー コードの最初の範囲限定の部分は初心者用にIF文でややこしいが IntersectをWEBで調べ置き換えるのも良かろう。 Googleなどで検索語「Intersect VBA」 http://oshiete1.goo.ne.jp/kotaeru.php3?q=312058&rev=1 ほか多数

4k3s4r3
質問者

お礼

imogashiさんこんにちは。 ばっちりでした。コードにすると短く見えるのですが、内容は自分ではこんがらがってしまって考えようがないものです。他にもいろいろ教えていただいて助かります。ありがとうございました。

全文を見る
すると、全ての回答が全文表示されます。
  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • エクセルの条件付書式と同等のVBAで作れますか

    たとえば sheet2に 　|　A　|　B 1|太郎|セル(色指定)文字(強調色指定)の設定 2|次郎|セル(色指定)文字(強調色指定)の設定 3|三郎|セル(色指定)文字(強調色指定)の設定 4|四郎|セル(色指定)文字(強調色指定)の設定 5|花子|セル(色指定)文字(強調色指定)の設定 と設定したとして sheet1のA1～D20の中に上記A列の文字が記載されたらB列のセル及び文字設定になるようになりますか どうぞ、構文等を記載の上ご説明願います。

  • エクセルの条件付書式設定

    セルA1に日付が入ると自動的にセルB1の文字に取り消し線がつくようにするにはどうすればよいのでしょうか。 教えて下さい。

  • エクセル　条件付書式について

    エクセルの条件付書式について、お尋ねします。 A1のセルには、背景と同じ色で文字が入力されていて、そこに文字を上書きすると、A1のセルの文字の色が黒に変更されるようにしました。 その後B1のセルに文字を入力すると、A1からE1までのセルの背景がグレーになるようにしたかったのですが、A1のセルだけが、塗りつぶされませんでした。 説明が十分かどうかわからないのですが、質問としては、このようなことが、条件付書式で可能かどうか、可能ならば、その方法を教えていただけますでしょうか。 どうぞよろしくお願いいたします。

  • セル色の設定（条件付書式4つ以上）

    　　　Ａ　　Ｂ　　Ｃ　　Ｄ １　　あ　　い　　う ２　60,000 A2のセルはリストボックスになっていて10,000だったらセル色”青”、30,000だったら”赤”40,000だったら"ピンク"60,000だったら”黄色”に。（この時点で条件付書式4つ以上となり設定できませんでした）セルA1,B1,C1はA2のセル色が変わった色と同色の色が入るようにしたいのです。また、色番号からセル色を入れるというのもできるのでしょうか。VBAはわかりませんので簡単な方法がありましたら教えてください。よろしくお願いいたします。

  • エクセルの条件付書式がうまくいきません・・・・

    エクセルの条件付書式の設定がうまくいきません。 まずＡ１にリスト（適、不適の二択）があって、「適」の場合にＢ１のセルが色が透明になり、「不適」の時に灰色になる、というのを目指しているのですが・・・・ 今は、Ｂ１セルに「セルの値が　次の値に等しい　＝Ａ１＝”適”（書式で灰色に設定）」という式を入れると、なぜか不適を選んだ時にＢ１セルが灰色になり、うまくいきます。 ただし、灰色になったセルの上に文字を入力すると、背景が透明になってしまいます。僕としては、文字の有無に関わらず、「適」「不適」の選択のみで背景の色が変わって欲しいのですが・・・・ どのような条件を入力すればよろしいでしょうか。 どうかよろしくお願いいたします。

  • Excel：条件付書式の色設定について

    Excelの条件付書式の設定について質問です。 特定のセルの値がマイナスでセルに色が付いていないときに色（文字ではなくセルに色）を付けるという条件式を作りたいです。 例 A1にマイナスの数値が入っています。 B1のセルに色が付いていない場合、薄い黄色を付けたいです。 おそらく条件つき書式は 数式が　　=AND($B1=色が付いていない,$A1<0)　　薄い黄色 の様な式になると思うのですが、色が付いている付いていないの条件式が分かりません。 宜しくお願いします。

  • エクセル・条件付書式設定の質問です。

    会社で使う新規顧客登録表を作成しました。 入力する項目（セル）には条件書式設定で色付けし、 文字が入力されたらセルの色が消えるようにしています。 （ここまでは出来ました） そこで、例えば、 セルA1に●●●もしくは▲▲▲と入力されたら、 セルB1のセルが黄色などに色付けされ、 セルB１に文字を入力すると色が消えるという設定をしたいのですが、 どうしたらよいでしょうか？ （●●●・▲▲▲以外の言葉や空欄の場合はB1も空欄）

  • エクセルの条件付書式で色をつけたいのです

    エクセル初級者です。 以下のような表があるとします。 A ------B------C--------D--------E--------F--------G--------H ..... 1　　　　　name　　birth　　　 2012/1/1　2012/2/1　2012/3/1　2012/4/1　2012/5/1 ..... 2　　　山田　　1965/5/18 3　　　鈴木　　1988/3/10 この、D1・E1・F1・H1・・・以降セルについてですが ユーザー設定の書式で【m"月"】として【○月】と表示しています。 色をつけたいのは、誕生月に該当するセルです。 山田さんの場合、H2に 鈴木さんの場合、F3に色をつけたいのです。 何か補助となるセルも作るべきなのでしょうか？ 全くお手上げです。 どうぞ、どなたかお助けくださいませ。

  • 条件付書式のVBA

    条件付書式のVBAについて質問させてください。 A1:A100に「晴れ」「曇り」「雨」「台風」「不明」と入力するとします、するとその行のいくつかセルに色をつけたいです。 たとえば、A1に「晴れ」と入力されたらB1、C1、（D1とばして）E1、F1・・・に色がつく。 できればVBAの式を教えていただけると大変助かります。 どうぞよろしくお願いいたします。

  • 条件付書式設定について

    画像のようなシフト表のシートがあります。 E3～T7の範囲にA列,B列にある指定休の曜日の日のセルにだけ"指"と表示させるにはどうしたらいいのでしょうか？？ またE8～T8に"○"が入力されたら"○が入力された列の1～8列を青色に変更するといったことはできるでしょうか？ 条件付書式もしくは関数を使用して設定できますか？？

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する