宜しくお願いいたします。下の写真のように列がJから

質問

宜しくお願いいたします。下の写真のように列がJからANまで、行がAN3900まである表に色づけしたいのです。その塗りかたは各行ごとで数字の推移を、表した表で右にいけばいくほど最新で、数字が上がったところを赤で色づけして左の数字と比べて下がってたら青色に塗りたいのです。元々この表は黄色で色づけされてます。宜しくお願いいたします。

回答No.1

kagakusuki · ベストアンサー

以下の様な操作を行ってK1～AN3900のセル範囲に条件付き書式を設定されると良いと思います。

K1セルを選択
　　↓
Excelウィンドウの[ホーム]タブをクリック
　　↓
現れた「スタイル」グループの中にある[条件付き書式]ボタンをクリック
　　↓
現れた選択肢の中にある[ルールの管理]をクリック
　　↓
現れた「条件付き書式ルールの管理」ダイアログボックスの中にある[新規ルール]ボタンをクリック
　　↓
現れた「新しい書式ルール」ダイアログボックスの「ルールの種類を選択して下さい」欄の中にある[数式を使用して、書式設定するセルを決定]をクリック
　　↓
現れた「次の数式を満たす場合に値を書式設定」欄の中に

=AND(ISNUMBER(K1),K1>HLOOKUP(9E+307,$J1:J1,1))

と入力
　　↓
「新しい書式ルール」ダイアログボックスの[書式]ボタンをクリック
　　↓
現れた「セルの書式設定」ダイアログボックスの[塗りつぶし]タブをクリック
　　↓
現れた背景色のサンプルの中にある赤色の四角形をクリック
　　↓
「セルの書式設定」ダイアログボックスの[OK]ボタンをクリック
　　↓
「新しい書式ルール」ダイアログボックスの[OK]ボタンをクリック
　　↓
「条件付き書式ルールの管理」ダイアログボックスの[新規ルール]ボタンをクリック
　　↓
現れた「新しい書式ルール」ダイアログボックスの「ルールの種類を選択して下さい」欄の中にある[数式を使用して、書式設定するセルを決定]をクリック
　　↓
現れた「次の数式を満たす場合に値を書式設定」欄の中に

=AND(ISNUMBER(K1),K1<HLOOKUP(9E+307,$J1:J1,1))

と入力
　　↓
「新しい書式ルール」ダイアログボックスの[書式]ボタンをクリック
　　↓
現れた「セルの書式設定」ダイアログボックスの[塗りつぶし]タブをクリック
　　↓
現れた背景色のサンプルの中にある青色の四角形をクリック
　　↓
「セルの書式設定」ダイアログボックスの[OK]ボタンをクリック
　　↓
「新しい書式ルール」ダイアログボックスの[OK]ボタンをクリック
　　↓
「条件付き書式ルールの管理」ダイアログボックスの「適用先」欄を2箇所とも

=$K$1:$AN$3900

に変更（カーソルとマウスの左ボタンによる範囲選択が使えます）
　　↓
「条件付き書式ルールの管理」ダイアログボックスの[適用]ボタンをクリック
　　↓
「条件付き書式ルールの管理」ダイアログボックスの[OK]ボタンをクリック

　以上です。

お礼

ご回答ありがとうございます。京橋、出先なので、出社したら試して見ます

回答No.2

Prome_Lin

VBAでマクロを組んでみましたが、関数などだけでの処理をお望みの場合は、「No.1」の方が正解だと思います（確認していませんが）。

Sub Test()
Dim c, i, j, k, p As Integer
For i = 1 To 3900
p = 0
For j = 10 To 40
k = Cells(i, j).Value
If k > 0 And p = 0 Then
c = k
p = 1
ElseIf k <> 0 Then
If k > c Then
c = k
Cells(i, j).Interior.Color = vbRed
ElseIf k < c Then
c = k
Cells(i, j).Interior.Color = vbBlue
End If
End If
Next j
Next i
End Sub

一応、説明しますと、各行最初に現れた数字を「c」に格納します。

最初かどうかは「p」によって判断しています。

あとは、数字が現れるごとに「c」と比較し、大きければ「赤」、小さければ「黄」にセルの色を設定しています。

これを、すべての行、すべての列で調べていっているだけです。

お礼

No.1さんの回答でできました。どうもありがとうございました。