求助，“子过程或者函数未定义”本人菜鸟，临危受命，写一小段vba，以前从来都没弄过这个东西。现百度了一下。Sub
求助，“子过程或者函数未定义”
本人菜鸟，临危受命，写一小段vba，以前从来都没弄过这个东西。
现百度了一下。
Sub 宏1()
'
' 宏1 宏
'
C1 = Mid(E15, Find(aa, E15, 1), Find(dd, E15, 1) - Find(bb, E15, 1))
End Sub
就这么简单，编译的时候提示“子过程或者函数未定义”，
应该指的就是find函数，大牛们告诉我应该怎么办？谢谢了！
[最优解释]查阅这个
[其他解释]Find函数不存在。
寻找下作者有没有给出Find的源代码，或者它的功能和定义是什么，按照功能和定义自己写一个。
[其他解释]谢谢您了，我下载看了一下是扫描版的图书，没有ctrl+F的功能呀。。。还希望您不吝赐教
[其他解释]http://download.csdn.net/detail/veron_04/1627060
[其他解释]在工作表中查找特定信息。
expression.Find(Arg1, Arg2, Arg3)
expression 必需。该表达式返回一个 WorksheetFunction 对象。
Arg1 String 类型，必需。工作表名称。
Arg2 String 类型，必需。单元格区域名称。
Arg3 Variant 类型，可选。精确限制查询的参数名称
[其他解释]谢谢您，
Arg1 String 类型，必需。工作表名称。
Arg2 String 类型，必需。单元格区域名称。
Arg3 Variant 类型，可选。精确限制查询的参数名称
这一块没太看懂，不知道是否可以根据我的那段破vba修改一下呢？
[其他解释]现在的情况是提示运行错误‘424’
[其他解释]
Sub 宏1()
'
' 宏1 宏
'
C1 = Mid(E15, expression.Find(aa, E15, 1), expression.Find(dd, E15, 1) - expression.Find(bb, E15, 1))
End Sub
[其他解释]不知代码中aa,bb,dd是变量还是表名，如果是表名，你的引用应该 是“aa","bb","dd"
你看这样行不：
Range("C1") = Mid(Range("E15"), expression.Find(aa, Range("E15"), 1),expression.Find(dd, Range("E15"), 1) - expression.Find(bb, Range("E15"), 1))
