[已解决]还是窗体时间控件的问题。

跑跑2014

思路刚才还是有问题。更改下思路，做了sheet1工作薄的两个单元格的辅助公式，如果小于sheet1.range("u5")和大于sheet1.range("u6"),那么
Private Sub DTPicker1_Change()就会出来一个提示框，告诉，注意下时间。只是提示，什么也不改变。这个可以做到吗。

最佳答案

月排行榜 / 总排行榜

zjdh

2014-4-25 17:38

添加2段宏
Private Sub DTPicker1_Change()
  If DTPicker1 < Range("U5") Or DTPicker1 > Range("U6") Then MsgBox "请注意日期！"
End Sub
Private Sub DTPicker2_Change()
  If DTPicker2 < Range("U5") Or DTPicker2 > Range("U6") Then MsgBox "请注意日期！"
End Sub

跳转到最佳答案楼层

ghostjiao

{:1312:}你应该弄个附件

zjdh

发附件

跑跑2014

zjdh 发表于 2014-4-25 15:32
发附件

还是http://www.excelpx.com/forum.php?mod=viewthread&tid=323640&page=1#pid3683865这个八楼的附件行吗，我现在在家了，家里机子不知道怎么就是传不了工作　薄了。加了两个辅助单元格，总目录range("u5")=EDATE(T5,1),     range("u6")=EDATE(T6,1) 这样，只要小于range("u5")或大于range("u6")就提醒，不改变。这样就可以必免每月录入的错误发生了。您受累再看看。

zjdh

添加2段宏
Private Sub DTPicker1_Change()
  If DTPicker1 < Range("U5") Or DTPicker1 > Range("U6") Then MsgBox "请注意日期！"
End Sub
Private Sub DTPicker2_Change()
  If DTPicker2 < Range("U5") Or DTPicker2 > Range("U6") Then MsgBox "请注意日期！"
End Sub

跑跑2014

zjdh 发表于 2014-4-25 17:38
添加2段宏
Private Sub DTPicker1_Change()
  If DTPicker1 < Range("U5") Or DTPicker1 > Range("U6") T ...

谢谢，这样就可以解决问题了。