[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『納期が近いとセルに文字入力+色をつけたい』(黒き翼)
期限が近いと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 >
マクロだと、色や文字を戻す処理とか考えないといけないので、数式と条件付き書式で解決するのが一般的な方法かと思います。
(???) 2017/01/06(金) 09:03
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.