- ベストアンサー
空白セルと行に色をつけるVBA Excel2010
hallo-2007の回答
- hallo-2007
- ベストアンサー率41% (888/2115)
NO3です。 Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column < 5 Then Range("A:C").Interior.ColorIndex = xlNone For i = 2 To UsedRange.Rows.Count Range("A" & i & ":C" & i).Interior.ColorIndex = xlNone If Range("D" & i).Value = "" Then Range("C" & i).Interior.ColorIndex = 8 If Range("B" & i).Value = "" And Range("D" & i).Value = "" Then Range("A" & i & ":C" & i).Interior.ColorIndex = 6 Next End If End Sub では如何でしょうか。 但し、データの量が増えてくるとパソコンへの負担も増えますよ。
関連するQ&A
- 塗りつぶしで色付けしたセルの１行を同じ色にしたい
いつも、いつもお世話になりありがとうございます。 下図のC列（C4～C34）に「セルの塗りつぶし」で色を付けた（３～５色ほど予定）セルと同じ色で １行（D列～AG列）を塗りつぶす方法はないでしょうか？ しかも、条件付き書式で設定したセルは下図の４行目のように、その書式の色を そのまま残したいのです。 途中、空白のセルも有ります。 条件付き書式の設定を使って「数式を・・・」「文字」「値」などを利用する方法は 検索して出てくるのですが、C列は任意で言葉を入れ、「セルの塗りつぶし」で着色します。 ですから、条件は 1.C列のセルの色を読み取り、その右側の１行（D列～AG列）を同じ色にする。 2.条件付き書式で設定したセルは、その書式の色をそのまま残す。 3.途中、値も関数式も文字も何もない空白のセルもある。 そんな都合の良い方法は有りますでしょうか？ もし有りましたら、どうかご教授いただけないでしょうか？ よろしく、お願い致します。
- ベストアンサー
- オフィス系ソフト
- エクセル条件付き書式（空白でない場合に色を付ける、偶数行・奇数行毎に色を変える）
エクセルの条件付き書式の設定で、 (1)セルが空白でない場合に色を付ける、 (2)偶数行・奇数行毎に色を変える という２つのことを同時に行う方法があれば 教えていただけないでしょうか？ （※空白セルは、色なしに設定） (1)=A1<>"" → 赤 (2)=MOD(ROW(),2)=0 → 青 =MOD(ROW(),2)=1 → 黄 上記の設定の場合、空白セルが青・黄になります。 入力すると赤に変わります。 こちらが行いたいことは、 【空白セルは「色なし」で、入力すると、 奇数行は黄色、偶数行は青になることです。】 例 ABC 1* ←A1は黄 2 * ←B2は青 3 A1とB2以外のセルは色なしとなるようにしたい。 ただし、入力した場合に色がつくようにしたい。 よろしくお願いします。
- ベストアンサー
- Windows XP
- エクセルのVBAを使った条件付き書式
VBAの初心者です。というか使ったことがありません。 4つ以上の条件付き書式はVBAが必要になるようなので困惑中です。 下記の条件付き書式をVBA作りたいと思っています。 「1」を含む値の場合セルの背景を黄色に 「2」を含む値の場合セルの背景を緑色に 「3」を含む値の場合セルの背景を水色に 「4」を含む値の場合セルの背景を赤色に 例） 1北海道 → セルの背景を黄色 2山形 → セルの背景を緑 これを実現するVBAのコードを教えてください。 また、そのコードをどこに貼付ければいいのでしょうか？ まったくの初心者で申し訳ありません。
- ベストアンサー
- オフィス系ソフト
- EXCEL2007セルの色を数式で取得したい
EXCEL2007セルの色を数式で取得したい EXCEL2007で条件付き書式を使って現在使って特定の値が入っているセルを 条件付き書式を使って背景を赤色を変えるというシートを作成しました。 さらに、特定のセルをダブルクリックすると書式を水色に変わるという処理 をVBAで実現したのですが、既に条件付き書式によって赤くなっているセルの 背景色を水色に変えることができません。 つまり、書式設定した背景色が条件付き書式の背景色につぶされてしまいます。 書式設定した背景色(水色)の方を優先させたいので、条件付き書式の条件に セルの書式に背景色が設定されているときには条件外とするようにしたいのですが。 どうやって、数式で書式設定した背景色を取得できますか？ もしくは、他の方法で実現できるアイデアがありましたら、紹介してください。 どうぞ、よろしくお願いいたします。
- ベストアンサー
- その他MS Office製品
- エクセルVBA 条件にあうときセルを塗りつぶすには？
エクセルVBA 条件にあうときセルを塗りつぶすには？ エクセルVBAについて教えてください。 _________A 列 _________B 列_________C列_________D列 -------------------------------------------- 1行| 基準値_________ 5_____________1____________8 2行| りんご____________1_____________9____________０ 3行| みかん___________12___________5____________3 4行| ぶどう____________15___________7____________8 5行| バナナ____________3_____________1____________4 上図のようにデータがあります。 （実物は列行共に膨大です。また条件を４つ以上つける予定なので条件付書式は使えません） 各列の基準値に対して、セルの増減が、０以下のときに黄色に、５から８のとき大きくなるときに赤、９以上のときに青にセルの色を塗りつぶしたいです。 どのようにすればよいでしょうか？ B列の場合、基準値が５です。 B2のセルの場合、基準値５と１（B2セル）の増減は－４です。 増減が０以下のときは黄色に、増減が５から８のときは赤に、増減が９以上のときに青にするので、このときは黄色に塗りつぶします。 B3のセルの場合、基準値５と１２（B３セル）の増減は７です。 増減が５から８のとき赤に塗りつぶすので、このセルは赤に塗りつぶします。 B4のセルの場合、基準値５と１５（B４セル）の増減は１０です。 増減が９以上のとき青色に塗りつぶすので、このセルは青色に塗りつぶします。 C２のセルの場合は、C列の基準値は１（C1セル）です。 基準値１と９（C2のセル）の増減は８です。 増減が５から８のとき赤に塗りつぶすので、このセルは赤に塗りつぶします。 よろしくお願いいたします。
- ベストアンサー
- Visual Basic
- EXCEL2007 WEEKDAY関数で空白セルの色
家計簿をエクセルでつけているんですが、 WEEKDAY関数を使って、土日に色をつけました。 行を挿入すると、空白セルに土曜日の色がつくんですが、どうすれば色がつかないようにできるでしょうか？ 列Aのすべてに対して、空白なら色なしって風に条件付き書式を利用したいです。
- 締切済み
- Windows Vista
- エクセル VBA ある条件でセルに色をつけたいのですが、
エクセル VBA ある条件でセルに色をつけたいのですが、 例えば、A2からA50に文字列が入っていて、ある処理を終えると、空白を除くセルに薄い水色（33）をつけます。ここまでは、VBAで作成できました。 次に、空白を除くセルが、すべて薄い水色になったら、A1を薄い黄（36）にしたいのです。 教えてください。よろしくお願いします。
- ベストアンサー
- Windows XP
- VBAで色の付いているセルの行削除
VBAで色の付いているセルの行を削除することは出来ないでしょうか？ 量が多すぎて一つ一つ削除すのは大変で間違えて削除してしまいそうなので・・・ － 文字または数字 ■ 色の付いたセル（赤） Ａ Ｂ Ｃ Ｄ Ｅ Ｆ・・・ １－ － － － － － ２－ － － － － － ３－ － － ■ － － ４－ － ■ － － － ５－ － ■ － － － ６－ － － － － － ７－ － － ■ － － ８－ － ■ － － － ９－ － ■ － － － 10－ － － － － － ↓ Ａ Ｂ Ｃ Ｄ Ｅ Ｆ・・・ １－ － － － － － ２－ － － － － － ６－ － － － － － 10－ － － － － － よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- 条件付き書式で1行おきに色付けした表のセルの数値によりフォントの色を変更したい
Excel2003です 1行おきに色付け（パターン）した表のC3:C23に計算結果の数値が表示され、その数値がC1より小さいときはフォントの色を「赤」、数値がC1より大きいときはフォントの色を「緑」、数値が表示されないときはその書式を適用しない（1行おきの色付け（パターン）のみ設定）条件付き書式を設定したいのですがその方法を教えてください 例えば 奇数行にパターン「薄い黄色」を設定し、 条件1 =$C3＜$C$1 フォントの色「赤」パターンを「薄い黄色」 条件2 =$C3＞$C$1 フォントの色「緑」パターンを「薄い黄色」 に設定すると数値を入力しないセルにも「薄い黄色」のパターンが設定されてしまいます。偶数行の空白セルにはパターンを設定しない条件の設定の方法を教えてください。 説明でが不足のときは補足したいと思いますのでよろしく御願いします。
- ベストアンサー
- オフィス系ソフト
お礼
ありがとうございます。 教えて下さったコードでも出来たのですが、 見やすさの面（私以外にも使うファイルの為）から、他の方をベストアンサーとさせて頂きましたが、 ご親切に教えて下さり、ありがとうございました。