[已解决]为什么我的日期查找不到，出错了。

mfk1288

根据我的附件，运行窗体，在textbox1里输入2013-3-15，查找这个日期，在表里是有的。为什么出错了？请教！
工作簿1.rar (11.35 KB, 下载次数: 7)

2013-3-14 15:24 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

cbg2008

2013-3-14 15:32

1. Private Sub CommandButton1_Click()
   
2. Dim tt
   
3. On Error Resume Next
   
4. tt = 0
   
5. tt = Range("A:A").Find(VBA.CDate(TextBox1.Text)).Row
   
6. MsgBox tt
   
7. End Sub
   

复制代码

跳转到最佳答案楼层

cbg2008

1. Private Sub CommandButton1_Click()
   
2. Dim tt
   
3. On Error Resume Next
   
4. tt = 0
   
5. tt = Range("A:A").Find(VBA.CDate(TextBox1.Text)).Row
   
6. MsgBox tt
   
7. End Sub
   

复制代码

mfk1288

cbg2008 发表于 2013-3-14 15:32

首先先谢谢指导，为什么要加这个Cdate呢？
看你的指导，我只其然，而不知其所以然！请再指导解释一下！谢谢！

cbg2008

mfk1288 发表于 2013-3-14 15:40
首先先谢谢指导，为什么要加这个Cdate呢？
看你的指导，我只其然，而不知其所以然！请再指导解释一下！谢 ...

因为你输入的是文本，而单元格实际存储的是一个数字（只是显示为日期了），所以CDATE转换成日期，这样就能找到了