Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

49480 / 76735

←次へ　｜　前へ→


	【32165】Re:日付を比較

gako - 05/12/7(水) 20:17 -


	引用なし

	パスワード

▼長谷川さん：

こんなのでは如何でしょうか
参考になれば使ってください…指定日から90日前になれば
メッセージが出る、ポップに近いものがでるようにしています。
Ａ6に指定日、例えば2000/2/10と入れます
Ｂ6には　=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日以内です!！", "ＭＳＰゴシック" _
　　　　, 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

0 hits

▼

【32039】日付を比較 長谷川 05/12/5(月) 10:35