Excel VBA質問箱 IV

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

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


44288 / 76732 ←次へ | 前へ→

【37464】Re:コマンドボタン色変え2.&メール送信方法
質問  たけし  - 06/5/8(月) 20:01 -

引用なし
パスワード
   ▼たけし さん:
>以前お世話になりました、たけしです。
>
>大変恥ずかしいのですが、この前問題が起きてしまいました。
>
>1、一ヶ月未満を赤に変更したいのですが、残り2ヶ月をきると赤に変わってしまいます。。
>  ⇒一ヶ月未満に設定すると、使用者がいないコマンドボタンも赤くなって
>   しまうのです。
>
>2、残り2週間前になったら文章をメールにて送りたいのですが、方法が良くわかりません。。
>
> 素人質問で申し訳ないですが、ご教授のほどお願いします。

すいません。。これがコードです


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 = 1: c = vbRed   ' 0,1ヶ月
      Case Is = 2, 3, 4: c = vbYellow  ' 2,3,4ヶ月
      Case Is = 5, 6: c = vbGreen   ' 5ヶ月以上
      Case Else: c = vbWhite
       
   End Select

   
     ' ボタンの色を設定s
     UserForm1.Controls("CommandButton" & CStr(i)).BackColor = c
   Next

0 hits

【37462】コマンドボタン色変え2.&メール送信方法 たけし 06/5/8(月) 19:43 質問
【37464】Re:コマンドボタン色変え2.&メール送信方法 たけし 06/5/8(月) 20:01 質問
【37528】Re:コマンドボタン色変え2.&メール送信方法 ハト 06/5/10(水) 11:12 発言
【37533】Re:コマンドボタン色変え2.&メール送信方法 たけし 06/5/10(水) 19:58 発言
【37547】Re:コマンドボタン色変え2.&メール送信方法 ハト 06/5/11(木) 14:40 発言
【37552】Re:コマンドボタン色変え2.&メール送信方法 ハト 06/5/11(木) 15:45 発言
【37564】Re:コマンドボタン色変え2.&メール送信方法 たけし 06/5/11(木) 23:11 お礼
【37558】Re:コマンドボタン色変え2.&メール送信方法 わさび 06/5/11(木) 19:59 発言

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