Excel VBA質問箱 IV

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

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


44206 / 76732 ←次へ | 前へ→

【37547】Re:コマンドボタン色変え2.&メール送信方法
発言  ハト  - 06/5/11(木) 14:40 -

引用なし
パスワード
   ▼たけし さん:
おはようございます

>mが月のみだと知りませんでした。。(教えていただいたコードなので^^;
>
>現在、そのように別処理を考えているのですが、うまくいかないです><
>
>mではなく、他の関数でなにかできないでしょうか?

DateAdd関数で現在の日付に1ヶ月とか加算してシートの日付と大小を比べるのはどうでしょうか?
下のような感じになります


  For i = 1 To 39
    ' シートiのA1の日付を取得
    d = Worksheets(i + 1).Range("A91").Value
     
    If d = "" Then
      ' シートiのA1の日付が未設定(使用者なし)
      c = vbWhite
    Else
      ' シートiのA1の日付が
      ' 1ヶ月未満:赤、1ヶ月以上5ヶ月未満:黄色、5ヶ月以上:緑
      c = Switch(d < DateAdd("m", 1, Date), vbRed, d < DateAdd("m", 5, Date), vbYellow, d > DateAdd("m", 5, Date), vbGreen)
    End If
 
    ' ボタンの色を設定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 発言

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