ある日にちが近づいてくると色がかわってくる。

質問

教えてください。

(1)下記の縦のカレンダーで、たとえば３月７日に近づいてきたらじょじょにのセルの色が変わるようにしたいのですが、関数では有るのでしょうか。

　 Ａ
1 h17/3/1
2 h17/3/2
3 h17/3/3
4 h17/3/4
5 h17/3/5
6 h17/3/6
7 h17/3/7

(2)または、３月１日であれば、Ｂ列に『６日前です。』と表示する関数も教えてください。
宜しくお願い致します。

　 Ａ　　　　　　Ｂ
1 h17/3/1　６日前です。　
2 h17/3/2　５日前です。
3 h17/3/3　４日前です。
4 h17/3/4　３日前です。
5 h17/3/5　２日前です。
6 h17/3/6　１日前です。
7 h17/3/7　本日です。

回答No.6

tresbien · ベストアンサー

D1　に =today() と入力しておいて
カレンダーの日付のセルを全部選択し、
「メニュー」-「書式」-「条件付書式」　を選択します。
皆さんがおっしゃっているように条件は3つまでですがひとつずつ設定していきましょう。
例えば3日前を緑にする時は
　　「セルの値が」-「次に等しい」-「=$D$1-3]
などです。「次の値の間」で5日から3日前などとすることも出来ます。
見たら分かりますよね。
それから書式で緑色などを決めます。

(2)ですがやはり、今日の日にちをD1に入力したものとして
B1 =IF($D$1-A1<0,"",IF($D$1-A1=0,"本日です。",($D$1-A1)&"日前です。"))
でどうでしょうか。

付け足しですが、(1)の条件付き書式をA列B列両方に設定できます。この場合は条件の書き方に注意が必要です。
　「数式が」-「=$A1=$D$1-3」
などとします。セルと$に注意してください。

回答No.5

macchan1

具体的な解答が出ていないようなので条件付書式の設定例を紹介します。

日付がE列に設定されている場合、E1セルから下方向にセルを選択して「書式」「条件付書式」で「数式が」にして以下の式を入力し、「書式」ボタンを押して例えばプロパティで青色を設定します（10日以上離れている日にち）。

=VALUE("2005/3/7")-E1>10

同様に「追加」ボタンを押して2つ目の条件付書式を設定し黄色に設定します（3～10日前）。

=VALUE("2005/3/7")-E1>3

最後に以下の式の条件付書式を設定します。

=VALUE("2005/3/7")-E1>=0

ちなみに数式で設定しますので、AND関数などを用いて範囲などは自由に条件を決めることができます。

回答No.4

kkkkkkk_001

シリアル値に変換しなくとも
直接日付の引き算できたんですね、
失礼しました。

回答No.3

marbin

＃2です。

私の回答は、

（2）に対する物です。

（1）はやはりマクロになると思います。
条件付き書式は３つ(既定も合わせて4つ)
までです。

回答No.2

marbin

B1セルに

=IF($A$7-A1=0,"本日です。",$A$7-A1&"日前")

と入力し、後はＢ7までオートフィル、ではいかが？

回答No.1

kkkkkkk_001

そのままの答えが出せないので自信なしで回答します
VBAなら可能ですが
関数では思い浮かびません
シリアル値と条件付書式を組み合わせ
捨てセルを使って”隣のセルの色”をコントロール
することは可能でした
試してみてください