加州老鹰886 发表于 2021-2-21 09:54:21

VBA报错：不能取得类WorksheetFunction的Match的属性

运行 iRow=Application.WorksheetFunction.Match(VBA.Date, Sheet5.Range("a1:a1000"), 0)时报错，
错误类型：不能取得类WorksheetFunction的Match的属性

其中：Sheet5.Range("a1:a1000")引用的是一组日期

我用以下两条msgbox检查过，结果都是2021/02/21，不知道为什么还是报错
MsgBox VBA.Date
MsgBox Sheet5.Range("a2")

jackz007 发表于 2021-2-21 10:48:45

iRow=Application.WorksheetFunction.Match(VBA.Date, Sheet5.Range("a1:a1000"), 0)
      改为
iRow=Application.WorksheetFunction.Match(CLng(VBA.Date) , Sheet5.Range("a1:a1000"), 0)
      试试

加州老鹰886 发表于 2021-2-22 14:24:42

jackz007 发表于 2021-2-21 10:48
改为

      试试

已解决，十分感谢！

chen19810518 发表于 2021-2-22 15:14:08

看不懂

chen19810518 发表于 2021-2-22 15:15:46

看不懂

chen19810518 发表于 2021-2-22 15:18:22

互相认识学习一下。

chen19810518 发表于 2021-2-22 15:19:10

互相认识一下。
页: [1]
查看完整版本: VBA报错：不能取得类WorksheetFunction的Match的属性