[已解决]请高手给个时间判断再执行宏的代码

东方智彩

请高手给个时间判断再执行宏的代码,如点击一按钮执行宏时如果在上午10:00--晚上11:00的时间内就可以执行该宏,如果不在这个时间点了按钮就提示不在有效时间,请高手帮忙给个代码.谢谢!

最佳答案

月排行榜 / 总排行榜

雨狐

2009-11-25 09:24

Sub a()
Dim t As Date
t = Time
If t > #10:00:00 AM# And t < #11:00:00 PM# Then
MsgBox "有效时间"
End If

跳转到最佳答案楼层

雨狐

Sub a()
Dim t As Date
t = Time
If t > #10:00:00 AM# And t < #11:00:00 PM# Then
MsgBox "有效时间"
End If

FookYou

Sub aa()
  If Time >= #10:00:00 AM# And Time <= #11:00:00 PM# Then
    [程序]
  End If
End Sub

东方智彩

谢谢楼上的两个老师,代码都非常的棒,最佳!哈哈只能先来先得了!

BJ

学习最佳答案

zsd5237

学习[em02][em02]