类型不匹配（运行时错误13）？

Question

我正在尝试在另一个工作表中找到某个日期

我在这一行上收到不匹配错误

dateFound = .Find(chosenDate, LookIn = xlValues)

我将变量声明如下：

Dim chosenDate As String
Dim dateFound As String

任何帮助都会受到赞赏，

感谢。

Answer 1

你可能在那里错过了一个冒号...... dateFound = .Find(chosenDate, LookIn := xlValues)

此外，在将参数传递给命名参数（即使用:=）时，还必须为selectedDate提供What:=

的参数名称。

所以正确的完整语法是

dateFound = .Find(What:=chosenDate, LookIn:=xlValues)

意思是你要么提供所有的参数名称;或省略所有并使用逗号来放置输入，例如

datefound = .Find(choosenDate,,,xlValues)

参考： https://msdn.microsoft.com/en-us/library/aa263527(v=vs.60).aspx