Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8634 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 -
引用なし
パスワード
   長谷川と申します。
よろしくお願いします。

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

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

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

どうかよろしくお願いします。
【32040】Re:日付を比較
発言  Jaka  - 05/12/5(月) 10:59 -
引用なし
パスワード
   こんにちは。

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

>また注意をひくという意味でポップアップとかもできるのでしょうか？
意味がわかりません。
【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
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
8634 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free