Question

EXCEL VBA，为什么函数子过程中不能使用find方法。

Public Function MDD(DH As String)
MDD = Sheet1.Cells(Sheet1.Range("a:a").Find(what:=DH).Row, 6)
End Function
其中Sheet1.Range("a:a").Find(what:=DH)怎样都查找不到，值都是nothing。
请教高手解决，谢谢。
如图：搜索的区域a列为公式生成。
哎呀，我自己解决了，FIND方法中有一个搜索选项lookin，参数设为xlValues就好了。

Answer 1

可以查到啊？

可能你的用法错了！

Public Function MDD(DH As String)

MDD = Sheet1.Cells(Sheet1.Range("a:a").Find(what:=DH).Row, 6)

End Function

Sub A()

MsgBox MDD("PP")

End Sub

追问

如果您类别的字符是用公式生成出来的呢？
比如TEXT(C13,"yymm")
C13是当前时间

追答

=MDD(TEXT(A13,1))这样呢？

追问

不行呀，是搜索的区域的值是由公式生成的，不是搜索项是公式生成的。
DH可以是一个表达式的。

追答

不明白你说的是什么意思了，你是说F13里面是一个公式？也可以显示出来啊？显示的结果就等于F12的结果啊？

再不行你就把文件传上来我看看呢？

Answer 2

如果是MDD为nothing，那就是你的Sheet1表中第6列没有值；

如果是Find为nothing，那就是你的Sheet1表中A列不存在DH所指定的字符串；
　　否则就是不存在名为Sheet1的表

追问

sheet1肯定存在，DH更是肯定存在。

追答

那就只能是你在传入的DH的类型和表格里实际的值的类型不匹配了

Answer 3

excel中的函数和VBA中并不是完全对应的，试试InStr

追问

咱们说的完全不是一个问题。不过还是谢谢你。