VBA法课程节次和科目提醒

weiyingde

      我使用的一个课表，已经用函数以条件格式，做了一个颜色形式的提醒，需要完善，想以VBA法再次完善，具体见附件。请高手赐教。      已经解决问题了。
      朋友如果需要，请到8楼下载
      再次更新，提供下载。请转到10楼。            第三次更新版，请转到第11楼下载。
      第四次更新，见12楼。但宏运行受限制，绝对不是因为没启用宏。诚请仁兄斧正为盼，谢谢。

weiyingde

请E友赐教，路过的请歇脚援手，大侠高手请赐招。

weiyingde

想法是用循环法，自己先试试，也请高手相救

weiyingde

没结果，不知为何，请查看
Sub 获节次()
For i = 3 To 14
sj = Format(Time, "hh:mm:ss")
Set Rng = Cells(i, 3)
ks = Format(Val(Split(Rng.Value, "-")(0)), "hh,mm,ss")
js = Format(Val(Split(Rng.Value, "-")(1)), "hh,mm,ss")
If sj >= ks And sj <= js Then r = Rng.Row
Next
MsgBox r
End Sub

fkeih_007

weiyingde 发表于 2016-1-18 12:37
没结果，不知为何，请查看
Sub 获节次()
For i = 3 To 14

时间序数不要用Format，它返回的是一个文本,文本是不好比较大小的
改用timevalue

1. Sub 获节次()
   
2. For i = 3 To 14
   
3. sj = Time
   
4. Set Rng = Cells(i, 3)
   
5. ks = TimeValue(Split(Rng.Value, "-")(0))
   
6. js = TimeValue(Split(Rng.Value, "-")(1))
   
7. If sj >= ks And sj <= js Then r = Rng.Row
   
8. Next
   
9. MsgBox r
   
10. End Sub

复制代码

weiyingde

为什么日期可以呢？

weiyingde

解决问题了

weiyingde

VBA法课程节次和科目提醒
1：
后面的去掉。

weiyingde

顺便问一声，时间变量怎么申明？能申明为date类型吗？有知情的，告我一声！！
先谢了！！

weiyingde

再次更新，提供下载。请到本楼下载使用，大家如有更新完善建议，请告诉我。