[[20170106062532]] 『納期が近いとセルに文字入力+色をつけたい』(黒き翼) ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『納期が近いとセルに文字入力+色をつけたい』(黒き翼)

期限が近いとB列のセルにメッセージが表示されるマクロを教えてください

納期        メッセージ
2017/1/6 6:27    急案件←赤ハッチング
2017/1/7 6:27    急案件
2017/1/8 6:27    急案件
2017/1/9 6:27    通常
2017/1/10 6:27    通常
2017/1/11 6:27    通常

今日の日付から3日以内の案件については赤色で塗り"急案件"として、
それ以降のは"通常対応"とさせたいです。

マクロ記録で作ってみたのですがうまくいきませんでした。
条件付き書式で色を塗ることができたのですが、検索で該当せずに置換できません。
どうかご教授のほどをよろしくお願いします。

Sub 赤色ハッチング()
'
' 条件付き書式で3日以内を赤で染める
'

'

    Range("B2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
        "=$A2-TODAY()<3"
    Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
End Sub

Sub 文字置換()
'
' 赤く染めたセルを置換して急案件と入力する
'

'

    With Application.FindFormat.Interior
        .PatternColorIndex = xlAutomatic
        .Color = 255
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
    Cells.Replace What:="", Replacement:="急案件", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=True, ReplaceFormat:=False
End Sub

< 使用 Excel:Excel2007、使用 OS:Windows7 >


B2セルには数式として「=IF($A2<TODAY()+3,"急案件","通常")」としておき、条件付き書式は「=$A2<TODAY()+3」だったら着色、で済むように思いますよ。

マクロだと、色や文字を戻す処理とか考えないといけないので、数式と条件付き書式で解決するのが一般的な方法かと思います。
(???) 2017/01/06(金) 09:03


回答ありがとうございます。
マクロにこだわりすぎて関数でできることに気がつきませんでした。
マクロで=IF($A2="","",IF($A2<TODAY()+3,"急案件","通常"))を張り付けるようにしてみます。
(黒き翼) 2017/01/06(金) 17:47

コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.