Excel VBA質問箱 IV

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

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


44420 / 76732 ←次へ | 前へ→

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

引用なし
パスワード
   こんばんは。
いつもお世話になっております。

今回、表記件についてご質問させていただきました。

『内容』
1.保管する期限を決めて、「5ヶ月前=緑 3ヶ月前=青 1ヶ月前=赤」などに色 分けを行っており、期限を設定していない(使用していない時)は白で表示
 させるようにしています。
 しかし、残り一ヶ月前になっても、赤ではなく白に変わってしまいます。

 どなたか、ご教授お願いします。。。
コードは以下のとおりです。

Dim i As Integer
   Dim d As Date
   Dim c As OLE_COLOR
  
   For i = 1 To 39
     ' シートiのA1の日付を取得
      d = Worksheets(i + 1).Range("A91").Value
     ' 月の差によって分岐
     Select Case Abs(DateDiff("m", d, Date))
    
     Case Is = 0
     
      c = vbWhite
      
    
     ' 5ヶ月以上
     Case Is >= 5
       c = vbGreen
     ' 3ヶ月以上
     Case Is >= 3
       c = vbBlue
         ' 1月未満
     Case Is > 1
     
       c = vbRed
     End Select
   
     ' ボタンの色を設定s
     UserForm1.Controls("CommandButton" & CStr(i)).BackColor = c

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 お礼

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