Excel VBA質問箱 IV

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

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


19798 / 76732 ←次へ | 前へ→

【62360】Re:時間外、時間内の判別方法
お礼  さくら  - 09/7/14(火) 10:42 -

引用なし
パスワード
   もも様、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

1 hits

【62351】時間外、時間内の判別方法 さくら 09/7/13(月) 16:49 質問
【62352】Re:時間外、時間内の判別方法 もも 09/7/13(月) 16:55 発言
【62353】Re:時間外、時間内の判別方法 さくら 09/7/13(月) 17:03 発言
【62354】Re:時間外、時間内の判別方法 kanabun 09/7/13(月) 17:27 発言
【62356】Re:時間外、時間内の判別方法 kanabun 09/7/13(月) 21:45 発言
【62358】Re:時間外、時間内の判別方法 Yuki 09/7/14(火) 7:52 発言
【62360】Re:時間外、時間内の判別方法 さくら 09/7/14(火) 10:42 お礼
【62361】Re:時間外、時間内の判別方法 kanabun 09/7/14(火) 10:56 発言
【62363】Re:時間外、時間内の判別方法 さくら 09/7/14(火) 13:40 お礼

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