|
▼長谷川さん:
こんなのでは如何でしょうか
参考になれば使ってください…指定日から90日前になれば
メッセージが出る、ポップに近いものがでるようにしています。
A6に指定日、例えば2000/2/10と入れます
B6には =Today の関数を入れます、つまり今日の12/7になります。
指定日が今日から90日以内であれば次のコードでいけます。
後は、長谷川さんの好きなアレンジをされては?
Auto_Openを使っていますのでエクセルのマクロを開くと自動的に
でます。標準モジュールに…コードを貼り付けてください。
もっと良い方法や楽しい方法は、また識者がコメントして
いただけるでしょう。
Sub auto_open()
Range("A6").NumberFormatLocal = "G/標準"
Range("B6").NumberFormatLocal = "G/標準"
If Range("A6") - 90 <= Range("B6") Then
ActiveSheet.Shapes.AddTextEffect(msoTextEffect14, _
"指定日から90日以内です!!", "MS Pゴシック" _
, 20#, msoFalse, msoFalse, 211.5, 180#).Select
Range("A1").Select
MsgBox ("指定日の90日前になっています")
End If
Range("A6").NumberFormatLocal = "yyyy/m/d"
Range("B6").NumberFormatLocal = "yyyy/m/d"
End Sub
|
|