请问如何使用VBA对时间进行分段

temin_232

用VBA对时间进行划分时段
想得到的格式如下：

A1       A2
时间  
14:15  下午
16:00  下午
13:00
12:21
21:15
11:24
12:00

10:00-12:00为上午
12:01-14:00为中午
14:01-17:00为下午
17:01-19:00为傍晚
19:01-12:00为晚上
A1列的数据都在10:00-22:00之间，数值类型为时间
试过vlookup,time,的函数都说是类型不匹配，请高手帮帮忙，万分感谢了！

[ 本帖最后由 temin_232 于 2011-1-20 21:25 编辑 ]

temin_232

自己顶一下，请高手帮忙，虽然用公式 =IF(A2>=TIME(19,0,0),"晚上",IF(A2>=TIME(17,0,0),"傍晚",IF(A2>=TIME(14,1,0),"下午",IF(A2>=TIME(12,1,0),"下午",IF(A2<=TIME(12,0,0),"上午",FALSE)))))  可以得到满意的答案，但这是我写的VBA程序里面的其中一项，想放在程序里面一块运行，请各位高手帮帮忙

yvhgydn

=LOOKUP(A2,{0.416666666666667,"上午";0.5,"中午";0.583333333333333,"下午";0.708333333333333,"傍晚";0.791666666666667,"晚上"})
Book1.rar (3.91 KB, 下载次数: 11)

2010-5-9 15:32 上传

点击文件名下载附件

onthetrip

这是自定义函数的写法,根据你的程序具体要求改改:

1. Function timesection(rng As Range)
   
2. Select Case Hour(rng)
   
3. Case 10 To 11
   
4. timesection = "上午"
   
5. Case 12 To 13
   
6. timesection = "中午"
   
7. Case 14 To 16
   
8. timesection = "下午"
   
9. Case 17 To 18
   
10. timesection = "傍晚"
    
11. Case 19 To 22
    
12. timesection = "晚上"
    
13. Case Else
    
14. timesection = "时间不在规定范围内"
    
15. End Select
    
16. End Function

复制代码

temin_232

感谢不尽！原来可以用LOOKUP和这样自定义函数，受教了，十分感谢！