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

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

我在这条线上遇到了一个不匹配的错误

dateFound = .Find(chosenDate, LookIn = xlValues)

我声明我的变量如下：

Dim chosenDate As String
Dim dateFound As String

任何帮助都将不胜感激

---

谢谢。

你可能漏了一个冒号

dateFound=.Find（chosenDate，LookIn:=xlValues）

此外，在将参数传递到命名参数中（即使用

：=

）时，还必须为chosenDate提供参数名称，即

什么：=

因此，正确的完整语法是

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

这意味着您要么提供所有参数名称；或省略所有，并使用逗号放置输入，如

datefound = .Find(choosenDate,,,xlValues)

参考：

---

您可能缺少一个冒号

dateFound=.Find（chosenDate，LookIn:=xlValues）

此外，在将参数传递到命名参数中（即使用

：=

）时，还必须为chosenDate提供参数名称，即

什么：=

因此，正确的完整语法是

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

这意味着您要么提供所有参数名称；或省略所有，并使用逗号放置输入，如

datefound = .Find(choosenDate,,,xlValues)

参考：

---

Find返回一个范围。dateFound应该是

Dim dateFound as Range

，即使我将其声明为一个范围，我仍然会收到相同的错误。您可能需要设置它。不确定

Set dateFound=.Find（chosenDate，LookIn=xlValues）

如果Find返回一个范围，则必须对其进行设置。但是，您可以尝试DateFind=.Find（chosenDate，LookIn=xlValues）。ValueFind返回一个范围。dateFound应该是

Dim dateFound as Range

，即使我将其声明为一个范围，我仍然会收到相同的错误。您可能需要设置它。不确定

Set dateFound=.Find（chosenDate，LookIn=xlValues）

如果Find返回一个范围，则必须对其进行设置。但是，您可以尝试datefind=.Find（chosenDate，LookIn=xlValues）.Value