エクセルの日付について

ＶＢＡであれば、マクロの記録をとり 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 の６を色によって変えます。 条件付き書式を設定したいセル範囲を指定しておいて、実行する。 普通はＦｏｒｍａｔＣｏｎｄｉｔｉｏｎｓを使います。

いちいち、式を書くのが面倒であれば... １、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

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