Excel VBA質問箱 IV

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

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


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

44416 / 76732

←次へ　｜　前へ→


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

kobasan - 06/4/30(日) 17:33 -


	引用なし

	パスワード

今日は
分岐条件に不可解な点があるので、参考程度に見てください。

'UserForm1モジュールのPrivate Sub UserForm_Initialize()に

　　　 Select Case Abs(DateDiff("m", d, Date))　' 月の差によって分岐
　　　　　　Case Is = 0, 1: c = vbRed　　　 ' 0,1ヶ月
　　　　　　Case Is = 2, 3, 4: c = vbBlue　 ' 2,3,4ヶ月
　　　　　　Case Is = 5, 6: c = vbGreen　　 ' 5ヶ月以上
　　　　　　Case Else: c = vbWhite
　　　　End Select
　　　　' ボタンの色を設定s
　　　　UserForm1.Controls("CommandButton" & i).BackColor = c
　　　　'DoEvents　 '念のため

でどうですか。

>しかし、先ほど値を確認したところ、保管期限が（ｄ＝4月15日・ｄａｔｅ＝4月30日）の場合のみでも白くなっています。
>
>　　 ' 1月未満
>　　　　　Case Is < 1
>　　　　　
>　　　　　　　c = vbRed
>赤になるコードを記述していますが、白くなってしまう原因がわかりません。。

0 hits

▼

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