みんなの「教えて(疑問・質問)」にみんなで「答える」Q&Aコミュニティ

こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

締切り済みの質問

Excel関数で出した時間を判定したい

「就業時間基本5:30」なら「A」判定
「就業時間基本2:45」以上「5:29」なら「B」判定
「就業時間基本1:00」以上「2:44」ならば「C」判定
「修行時間基本1:00」未満なら「空白」
と判定させたいです。「就業時間基本」はワークシート関数で求めています。
例えば、2月1日から2月28日まで、VBAを使って「判定する」ならどうすれば良いでしょうか?
基本時間 If 関数で2:45 以上 5:29 「B」 判定としようとすると、おそらくは「シリアル値の問題」で簡単に「B」判定とは出てくれません。
どなたか、正しい判定方法を教えてください。

投稿日時 - 2019-01-20 16:31:49

QNo.9579646

すぐに回答ほしいです

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(2)

ANo.2

先ほどポストしたコードでも間違いではありませんが、
より正しくは以下です。

Option Explicit

Function getCode(MyTime As Range) As String
 Dim wsTime As Date
 wsTime = MyTime.Value - Int(MyTime.Value)
 If wsTime = TimeSerial(5, 30, 0) Then
  getCode = "A"
 ElseIf ((wsTime >= TimeSerial(2, 45, 0)) And _
     (wsTime < TimeSerial(5, 30, 0))) Then
  getCode = "B"
 ElseIf ((wsTime >= TimeSerial(1, 0, 0)) And _
     (wsTime < TimeSerial(2, 45, 0))) Then
  getCode = "C"
 ElseIf wsTime < TimeSerial(1, 0, 0) Then
  getCode = ""
 Else
  getCode = ""
 End If
End Function

投稿日時 - 2019-01-20 21:53:34

ANo.1

VBAである必要があるか疑問ですが
添付画像を例に、次のような関数でいかがでしょうか?

Option Explicit

Function getCode(MyTime As Date) As String
 Dim wsTime As Date
 wsTime = MyTime - Int(MyTime)
 If wsTime = TimeSerial(5, 30, 0) Then
  getCode = "A"
 ElseIf ((wsTime >= TimeSerial(2, 45, 0)) And _
     (wsTime < TimeSerial(5, 30, 0))) Then
  getCode = "B"
 ElseIf ((wsTime >= TimeSerial(1, 0, 0)) And _
     (wsTime < TimeSerial(2, 45, 0))) Then
  getCode = "C"
 ElseIf wsTime < TimeSerial(1, 0, 0) Then
  getCode = ""
 Else
  getCode = ""
 End If
End Function

投稿日時 - 2019-01-20 18:22:04

あなたにオススメの質問