| |
もも様、kanabun様、Yuki様、ありがとうございます！
皆様の助言を下に一応以下で望む動作はできましたが、力技すぎるかもしれません。
まだまだ精進をしたいと思います。
参考までに稚拙ではありますが（おそらく）成功コードです。
もし、おかしなところや、改善点等ございましたら
ご指摘いただけると助かります。
たくさんの助言、本当にありがとうございました！
DATEシートのA列には[2009/7/13 8:00:00]
祝日シートのA2〜A50には祝日のdateが入っています。
sub test()
Dim Gyou As Long
Dim sday As Date
Dim ws1 As Worksheet
Dim ws2 As Worksheet
Dim j As Integer, a As Integer
Set ws1 = ThisWorkbook.Worksheets("DATE")
Set ws2 = ThisWorkbook.Worksheets("祝日")
Gyou = InputBox("何行目を見ますか")
sday = ws1.Range("A" & Gyou)
a = 0
For j = 2 To 50
If ws2.Cells(j, 1).Value = DateValue(sday) Then
MsgBox "時間外"
a = 1
End If
Next j
If a < 1 Then
Select Case Weekday(sday, vbSunday)
Case 2 To 6 '月火水木金
Select Case TimeValue(sday)
Case TimeSerial(9, 0, 0) To TimeSerial(17, 30, 0)
MsgBox "時間内"
Case Else
MsgBox "時間外"
End Select
Case Else '土日
MsgBox "時間外"
End Select
End If
End Sub
|
|
さくら
- 09/7/14(火) 10:42 -
