Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6313 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【45954】納期管理をしたいのですが・・・。 あやこ 07/1/18(木) 23:16 質問[未読]
【45955】Re:納期管理をしたいのですが・・・。 neptune 07/1/18(木) 23:30 回答[未読]
【45956】Re:納期管理をしたいのですが・・・。 Kein 07/1/19(金) 0:22 回答[未読]
【45968】Re:納期管理をしたいのですが・・・。 あやこ 07/1/19(金) 21:04 お礼[未読]
【45954】納期管理をしたいのですが・・・。
質問  あやこ  - 07/1/18(木) 23:16 -
引用なし
パスワード
   はじめまして。

今納期管理表をエクセルで作成しています。

【例】
　　　　A　　　　　　　B　　　　　　　　　　C　　　　　　　　　　D
1　　現場名　　第一工程完了希望日　　 第一工程完了日　　第２工程完了希望日
2　　　A　　　　　　07/1/15　　　　　　　07/1/14　　　　　　 07/1/25
3　　　B　　　　　　07/1/24　　 　　　　 07/1/26
4　　　C　　　　　　07/1/25
5　　　･

上記のような表をしたのですが、ここで、コマンドボタンを押すと完了希望日をすぎた現場名をMsgBoxに表示させるようにしたいのですが、どのようにすればよいのでしょうか？？？
超初心者で、手持ちの本を読みあさりながら、がんばってみたのですが･･･。
DATEIFっていうのをつかえば良いのですか？？？
本当に低レベルな質問で申し訳ないのですが、どうぞよろしくお願いいたします。
【45955】Re:納期管理をしたいのですが・・・。
回答  neptune  - 07/1/18(木) 23:30 -
引用なし
パスワード
   ▼あやこ さん：
こんにちは
>超初心者で、手持ちの本を読みあさりながら、がんばってみたのですが･･･。
どこまで出来たか途中のソースでもUPした方がアドバイスを受けやすいですよ。

>DATEIFっていうのをつかえば良いのですか？？？
datediff関数ですね。
Helpより引用
2 つの指定した日付の時間間隔を表すバリアント型 (内部処理形式 Date の Variant) の値を指定します。

Helpの使用例も見てください。参考になります。

好みですが、メッセージボックスより現場名の行かセルに色を付けた方が
アピール度が高いような。。。
【45956】Re:納期管理をしたいのですが・・・。
回答  Kein  - 07/1/19(金) 0:22 -
引用なし
パスワード
   いちおう、こんな感じで・・

Private Sub CommandButton1_Click()
　 Dim C As Range
　 Dim St1 As String, St2 As String

　 On Error GoTo ELine
　 For Each C In Range("B:D").SpecialCells(2, 1)
　　　If IsDate(C.Value) Then
　　　　 If C.Value < Date Then
　　　　　　St1 = Cells(C.Row, 1).Value
　　　　　　St2 = Cells(1, C.Column).Value
　　　　　　MsgBox "現場名 : " & St1 & " は" & vbLf & _
　　　　　　St2 & " を過ぎています", 48
　　　　 End If
　　　End If
　 Next
　 Exit Sub
ELine:
　 MsgBox "日付が入力されていない可能性があります", 48
End Sub

たくさんヒットすると、メッセージが頻繁に出て煩わしいです。
それを避けたいなら、セルに色を着るような方法をとることになりますね。
【45968】Re:納期管理をしたいのですが・・・。
お礼  あやこ  - 07/1/19(金) 21:04 -
引用なし
パスワード
   neptuneさん、keinさん

ありがとうございます。
お二人のアドバイスを参考にしながら、もう少しがんばってみます。
たしかに色を付けるほうがいいのかな？？？
本当に丁寧にありがとうございました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6313 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free