DTP日历控件初始化的问题

luohanguo

在工作表上放了一个DTP日历控件，如何在打开excel时日期显示为系统当前日期前一天，（仅在在打开excel时）
之后DTP控件日期可自由选择。
Private Sub DTPicker1_Change()
Range("R17") = DTPicker1.Value
DTPicker1.Value = Date - 1
End Sub
这段代码会导致日期不可选。

请高手帮忙，谢谢！

cflood

Private Sub Workbook_Open()
DTPicker1.Value = Date - 1

End Sub

luohanguo

谢谢cflood老师！
按老师的代码改了，打开excel时日期还是原来保存时选择的日期。

cflood

代码是放在thisworkbook里吗？

[ 本帖最后由 cflood 于 2010-5-4 22:53 编辑 ]

luohanguo

是呀
Option Explicit
-----------------------------------
Private Sub Workbook_Open()
DTPicker1.Value = Date - 1 ‘错误提示：变量未定义
End Sub
-----------------------------------
Private Sub Workbook_Activate()
    Call AddNowBar
End Sub
-----------------------------------
Private Sub Workbook_Deactivate()
    Call DelNowBar
End Sub
提示：变量未定义

lu_zhao_long

原帖由 luohanguo 于 2010-5-4 23:14 发表
是呀
Option Explicit
-----------------------------------
Private Sub Workbook_Open()
DTPicker1.Value = Date - 1 ‘错误提示：变量未定义
End Sub
-----------------------------------
Private Sub Wo ...

估计楼主的代码中应该加上工作表名称。比如：
Private Sub Workbook_Open()
    Sheet1.DTPicker1.Value = Date - 1    '假设这个日期控件放在SHEET1 工作表中。
End Sub

luohanguo

啊，谢谢两位老师！解决啦。谢谢！

蚂蚁扳大象

学习了，谢谢

qinyu0745

日期控件打开时定义到当前 日期段 学习了！ 谢谢！