エクセル初心者です。
エクセルで期間を指定しその期間の終了が近づくとセルの色が変わるような
設定方法などはありますか。
たとえば・・
2008/1/1~2008/12/31と期間指定します。 
で半年前になると、黄色
一ヶ月前になると、オレンジ
一週間前になると、赤色

とセルが変色するような設定にしたいのです。
それぞれ期間が異なる列単位で設定したいのですが、
やはり、マクロなどの知識が必要になるのでしょうか。
簡単な方法があればご教授ください。

エクセルのバージョンは2007です。

A 回答 (4件)

作業用セルと条件付書式で出来そうです。



作業用セルに、
・本日の日付
・期限(2008/12/31)
・期限1週間前の日付
・期限一ヶ月前の日付
・期限半年前の日付

を用意しておき、色を変化させたいセルの条件付書式で条件を「数式」にして、上記作業用セルを参照した式を入れます。

例として、以下の様にして見てください

1.Excelのメニューから[ツール]-[アドイン]で「分析ツール」にチェックを入れる。
2.A2:E2のセルを作業用セルとして次の様に入力
 A2: =TODAY() ←これが本日の日付
 B2: 2009/12/31 ←期限
 C2: =B2-7←期限1週間前の日付
 D2: =EDATE(B2,-1)←期限一ヶ月前の日付
 E2: =EDATE(B2,-6) ←期限半年前の日付
3.色を変えたいセルの条件付書式を次の様に設定
 条件1:「数式が」「=$A$2>=$C$2」 書式で赤を設定
 条件2:「数式が」「=$A$2>=$D$2」 書式でオレンジを設定
 条件3:「数式が」「=$A$2>=$E$2」 書式で黄を設定

作業用セルを見せたくなければ非表示にします。
また、異なる期限も設定したい場合は、別な作業用セルを使用します。
「期間でセルの色を変える」の回答画像3
    • good
    • 0

A1に開始日、B1に終了日があるとして、



ルール1:=DAY(B1)-DAY(A1)<=7    書式:赤
ルール2:=MONTH(B1)-MONTH(A1)<=1  書式:オレンジ
ルール3:=MONTH(B1)-MONTH(A1)<=6  書式:黄色

と、色をつけたいセルに条件付き書式を設定すればいいでしょう。
    • good
    • 0

>2008/1/1~2008/12/31と期間指定します。

 
>で半年前になると、黄色
>一ヶ月前になると、オレンジ
>一週間前になると、赤色

それぞれの基準日はいつですか?
最終日である 2008/12/31?

2008/1/1~2008/12/31 の 「~」のデータはどこにありますか?

>セルが変色するような設定

設定したいセルはどこ?

せめてこれくらいは明示しないと回答はこないと思います。
    • good
    • 0

マクロなしの[条件付き書式]で可能と信じますが、


どのセルに日付がこのような形式で入っていて、あのセルに何色で着色するのかが分かる例を示した方が得策です。そうでないと、言葉でグチャグチャ書いても貴方の方が理解困難になるでしょ?
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Q車の色の名前の一覧を探してます!

自動車の色の名前は、ウイニングブルーメタリック、カナリーイエローマイカなど独特なカタカナ名が多いですが、このような名前が一覧になっているようなHPを探しています。ありましたらどなたか教えてください。

Aベストアンサー

ここで探して下さい。

参考URL:http://www.soft99.co.jp/

Aベストアンサー

マクロコードを使用しなくても、任意に設定した赤い色のセルの
右のセルを赤い色にしたいなら、以下のようなマクロ関数を利用します。

エクセルのバージョンが記載されていませんので2003以前のエクセルで説明すると、たとえばB1セルを選択し、「挿入」「名前」定義」でたとえば「色」と名前を付け、参照範囲に以下の式を入力します。

=GET.CELL(63,!A1)+NOW( )*0

色を付けたいセル(たとえば、C2セル)を選択し、「書式」「条件付き書式」で「数式が」にして「=色=3」として、「書式」をパターンタブで赤の色を選択します。

Qファイル一覧の項目の色について

ディスクを開くとフォルダゃファイルの一覧が表示されますが、この一覧の各項目名というか表題というか、この表示される名前に色はつけられないものなのでしょうか、色分けできればわかりやすいので、教えていただきたいのですが。

Aベストアンサー

explorerだけではできそうにない。
いろいろなツールがフリーソフトである。


たとえば、
http://homepage3.nifty.com/pyxis/

Q【エクセル】 2008/12/16 と入力されたセルを参照し、月数12を取り出すにはどうすればいいのでしょうか?

こんにちは。いつもお世話になってます。

セルA1に 2008/12/16 と入力されています。

セルB1に、A1の日付から月数だけ取り出し、12 と表示させるには、

どのような関数が考えられるでしょうか?

よろしくお願いします。

Aベストアンサー

こんにちは。

B1に、
=MONTH(A1)
です。

Q「名前をつけて保存」のデフォルト表示形式を「一覧」以外に変えられますか?

MS-Office以外のアプリケーションで「名前をつけて保存」を選択した際の、
ダイアログウィンドウ内の表示形式を変えられますか?

「詳細」「一覧」「アイコン表示」「並べて表示」「縮小版」
などの選択肢を一定のものに変えたいのです。
(現状では、毎回「名前をつけて保存」を開くたびに「一覧」表示に戻ってしまうようです)

OSはWindows-XPです。

Aベストアンサー

Windows標準の機能(フォルダオプションなど)では出来ませんが
http://okazaki.incoming.jp/matatabi/
のFasieと言うフリーSOFTを使えば出来ます。

