Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7691 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 発言[未読]
【37462】コマンドボタン色変え2.＆メール送信方法
質問  たけし  - 06/5/8(月) 19:43 -
引用なし
パスワード
   以前お世話になりました、たけしです。

大変恥ずかしいのですが、この前問題が起きてしまいました。

１、一ヶ月未満を赤に変更したいのですが、残り２ヶ月をきると赤に変わってしまいます。。
　　⇒一ヶ月未満に設定すると、使用者がいないコマンドボタンも赤くなって
　　　しまうのです。

２、残り２週間前になったら文章をメールにて送りたいのですが、方法が良くわかりません。。

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

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


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
【37528】Re:コマンドボタン色変え2.＆メール送信...
発言  ハト  - 06/5/10(水) 11:12 -
引用なし
パスワード
   おはようございます

とりあえず、１のほうについてだけですが

>>１、一ヶ月未満を赤に変更したいのですが、残り２ヶ月をきると赤に変わってしまいます。。
>>　　⇒一ヶ月未満に設定すると、使用者がいないコマンドボタンも赤くなって
>>　　　しまうのです。

>　　　　　　Case Is = 1: c = vbRed　　　' 0,1ヶ月

ここのところですが、

１ヶ月未満　Is = 0
１ヶ月以上２ヶ月未満 Is = 1

ですよ？

後、使用者がいないとは日付が設定されていないということでしょうか？

それと、Datediff を使っていらっしゃいますが
"m"指定ですと日付の月の部分でしか比較しないので

2006/05/01 と 2006/06/30
2006/05/31 と 2006/06/01

どちらも戻り値は”1”となります。

2006/05/10　と　2006/06/10　は　一ヶ月以上
2006/05/10　と　2006/06/09　は　一ヶ月未満
と処理したいのであれば、別の処理を考える必要があるかと・・・
【37533】Re:コマンドボタン色変え2.＆メール送信...
発言  たけし  - 06/5/10(水) 19:58 -
引用なし
パスワード
   ▼ハト さん：
>おはようございます
>
>とりあえず、１のほうについてだけですが
>
>>>１、一ヶ月未満を赤に変更したいのですが、残り２ヶ月をきると赤に変わってしまいます。。
>>>　　⇒一ヶ月未満に設定すると、使用者がいないコマンドボタンも赤くなって
>>>　　　しまうのです。
>
>>　　　　　　Case Is = 1: c = vbRed　　　' 0,1ヶ月
>
>ここのところですが、
>
>１ヶ月未満　Is = 0
>１ヶ月以上２ヶ月未満 Is = 1
>
>ですよ？
>
>後、使用者がいないとは日付が設定されていないということでしょうか？
>はい、日付は設定していません。
>それと、Datediff を使っていらっしゃいますが
>"m"指定ですと日付の月の部分でしか比較しないので
>
>2006/05/01 と 2006/06/30
>2006/05/31 と 2006/06/01
>
>どちらも戻り値は”1”となります。
>
>2006/05/10　と　2006/06/10　は　一ヶ月以上
>2006/05/10　と　2006/06/09　は　一ヶ月未満
>と処理したいのであれば、別の処理を考える必要があるかと・・・

お返事ありがとうございます！！

ｍが月のみだと知りませんでした。。（教えていただいたコードなので＾＾；

現在、そのように別処理を考えているのですが、うまくいかないです＞＜

ｍではなく、他の関数でなにかできないでしょうか？
【37547】Re:コマンドボタン色変え2.＆メール送信...
発言  ハト  - 06/5/11(木) 14:40 -
引用なし
パスワード
   ▼たけし さん：
おはようございます

>ｍが月のみだと知りませんでした。。（教えていただいたコードなので＾＾；
>
>現在、そのように別処理を考えているのですが、うまくいかないです＞＜
>
>ｍではなく、他の関数でなにかできないでしょうか？

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


　　For i = 1 To 39
　　　　' シートiのA1の日付を取得
　　　　d = Worksheets(i + 1).Range("A91").Value
　　　　　
　　　　If d = "" Then
　　　　　　' シートiのA1の日付が未設定（使用者なし）
　　　　　　c = vbWhite
　　　　Else
　　　　　　' シートiのA1の日付が
　　　　　　' １ヶ月未満：赤、１ヶ月以上５ヶ月未満：黄色、５ヶ月以上：緑
　　　　　　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

メール送信については私はよくわかりません
しかし、過去ログにその手の話題があるようですので
検索してみてください
【37552】Re:コマンドボタン色変え2.＆メール送信...
発言  ハト  - 06/5/11(木) 15:45 -
引用なし
パスワード
   申し訳ありません
一部訂正です
>　　　　　　c = Switch(d < DateAdd("m", 1, Date), vbRed, d < DateAdd("m", 5, Date), vbYellow, d > DateAdd("m", 5, Date), vbGreen)

の部分は
　　　　　　c = Switch(d < DateAdd("m", 1, Date), vbRed, d < DateAdd("m", 5, Date), vbYellow, d >= DateAdd("m", 5, Date), vbGreen)

でした（最後の比較演算子の間違い）

ちなみにこの関数は

　　Select Case d
　　　　Case Is < DateAdd("m", 1, Date)
　　　　　　c = vbRed
　　　　Case Is < DateAdd("m", 5, Date)
　　　　　　c = vbYellow
　　　　Case Is >= DateAdd("m", 5, Date)
　　　　　　c = vbGreen
　　End Select

と同じ意味です
【37558】Re:コマンドボタン色変え2.＆メール送信...
発言  わさび  - 06/5/11(木) 19:59 -
引用なし
パスワード
   mではなくdにし、
たとえばひと月を28日なり30日なりにして、
日数で判断するというのは…
厳密に１ヵ月じゃなくなってしまうから、ダメですか(^^;
【37564】Re:コマンドボタン色変え2.＆メール送信...
お礼  たけし  - 06/5/11(木) 23:11 -
引用なし
パスワード
   ハトさん

ありがとうございます。

早速試したところ出来ました！！

メール送信方法については過去ログを参照にやってみます。


わさびさん

お返事ありがとうございます。
日数はそこまで厳密では無くても良いです。
しかし、ハトさんのコードで解決できました！


お二人ともありがとうございました！！
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7691 / 13657 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free