[已解决]求解！

cyj153

ntsBinmy.rar (4.82 KB, 下载次数: 0)

2010-5-30 14:54 上传

点击文件名下载附件
求解！

代码，谢谢！

最佳答案

月排行榜 / 总排行榜

fjmxwrs

2010-5-30 15:06

把第二行前加上个'当成注释就行了，或者直接删除第二行，就是红色部分，删除了，那句是打开工作表时的不要。

Sub 自动回0()
'Private Sub Workbook_Open()
If Date > #5/28/2010# Then
    Sheet3.Range("b5:f19") = 0
End If
End Sub

[此贴子已经被作者于2010-5-30 15:07:08编辑过]

跳转到最佳答案楼层

fjmxwrs

把第二行前加上个'当成注释就行了，或者直接删除第二行，就是红色部分，删除了，那句是打开工作表时的不要。

Sub 自动回0()
'Private Sub Workbook_Open()
If Date > #5/28/2010# Then
    Sheet3.Range("b5:f19") = 0
End If
End Sub

[此贴子已经被作者于2010-5-30 15:07:08编辑过]

cyj153

谢谢！给我解决了一个问题。

fjmxwrs

不客气，我也是来学习的。

cyj153

再问老师：能否实现开机运行程序。这样就不要到期时还要执行这个代码。谢谢各位大师了！