vba编写时间大小比较：A列是时间序列，在B列根据规则判断A列值返回早、中、等

pinkanqier

A列是时间序列如8:00,8:20等值，希望在B列返回根据一定规则，如8:00-10:00 早晨，判断A的时间值属于哪个分组时间段。这段代码怎么写

小小鸟前滚翻

就是个比较大小，很难??

719404338

1. Sub t()
   
2. Dim i
   
3. For i = 2 To [a65536].End(3).Row
   
4. If Range("a" & i) > #10:00:00 PM# Or Range("a" & i) <= #5:00:00 AM# Then
   
5. Range("b" & i) = "深夜"
   
6. ElseIf Range("a" & i) > #5:00:00 AM# And Range("a" & i) <= #8:00:00 AM# Then
   
7. Range("b" & i) = "早晨"
   
8. ElseIf Range("a" & i) > #8:00:00 AM# And Range("a" & i) <= #12:00:00 PM# Then
   
9. Range("b" & i) = "上午"
   
10. ElseIf Range("a" & i) > #12:00:00 AM# And Range("a" & i) <= #3:00:00 PM# Then
    
11. Range("b" & i) = "中午"
    
12. ElseIf Range("a" & i) > #3:00:00 PM# And Range("a" & i) <= #6:00:00 PM# Then
    
13. Range("b" & i) = "下午"
    
14. ElseIf Range("a" & i) > #6:00:00 PM# And Range("a" & i) <= #10:00:00 PM# Then
    
15. Range("b" & i) = "晚上"
    
16. End If
    
17. Next i
    
18. End Sub

复制代码

8191872

Sub TEST7()
For i = 1 To Sheets.Count
na = Sheets(i).Name
If na = "安环" Or na = "党群" Then
MsgBox na
Else
MsgBox "其他工作表-" & na
End If
Next
End Sub？？？怎么样楼上的这种格式回复代码？

wodewan

8191872 发表于 2019-10-13 20:21
Sub TEST7()
For i = 1 To Sheets.Count
na = Sheets(i).Name

点箭头指向的那个按钮，哈哈

tio_akira

1. b2=lookup(hour(a1),{0,8,10,13,15,19,24},{“晚上”,“早上”,“上午”,“中午”,“下午”,“晚上”,})

复制代码

这问题看起来没必要VBA。

pinkanqier

谢谢大家，我试一下