[已解决]代码测试

642070295

工作簿.rar (31.27 KB, 下载次数: 2)

2014-8-1 11:44 上传

点击文件名下载附件 各位大师，麻烦帮看一下附件中的代码，运行时出错“对象变量未设置”，咋回事？怎么纠正呢？先谢了！

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2014-8-1 11:50

1. 小修改了一下，删除整行
   
2. Private Sub CommandButton1_Click()
   
3.     Dim dt As Date
   
4.     dt = #11/15/2012#
   
5.     'dt = "2012-11-15"         这样也可以
   
6.     Columns(1).Find(dt).EntireRow.Delete
   
7. End Sub

复制代码

跳转到最佳答案楼层

大灰狼1976

1. 小修改了一下，删除整行
   
2. Private Sub CommandButton1_Click()
   
3.     Dim dt As Date
   
4.     dt = #11/15/2012#
   
5.     'dt = "2012-11-15"         这样也可以
   
6.     Columns(1).Find(dt).EntireRow.Delete
   
7. End Sub

复制代码

su45

有狼在，就能解决了！咱撤了！

642070295

大灰狼1976 发表于 2014-8-1 11:50

谢谢钱兄！