『条件書式で教えて下さい』（とも） 条件書式で、色付けの仕方を教えて下さい。 　　Ａ　　　　　Ｂ　　　　Ｃ　　　Ｄ Ｅ　　　Ｆ　　　　　 １ 担当ＣＤ　　担当者　　売上げ　 個数　　単価　　発注日 ２　００１　　　田中　　　１００　　３　　 １０　 ３／２２ ３　００３　　　井上　　　３００　　２　　 ５０　 ３／２３ ４　００６　　　高橋　　　　　０　　０　　　 ０ このようなデータがあり、Ａ・Ｂ・Ｄ・Ｅに色付けをしたいと思っています。 条件は、Ｃ・Ｄに０以上の数字が入っている場合のみ色付けをしたいのですが・・・。 数字の色付け方法は分かったのですが、Ａ・Ｂのセルも色付けする方法が分かりません。 教えて下さい。お願いします。 ---- 今回の色付けしたいセル、A,B,D,E列を選択し条件付き書式で「数式が」で =AND($D2>0,$E2>0) として、パターンでお好みの色を選択し OK でどうでしょうか？ 　　　　　　　　　　　　　　　　　　　　　　　　　(SS) ---- 出来ました。ありがとうございます。 もう一つお聞きしたいのですが、行数が１００ある時は、どうすればいいのでしょうか？ 色付けしたいセルを全部選択しないといけないのでしょうか？　 ---- 書式のコピー/貼り付け ではダメでしょうか？(kana) ---- SSさんの仰るとおり ＞A,B,D,E列を選択し条件付き書式 でできませんか？（ゆうり） ---- やはり、一個ずつ選択して、コピーで貼り付けしないとダメですよね？ 一気にやる事ができるかと思ってしまいました・・・。 ---- ちょっとまって！ 条件付書式を設定しているセルを選択して、フィルハンドルを右クリックでドラッグコピー したらできませんか？ (ROUGE) ---- ↓「（３）セル入力操作によく使うフィルハンドルのドラッグ」 http://www.excel.studio-kazu.jp/lib/e2aw/e2aw.html ---- ROUGEさんありがとうございます。 マウスの右を押しながら、ドラックして書式のみをコピーし、やってみたんですけど なぜか色付けが全体にされてしまいました。 やり方が間違っていますよね？ ---- 範囲Ａ2〜Ｂ101（これで100行？）を反転させて、Ctrlキーを 押しながら、今度はＤ2〜Ｅ101まで反転させて範囲指定を完了、 それで、ＳＳさんの提示された方法で、できませんか？ (ぼう) ---- ぼうさんすみません・・・。 反転させ、Ctrlキーを押しながら、今度はＤ2〜Ｅ101まで反転させて範囲指定を完了、 それで、ＳＳさんの提示された方法で、やってみたのですが、ＡＢＤＥの列全てに色が ついてしまったんです・・・。 それと、ＡＢＤＥの全てを色づけしたいのですが、ＤＥに数字が入っていない箇所は 色付けしたくない場合はまた式が変わってきますか？ ---- えーと、ＳＳさんの提示された条件付書式は ”「Ｄ・Ｅ」の両方のセルに数字（今回は個数・単価）が 入力されていた場合のみ、ＡＢＤＥのセルに色を付けるやり方” ですが、これはともさんの希望通りでＯＫですよね？ 可能でしたら、新しいシートで試してみてください。 私のほうでは、上記の条件で反映されてます。 （ぼう） ---- ぼうさんすみません。 ちょっと変更したいのですが、Ｄ・Ｅ・Ｇ・Ｆいずれかに個数が入っているセルのみ 色付けをしたいのです。 で、Ｄ・Ｅ・Ｇ・Ｆのいずれかに、個数・単価が入っていたら、Ａ・Ｂも色付けをしたいの です。 例えば、Ｄ３だけに個数・単価が入っていたら、Ａ３・Ｂ３・Ｄ３だけに色付けをしたいと思います。 Ｅ・Ｇ・Ｆに。個数・単価が入っていたら、Ａ・Ｂ・Ｅ・Ｇ・Ｆを色付けしたいのです。 内容を変更してしまいすみませんが、宜しくお願い致します。 　 ---- えーと、ＤＥＧＦの4個のセルに同時に個数・単価が入ることはありませんか？ >>例えば、Ｄ３だけに個数・単価が入っていたら、Ａ３・Ｂ３・Ｄ３だけに色付けをしたいと思います。 Ｅ・Ｇ・Ｆに。個数・単価が入っていたら、Ａ・Ｂ・Ｅ・Ｇ・Ｆを色付けしたいのです。 ↑の二つの条件に対して、4個同時に個数・単価が入る場合、少々状況が･･･ それから、↑の二つの条件での色分けは必要ですか？ 条件付書式の範疇を超えていきそうな予感が･･･ （ぼう） ---- ４個のセルに同時に個数・単価が入ることがあります。 見た目なのですが、個数・単価が入っていることがすぐにわかるように色付けをして 欲しいとの要望があったのです。 条件書式では無理でしょうか？？？　 ---- こんなんいかがですか〜？ Private Sub Worksheet_Change(ByVal Target As Range) Dim mr As Long Dim cc As Long Dim myClr As Integer If Target.Row = 1 Or Target.Column < 4 Or Target.Column > 7 Then Exit Sub mr = Target.Row cc = Application.WorksheetFunction.CountIf(Range(Cells(mr, 4), Cells(mr, 7)), ">0") Select Case cc Case 0 myClr = 0 Case 1 myClr = 36 Case 2 myClr = 37 Case 3 myClr = 38 Case 4 myClr = 39 End Select Range(Cells(mr, 1), Cells(mr, 2)).Interior.ColorIndex = myClr If Cells(mr, 4).Value > 0 Then Cells(mr, 4).Interior.ColorIndex = myClr Else Cells(mr, 4).Interior.ColorIndex = 0 End If If Cells(mr, 5).Value > 0 Then Cells(mr, 5).Interior.ColorIndex = myClr Else Cells(mr, 5).Interior.ColorIndex = 0 End If If Cells(mr, 6).Value > 0 Then Cells(mr, 6).Interior.ColorIndex = myClr Else Cells(mr, 6).Interior.ColorIndex = 0 End If If Cells(mr, 7).Value > 0 Then Cells(mr, 7).Interior.ColorIndex = myClr Else Cells(mr, 7).Interior.ColorIndex = 0 End If End Sub (ROUGE) ---- ROUGEさん、ありがとうございますm(｡＿｡；))m 自分には荷が勝ちすぎる内容になってきてました。 条件付書式でのご希望でしたら、少々変更がありますがひとつの提案。 ABDEFG全てに色がついてしまいますが、条件付書式で設定できる３個の条件を 1）DEFG全てに入力されている 2）EFGいずれかに入力されている 3）Dのみに入力されている というように設定してみて、色を変えてみるのは如何でしょうか？ ちなみに、上記の条件では 1)　=COUNT($D2:$G2)>3 2)　=COUNT($E2:$G2)>=1 3)　=$D2>0　　　などでできそうです。（ぼう） ---- すみません・・・。 マクロをコピーしようとしたら、ＶＢＡＰｒｏｊｅｃｔパスワードと書いてある のが表示されてしまったのですが、これはどうしたらいいのでしょうか？ マクロ初めてなので教えて頂いていいですか？ ---- ROUGEさん、ありがとうございます。 マクロをコピーしたら、何も出てこないのですが。。。 ---- どこにマクロをコピーしましたか？ データのあるシートモジュールですよ ---- データのあるシートにコピーしたのですが・・・。 実行するときに、Ａｌｔ＋８を押すとそこには何もないのですが・・・。 ---- シート自体にコピーするのではないですよ。 マクロの画面(メニューバーの「ツール」→「マクロ」→「Visual Basic Editor」)を立ち上げると、 左側にシートの名前が出ますから、 データが入っているシート名をダブルクリックし、 右側の画面にコピーするってことです。 (gloomy) ---- gloomyさん、ありがとうございます。 教えていただいた通りに貼り付けてあります。 このマクロはどう実行するのでしょうか？ そこにコピーしただけで、実行されるのですか？ マクロはまったく分からないので教えて頂いてもいいですか？　　　 ---- このマクロは「セルの値が変わったらマクロを実行してね」というものです。 ですので、セルのどこかの値(今回はC〜F列)を変えてみてください。 そうするとマクロが実行されると思います。 (gloomy) ---- あらまぁ〜....少し見ない間に随分書き込まれていますね(^o^)...。 私はマクロは皆目駄目ですので......。 <ともさん> が希望されている内容をもう一度整理しますと.....。 ある行のD:G列の何れかのセルに入力があれば、その行のA:B列に色付けをし 更に、D:G列で入力されているセルにも色付けしたいということですよね。 であるとすると、条件付き書式の設定手順を以下に書いてみますね。 @シートの一番上のA,Bと表示されてる部分を押してA:B列全体を選択した状態にして下さい。 Aそして次に、そのままの状態で条件付書式を開いて下さい。 B「数式が」を選んで =COUNTA($D1:$G1)<>0 と入れて、書式を押しパターンで好みの色を選択してＯＫ。 C次に、またシートの一番上のD,E,F,Gを押してD:G列全体を選択した状態にして下さい。 Dそして、条件付書式を開いて、「数式が」で =D1<>"" と入れて書式、パターンで好みの色を選んでＯＫです。 今度は、如何でしょうか？ (SS) ---- gloomyさんありがとうございます。 ご説明していただき、やっと理解できました。 ＳＳさん、私が希望しているのは・・・。 Ｄ・Ｅ・Ｇ・Ｆのいずれかに、個数・単価が入っていたら、Ａ・Ｂも色付けをしたいと 思っています。 例えば、Ｄ３だけに個数・単価が入っていたら、Ａ３・Ｂ３・Ｄ３だけに色付けをし、 Ｅ４・Ｇ４・Ｆ４に個数・単価が入っていたら、Ａ４・Ｂ４・Ｅ４・Ｇ４・Ｆ４を色 付けしたいのです。 Ｄ・Ｅ・Ｇ・Ｆのいずれかに、個数・単価が入っていたら、入っているセルとＡ・Ｂの セルのみ色付けしたいと思っています。 個数・単価が入っていないセルは色付けをしたくありません。 分からないのに、我が儘ばかりで申し訳ありませんが、教えて下さい。 お願いします。 ---- ん〜.....？ ともさんの言われてる条件と私が解釈している条件は全く同じように思えるんですけどねｴ〜...？ どこが異なっているのでしょうか、理解不足で申し訳ございません。 　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　(SS) ---- SSさん、私の説明がつたないばかりに、ご迷惑をおかけしてます。 SSさんに教えて頂いたやり方だと、ＡＢＤＥＦＧに色付けがされてしますのです。 私のやり方が悪いのでしょうか？ 　　Ａ　　　　　Ｂ　　　　　Ｃ　　　Ｄ Ｅ　　　Ｆ　　　　Ｇ　　Ｈ　　　　 １ 担当ＣＤ　　担当者　　Ａ売上げ　 個数　　単価　Ｂ売上げ　 個数 単価 ２　００１　　　田中　　　１００　　３　　 １０　 ３００　　　２　　５０　　 ３　００３　　　井上　　　３００　　２　　 　 ４　００６　　　高橋　　　　　　　　　　　　 　　 ５０　　　　１ このような表があった場合 ２行目は、Ａ２・Ｂ２・Ｄ２・Ｅ２・Ｇ２・Ｈ２のセルだけを色づけ ３行目は、Ａ３・Ｂ３・Ｄ３のセルだけを色づけ ４行目は、Ａ４・Ｂ４・Ｇ４のセルだけを色づけ こんな感じにしたいのです。 空欄の部分は値は入りません。 これで意味分かりますか？ ---- あらッ！いつの間にかH列が出現しましたね？ でも基本的には、やり方は間違ってないように思いますが。 じゃあ、F列の条件付き書式を削除し、H列に同様の設定をして下さい。 (SS) ---- SSさん、何度も申し訳ありません。 私のやり方が悪いのか、なぜか列全体が色づけされてしまっているのです。。。 なぜでしょうか? 個数などが入っていないセルには色付けをしたくないのですが・・・。 ---- 売り上げの列に数式が入っているってことはないですか？ =IF(D2="","",D2*E2)　などの空白を返す関数。 もしそうであれば、=COUNT($D1:$G1)<>0　　COUNTAではなく、COUNTに変更 （川野鮎太郎） ---- 川野さんありがとうございます。 数式が入っているとだめなんですね？知りませんでした・・・。 IF(SUM(sheet1:sheet5!A3)=0," ",SUM(sheet1:sheet5!A3))の数式が入っています。 この式でも、=COUNTA($D1:$G1)<>0　ではなく　=COUNTに変更が必要なのでしょうか？ =D1<>""は変更なしでいいのでしょうか？ ---- まず聞く前にお試しになることをお勧めします。 試して出来ない場合に、どのようにしたら、どうなったのか、どうしたいのかを 整理して聞くようにしたほうが良いですね。 （川野鮎太郎） ---- 川野さん、結果をいれずにすみませんでした。 結果を書かなければ、何がいけないのか分からないですよね・・・。 すみませんでした。 教えて頂いたように、やってみたのですが、列全体に色付けがされてしまいました。 なので、式が問題なのか？と思い、あのようなコメントを入れさせて頂きました。 ---- 上記の　＞IF(SUM(sheet1:sheet5!A3)=0," ",SUM(sheet1:sheet5!A3)) がどのセルに入っているのか書かれていませんが、 D〜G列のどこかであれば、=COUNT($D1:$G1)<>0　で出来そうですが。 ちなみに、IF(SUM(sheet1:sheet5!A3)=0," ",SUM(sheet1:sheet5!A3)) は、　　　IF(SUM(sheet1:sheet5!A3)=0,"",SUM(sheet1:sheet5!A3))　　に変えたほうが良いかも。 さらに詳しく、D2、E2、F2、G2に入っている式を書いてみてください。 （川野鮎太郎） 　　 ---- 説明不足で、お手数をかけてすみません。 式は教えていただいた式に変更を致しました。 式が入っているセルは、全部に入っています。 IF(SUM(sheet1:sheet5!A3)=0,"",SUM(sheet1:sheet5!A3)) 教えて頂いた式です。　　 各担当者ごとの合計なので、Ｃ・Ｄ・Ｅ・Ｆ・Ｇ・Ｈの列全てのセルに入っています。 ---- 再度質問します。 C2、D2、E2、F2、G2、H2に入っている式を書いてみてください。 全てのセルにIF(SUM(sheet1:sheet5!A3)=0,"",SUM(sheet1:sheet5!A3)) の式が入っていたら、 全てのセルが同じ値になりますよ？ それから、条件付書式の設定を行おうとしているシートは、Sheet1〜Sheet5ではない、 集計用のシートですよね。 更に疑問点が、最初の例に挙げられているF列の発注日はいづこへ？(^_^A; （川野鮎太郎） ---- なんだか、本当に申し訳ないです。 説明不足とヘタなばかりにご迷惑をおかけして・・・。 式ですが・・・。 C2 =IF(SUM(第一:第五!C2)=0,"",SUM(第一:第五!C2)) D2 =IF(SUM(第一:第五!D2)=0,"",SUM(第一:第五!D2)) E2 =IF(SUM(第一:第五!E2)=0,"",SUM(第一:第五!E2)) F2 =IF(SUM(第一:第五!F2)=0,"",SUM(第一:第五!F2)) G2 =IF(SUM(第一:第五!G2)=0,"",SUM(第一:第五!G2)) H2 =IF(SUM(第一:第五!H3)=0,"",SUM(第一:第五!H3)) 条件付書式の設定を行おうとしているのは、集計用のシートです。sheet1〜sheet5ではありません。sheet1〜sheet5の次に、集計のシートがあります。 　　Ａ　　　　　Ｂ　　　　　Ｃ　　　Ｄ Ｅ　　　　Ｆ　　　 Ｇ　　　Ｈ　　　　 １ 担当ＣＤ　　担当者　　Ａ売上げ　 個数　 単価　　Ｂ売上げ　 個数 　単価 ２　００１　　　田中　　　１００　　３　　 １０　 　３００　　　２　　５０　　 ３　００３　　　井上　　　３００　　２　　 　 ４　００６　　　高橋　　　　　　　　　　　　 　　 　　５０　　　１ この表に変更になりました・・・。 ご迷惑をおかけしますが、お力をお貸し下さい。 ---- A列、B列を選択して、条件付書式の数式欄に　=COUNT($C1:$H1)　と入力して書式設定 C列〜H列を選択して、条件付書式の数式欄に　=COUNT(C1)　　　 と入力して書式設定 では、どうなりますか。 （川野鮎太郎） ---- やってみたのですが、Ａ・Ｂの行は全部のセルが色づけされてしまいました。 Ｃ〜Ｈですが、Ｃ・Ｄの列全部が色づけされています。 Ｃ・Ｆは、値が入っていたとしても、色付けをしたくないのですが、それは可能ですか？ 色付けをしたいのは、Ａ・Ｂ・Ｄ・Ｅ・Ｇ・Ｆのセルなんです。 上記の表の場合 ２行目は、Ａ２・Ｂ２・Ｄ２・Ｅ２・Ｇ２・Ｈ２のセルだけを色づけ ３行目は、Ａ３・Ｂ３・Ｄ３のセルだけを色づけ ４行目は、Ａ４・Ｂ４・Ｇ４のセルだけを色づけ Ｄ・Ｅ・Ｆ・Ｇに、値がない場合は、どのセルにも色付けしたくありません・ 私の説明不足で何度も申し訳ございません。 ---- もしかしたら、表示形式または、オプション設定で0を表示しないに設定してますか？ もしそうであれば、 A列、B列を選択して、条件付書式の数式欄に=AND(COUNT($C1:$H1),SUM($C1:$H1)<>0) D列〜E列を選択して、条件付書式の数式欄に=AND(COUNT(D1),D1<>0) 同様に、G列〜H列を選択して、条件付書式の数式欄に=AND(COUNT(G1),G1<>0) では、どうでしょうか。 （川野鮎太郎） ---- Ｃ〜Ｈに関しては、出来ました。 Ａ・Ｂなのですが、Ｄ・Ｅ・Ｇ・Ｈに値が入っているのに、色付けされていない箇所と色付けされている箇所があります。 もしかして、Ｄ・Ｅのどちらかに値が入っていて、Ｆ・Ｇのどちらかに入っていないとＡ・Ｂは色付けされないのでしょうか？ 例えば、Ｄにしか値が入っていない場合は、色付けされない式ですか？ ４カ所の、いずれかに値が入っていたら、Ａ・Ｂ両方とも色付けをしたいのですが・・・。 何度もすみません。 ---- =AND(COUNT($C1:$H1),SUM($C1:$H1)<>0)　の式で、 ＞例えば、Ｄにしか値が入っていない場合は、色付けされない式ですか？ は、ありえません。 ありえませんは語弊がありますね。プラスとマイナスが入っていれば0になることもありますから。 普通に考えたら=COUNT($D1:$G1)でいけるはずです。 A2とB2に入っている条件付書式の数式と、 C2からH2までのセルをコピーして、ここに貼り付けてみてください。 （川野鮎太郎） ---- お返事がおそくなりすみません。 Ａ２とＢ２に入っている条件付書式の数式 =AND(COUNT($C1*$H1),SUM($C1:$H1)<>0) Ｃ２からＨ２までの証券付き書式の数式です =AND(COUNT(C3),C3<>0) ---- なぜにA2とB2に入っている条件付書式の式が、=AND(COUNT($C1*$H1),SUM($C1:$H1)<>0)でしょうか・・・？ 　　　　　　　　　　　　　　　　　　　　　　　　　　　~~~~~~　　　~~~~~~~ 　　　　　　　　　　　　　　　　　　　　　　　　　　 $C2*$H2),SUM($C2:$H2　行を合わせないと・・・。 同様に、C2からH2も　=AND(COUNT(C2),C2<>0)　行を合わせてください。 先にも書きましたが、＞C2からH2までのセルをコピーして、ここに貼り付けてみてください。 データの内容を見ないと、出来ない理由が判りません。 （川野鮎太郎） ---- 　　Ａ　　　　　Ｂ　　　　 Ｃ　　　Ｄ Ｅ　　　　Ｆ　　　 Ｇ　　　Ｈ 1 担当ＣＤ　　担当者　　Ａ売上げ　 個数　 単価　　Ｂ売上げ　 個数 　単価 　001　　　　八戸　　　　32 　　　　 1 126 2 川野さん、すみません。 こんな感じでいいのでしょうか？ 先ほどご指摘していただいた式は変更いたしました。 ---- なぜ出来ないのか判りませんので、サンプルを作ってみました。 サンプルとの違いがありますか。 http://skyblue123.hp.infoseek.co.jp/Excel/Tomo.xls （川野鮎太郎） ---- 川野さんありがとうございました。 やっと出来ました。毎回毎回、説明不足な為にご迷惑をおかけいたしました。 付き合っていただいたお陰で、完成することが出来ました。 川野さんと違っていた箇所は・・・。 Ａ・Ｂの条件付き書式で、式が私のは　 =AND(COUNT($C1*$H1),SUM($C1:$H1)<>0) となっていました。 川野さんの条件付き書式を見て、=COUNT($D1:$E1,$G1:$H1)に変更しました。 私が間違えてばかりで、本当にご迷惑をおかけいたしました。 また、質問をさせていただくことになると思いますので、宜しくお願い致します。