Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

35964 / 76732

←次へ　｜　前へ→


	【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

たくさんヒットすると、メッセージが頻繁に出て煩わしいです。
それを避けたいなら、セルに色を着るような方法をとることになりますね。

2 hits

▼

【45954】納期管理をしたいのですが・・・。 あやこ 07/1/18(木) 23:16