Excel VBA質問箱 IV

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

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


49477 / 76732 ←次へ | 前へ→

【32165】Re:日付を比較
回答  gako  - 05/12/7(水) 20:17 -

引用なし
パスワード
   ▼長谷川さん:

こんなのでは如何でしょうか
参考になれば使ってください…指定日から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

1 hits

【32039】日付を比較 長谷川 05/12/5(月) 10:35 質問
【32040】Re:日付を比較 Jaka 05/12/5(月) 10:59 発言
【32165】Re:日付を比較 gako 05/12/7(水) 20:17 回答

49477 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free