[已解决]请教：能否将工作表代码写入THISWORKBOOK中？

ranrise

在SHEET1中有这样一段代码

private sub DTPicker1_Change()
     activecell.value=DTPicker1.value
end sub

能否将这段代码移到THISWORKBOOK中？怎么改？

Book1.rar (7.33 KB, 下载次数: 6)

2015-4-1 20:19 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

grf1973

2015-4-3 15:11

你的DTPicker是工作表1的控件，其事件当然在sheet1里写。如果不想工作代码，可以建个小窗体，用窗体的日历控件，代码写在窗体里。

跳转到最佳答案楼层

ranrise

是没办法移吗？

grf1973

你的DTPicker是工作表1的控件，其事件当然在sheet1里写。如果不想工作代码，可以建个小窗体，用窗体的日历控件，代码写在窗体里。

grf1973

最接近的功能是这样
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    ActiveCell.Value = Sheet1.DTPicker1.Value
End Sub
在工作表1里改变日历控件后，任选单元格按Del键。