Excel VBA質問箱 IV

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

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


8633 / 13644 ツリー ←次へ | 前へ→

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

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

引用なし
パスワード
   長谷川と申します。
よろしくお願いします。

あるセルに処理をした日付を手動で入力します。
その隣のセルに上記の処理の点検日(3ヵ月後)を表示させるように式を入力しています。

ここで質問なんですが、その処理の点検日(3ヶ月)が近づいてきて、
たとえば10日以内ならフォント色を青色、当日なら赤色になるようにしたいのですが、可能でしょうか?

また注意をひくという意味でポップアップとかもできるのでしょうか?

どうかよろしくお願いします。

【32040】Re:日付を比較
発言  Jaka  - 05/12/5(月) 10:59 -

引用なし
パスワード
   こんにちは。

▼長谷川 さん:
>たとえば10日以内ならフォント色を青色、当日なら赤色になるようにしたいのですが、可能でしょうか?
条件付書式で出来ます。

>また注意をひくという意味でポップアップとかもできるのでしょうか?
意味がわかりません。

【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

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