エクセルの日付について

質問

エクセルについて教えてください。

それぞれのセルに複数の日付を入力しておき、今日から３日後の日付だけ色を変えたりする方法

例）３/２２,３/２３，３／２５，３／２６，３／２７とそれぞれのセルに入力しておき、今日エクセルを開くと３／２５のセルだけ文字の色が変わり、明日エクセルを開くと、３／２６のセルだけ文字の色が変わる

回答No.1

akio_myau · ベストアンサー

条件付書式設定で
数式が選び
=a1=today()+3
の式を入れて文字の色を変更する設定してはどうでしょうか。

回答No.4

imogasi

ＶＢＡであれば、マクロの記録をとり
Sub Macro1()
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=TODAY()+3"
Selection.FormatConditions(1).Interior.ColorIndex = 6
End Sub
の
Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=TODAY()+3"
と
).Interior.ColorIndex = 6
の６を色によって変えます。
条件付き書式を設定したいセル範囲を指定しておいて、実行する。
普通はＦｏｒｍａｔＣｏｎｄｉｔｉｏｎｓを使います。

回答No.3

noname#22222

いちいち、式を書くのが面倒であれば...

１、Sheet1のタグを右クリック。
２、[コード]の表示をクリック。
３、メニューバーの[挿入]-[標準モジュール]をクリック。
４、生成されたMidule1に以下のコードをコピー。
５、スタート行、終了行、スタートセル、終了セルの定義(Const conSRowの値）を実際の値に修正。
６、強調色を欲する値に訂正。

RGB(255, 0, 0)=赤
RGB(0, 255, 0)=青
RGB(0, 0, 255)=緑

Public Sub Auto_Open()
　　Dim I　　　As Integer
　　Dim J　　　As Integer
　　Dim R(1)　 As Integer
　　Dim C(1)　 As Integer
　　Dim Hiduke As Date
　　Const conSRow = 1
　　Const conERow = 10
　　Const conSCel = 1
　　Const conECel = 10

　　Hiduke = Date + 3
　　R(0) = conSRow
　　R(1) = conERow
　　C(0) = conSCel
　　C(1) = conECel
　　For I = R(0) To R(1)
　　　　For J = C(0) To C(1)
　　　　　　Worksheets("Sheet1").Cells(I, J).Font.Color = _
　　　　　　　　Abs((Worksheets("Sheet1").Cells(I, J) = Hiduke)) * RGB(255, 0, 0)
　　　　Next J
　　Next I
End Sub

回答No.2

O_cyan

>日付を入力しておき今日から３日後の日付だけ色を変えたりする方法

日付を入力するセルを書式設定のユーザー設定でm/dとしておき日付を入力します。
日付を入力したセル全てをドラッグして範囲指定しメニューの書式から条件付き書式を選び[セルの値が][次の値と等しい][=TODAY()+3]とし書式でフォントの色を設定します。
でれで日付を入力したセル全てに書式設定できますのでExcelファイルを開けば３日後の日付のフォントの色を変更することが出来ます。
Excelは専門ではありませんが・・試してみてください。