[已解决]测试行号

642070295

各位大师，有个附件（测试行号）运行时n = Application.Match(dt, Sheets("数据").Range("a1:a80"), 0)代码错误，麻烦大师帮忙纠正！ 测试行号.rar (17.44 KB, 下载次数: 6)

2014-2-27 18:13 上传

点击文件名下载附件      先谢了！急！！！

最佳答案

月排行榜 / 总排行榜

xdragon

2014-2-27 18:38

642070295 发表于 2014-2-27 18:28
请问一下：n = Application.match(dt * 1, Sheets("数据").Range("a1:a80"), 0)中为什么是dt ...

在vba中，日期格式是一种特殊的格式，而在excel里其实是一系列的数字

跳转到最佳答案楼层

pengyx

发个03版的附件

xdragon

1. Private Sub CommandButton1_Click()
   
2.     Dim dt As Date, n%
   
3.     dt = InputBox("请输入日期：")
   
4.     n = Application.Match(dt * 1, Sheets("数据").Range("a1:a80"), 0)
   
5.     MsgBox "该日期行号为：" & n
   
6. End Sub

复制代码

642070295

xdragon 发表于 2014-2-27 18:20

请问一下：n = Application.match(dt * 1, Sheets("数据").Range("a1:a80"), 0)中为什么是dt*1呢？

xdragon

642070295 发表于 2014-2-27 18:28
请问一下：n = Application.match(dt * 1, Sheets("数据").Range("a1:a80"), 0)中为什么是dt ...

在vba中，日期格式是一种特殊的格式，而在excel里其实是一系列的数字

642070295

xdragon 发表于 2014-2-27 18:20

谢谢了，兄弟！