Excel VBA質問箱 IV

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

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


6311 / 13644 ツリー ←次へ | 前へ→

【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工程完了希望日
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さん

ありがとうございます。
お二人のアドバイスを参考にしながら、もう少しがんばってみます。
たしかに色を付けるほうがいいのかな???
本当に丁寧にありがとうございました。

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