Excel VBA質問箱 IV

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

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


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

44420 / 76735

←次へ　｜　前へ→


	【37333】Re:ユーザーフォームのボタン色変え

たけし - 06/4/30(日) 13:39 -


	引用なし

	パスワード

▼neptune さん：
>>c = vbWhite
>にブレークポイントを置いて実行してみましょう。
>そして、止まった時に
>>Abs(DateDiff("m", d, Date))
>の値を確認してみましょう。
>
>ロジックの間違いに気が付くはずです。

お返事ありがとうございます。
早速試しましたが、ひとつわからない事があります。

case Is =　0　
のところで、使用者がいない場合のみ、ＴＯＤＡＹ関数を用いて、日付を＝させています。
しかし、先ほど値を確認したところ、保管期限が（ｄ＝4月15日・ｄａｔｅ＝4月30日）の場合のみでも白くなっています。

　　 ' 1月未満
　　　　　Case Is < 1
　　　　　
　　　　　　　c = vbRed
赤になるコードを記述していますが、白くなってしまう原因がわかりません。。

0 hits

▼

【37330】ユーザーフォームのボタン色変え たけし 06/4/30(日) 0:42