http://okazaki.incoming.jp/danpei2/software/fasie.htm
http://pasokoma.jp/39/lg390467#390654

Q一定間隔で離れた複数セルを参照し、指定文字が1つでもあれば「条件付き書式の設定」によりセルの色を変えたい【エクセル2000】

縦方向に一定間隔で離れた複数のセルを以下の5つのセルとして
C20,C30,C40,C50,C60

そこにはプルダウンにより以下の文字のどちらかが入力され
"上記欄に捺印" か "捺印不要"

"上記欄に捺印"の文字が5つのセルのうち1か所でも選択されていれば
C10の捺印欄を黒塗りから白塗りに変えたいと思っています。

書類様式に伴い,C20:C60と選択することが不可能で,
C20,C30,C40,C50,C60と個々に選択する必要があります。

また,"捺印不要"な場合にセルを空白にすることとすれば
=COUNTA(C20,C30,C40,C50,C60)>0
で条件は満たすのですが,客先に提出する書類で,"捺印不要"な場合は"捺印不要"を入力しておかなければ受付けてもらえません。

以上の内容で困っています。
「条件付き書式の設定」で入力する数式をご教示願います。

Aベストアンサー

スマートといえるかわかりませんが条件付き書式
[数式が]
=FIND("上記欄に捺印",CONCATENATE(C10,C20,C30,C40,C50,C60))
または
=FIND("上記欄に捺印",C10&C20&C30&C40&C50&C60)

QAccessで指定する色数値の一覧ありませんか?

MsAccess 2002でフォームを作成しているのですが、フォームの色指定に使える色数値の一覧表はどこかにありませんでしょうか?

VBAを使いRGB関数で指定しても期待したとおりの色を取得することができません。
Accessで使用できる色数値の一覧を参照できるページなどご存知の方いらっしゃいましたらよろしくお願いします。

Aベストアンサー

#1です。先程のページの最後に「このホームページで表示している色は近似色です。正確な色ではありませんので御注意下さい。」と書いてありますので、もしかしたらうまく同じ色が出ないかも知れないですね。
とりあえずカラーチャートのリンク集がありましたので見てみて下さい。
http://www2u.biglobe.ne.jp/~color/all/l_02a_chart.htm

参考URL:http://www2u.biglobe.ne.jp/~color/all/l_02a_chart.htm

Qエクセルのセル指定の際、どのセルの隣。など指定できますか?

VLOOKUP関数の中で、通常はA4などセルの場所を指定していますが、例えば『A4の隣のセル』『B5の隣のセル』という指定の方法はできますか?

Aベストアンサー

こんにちは。maruru01です。

右隣なら、

=OFFSET(セル,,1)

=INDEX(1:65536,ROW(セル),COLUMN(セル)+1)

などですね。

Q一覧にある名前に該当する名前を赤くしたいのですが…

こんばんわ、いつもお世話になっています。

Excelのシートで
「シート1」に名前一覧を作り、「シート2」に名前を入れていくと「シート1」に名前がある人を入力すしたとき入力した文字を赤くしたり太字させることは可能ですか?

Aベストアンサー

Sheet1のA列を全て選択して、挿入-名前-定義で適当な名前を付けます。(例 リスト)
Sheet2のA列を全て選択して、書式-条件付き書式で「数式が」にして

=NOT(ISERROR(MATCH(A1,リスト,0)))

と入力し、書式を設定します。

これで希望のようになりますか?

Qエクセルでセルに入力した数字を指定したSheetの指定したセルに反映できますか

http://okwave.jp/qa4814381.html
で質問したものです。
例として「Sheet1」のセルA1に「1111」と入力しB1に「故障」、C1に「日時」を、D1に「担当者名」を入力すると、Sheet名「1111」のB18に「故障」C18に「日時」D18に「担当者名」が反映。
その後は入力していけば、B、C、Dの19~と下に反映していく方法を教えてください。

反映させるセルは「B18」を始まりとして、そのセルに内容、「C18」に日時「D18」に担当者の名前を始まりとしたいです。

Aベストアンサー

まとめましたので、前回のものと入れ替えてください

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("d1")) Is Nothing Then Exit Sub
If Range("a1").Value = "" Then Exit Sub
If Range("b1").Value = "" Then Exit Sub
Dim myData As Variant
Dim i As Long
Dim flg As Integer
Dim ws As Worksheet
flg = 0
For Each ws In Worksheets
If Range("a1").Value = ws.Name Then
flg = 1
Exit For
End If
Next ws
If flg = 1 Then
myData = Range("b1:d1").Value
With Worksheets(Range("a1").Value)
i = .Range("b65536").End(xlUp).Offset(1, 0).Row
If i < 18 Then
.Range("b18:d18").Value = myData
Else
.Range("b65536").End(xlUp).Offset(1, 0).Resize(1, 3).Value = myData
End If
End With
Else
MsgBox "入力されたSheetはありません"
End If
End Sub

まとめましたので、前回のものと入れ替えてください

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("d1")) Is Nothing Then Exit Sub
If Range("a1").Value = "" Then Exit Sub
If Range("b1").Value = "" Then Exit Sub
Dim myData As Variant
Dim i As Long
Dim flg As Integer
Dim ws As Worksheet
flg = 0
For Each ws In Worksheets
If Range("a1").Value = ws.Name Then
flg = 1
Exit For
End If
Next ws
If flg = 1 Then
myData = Range("b1:d1").V...続きを読む


人気Q&Aランキング