Excel VBA質問箱 IV

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

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


44419 / 76735 ←次へ | 前へ→

【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  '念のため

でどうですか。

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

0 hits

【37330】ユーザーフォームのボタン色変え たけし 06/4/30(日) 0:42 質問
【37332】Re:ユーザーフォームのボタン色変え neptune 06/4/30(日) 10:14 回答
【37333】Re:ユーザーフォームのボタン色変え たけし 06/4/30(日) 13:39 質問
【37335】Re:ユーザーフォームのボタン色変え kobasan 06/4/30(日) 17:33 発言
【37336】Re:ユーザーフォームのボタン色変え neptune 06/4/30(日) 18:25 回答
【37338】Re:ユーザーフォームのボタン色変え neptune 06/4/30(日) 20:42 回答
【37339】Re:ユーザーフォームのボタン色変え たけし 06/4/30(日) 21:02 お礼

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